{s Screen
    APTR   NextScreen
    APTR   FirstWindow
    WORD   LeftEdge
    WORD   TopEdge
    WORD   Width
    WORD   Height
    WORD   MouseY
    WORD   MouseX
    WORD   Flags
    APTR   Title
    APTR   DefaultTitle
    BYTE   BarHeight
    BYTE   BarVBorder
    BYTE   BarHBorder
    BYTE   MenuVBorder
    BYTE   MenuHBorder
    BYTE   WBorTop
    BYTE   WBorLeft
    BYTE   WBorRight
    BYTE   WBorBottom
    BYTE   KludgeFill00
    APTR   Font
    struct 40 ViewPort     ( { ViewPort=40;graphics/view )
    struct 100 RastPort    ( { RastPort=100;graphics/rastport )
    struct 40 BitMap       ( { BitMap=40;graphics/gfx   )
    struct 102 LayerInfo   ( { Layer_Info=102;graphics/layers )
    APTR   FirstGadget
    BYTE   DetailPen
    BYTE   BlockPen
    WORD   SaveColor0
    APTR   BarLayer
    APTR   ExtData
    APTR   UserData
   s}

EQU SCREENTYPE          $000F
EQU WBENCHSCREEN        $0001
EQU CUSTOMSCREEN        $000F

EQU SHOWTITLE           $0010

EQU BEEPING             $0020

EQU CUSTOMBITMAP        $0040

EQU SCREENBEHIND        $0080

EQU SCREENQUIET         $0100

EQU STDSCREENHEIGHT     -1


{s NewScreen
    WORD   LeftEdge
    WORD   TopEdge
    WORD   Width
    WORD   Height
    WORD   Depth
    BYTE   DetailPen
    BYTE   BlockPen
    WORD   ViewModes
    WORD   Type
    APTR   Font
    APTR   DefaultTitle
    APTR   Gadgets
    APTR   CustomBitMap
   s}


>Intuition ^ -198 (r A0 r) OpenScreen (s Ns -- Sc )
>Intuition   -066 (r A0 r) CloseScreen (s Sc -- )
>Intuition   -246 (r A0 r) ScreenToBack (s Sc -- )
>Intuition   -252 (r A0 r) ScreenToFront (s Sc -- )
>Intuition   -282 (r A0 D0 r) ShowTitle (s Sc fl -- )
>Intuition   -162 (r A0 D1 D0 r) MoveScreen (s Sc dy dx -- )
>Intuition   -096 (r A0 r) DisplayBeep (s Sc -- )
>Intuition ^ -426 (r A1 A0 D1 D0 r) GetScreenData (s Sc buff type size -- f )
>Intuition   -378 (r A0 r) MakeScreen (s Sc -- )