The Fred Fish Collection 1.5/ffcollection-1-5-1992-11.iso/ff_progs/libs/matlab.lzh/MATLAB/MATLAB.LZH/Source/inc/intuit.inc

Text File | 1991-04-13 | 23.1 KB | 401 lines

*
* - function values for 'intuition.library'
*

      integer IntuitionBase   ; parameter (IntuitionBase  =z'00000300')
      integer RefreshWindowFrame ; parameter (RefreshWindowFrame
     +                                                    =z'0001834C')
      integer ActivateWindow  ; parameter (ActivateWindow =z'0001834B')
      integer GetScreenData   ; parameter (GetScreenData  =z'CC608347')
      integer UnlockIBase     ; parameter (UnlockIBase    =z'00018346')
      integer LockIBase       ; parameter (LockIBase      =z'00010345')
      integer FreeRemember    ; parameter (FreeRemember   =z'00218344')
      integer AlohaWorkbench  ; parameter (AlohaWorkbench =z'00018343')
      integer AllocRemember   ; parameter (AllocRemember  =z'04618342')
      integer RethinkDisplay  ; parameter (RethinkDisplay =z'00000341')
      integer RemakeDisplay   ; parameter (RemakeDisplay  =z'00000340')
      integer MakeScreen      ; parameter (MakeScreen     =z'0001833F')
      integer FreeSysRequest  ; parameter (FreeSysRequest =z'0001833E')
      integer EndRefresh      ; parameter (EndRefresh     =z'0021833D')
      integer BuildSysRequest ; parameter (BuildSysRequest=z'0011F33C')
      integer BeginRefresh    ; parameter (BeginRefresh   =z'0001833B')
      integer AutoRequest     ; parameter (AutoRequest    =z'0013F33A')
      integer WBenchToFront   ; parameter (WBenchToFront  =z'00000339')
      integer WBenchToBack    ; parameter (WBenchToBack   =z'00000338')
      integer IntuiTextLength ; parameter (IntuiTextLength=z'00008337')
      integer SetPrefs        ; parameter (SetPrefs       =z'04608336')
      integer WindowLimits    ; parameter (WindowLimits   =z'0015F335')
      integer WindowToFront   ; parameter (WindowToFront  =z'00018334')
      integer WindowToBack    ; parameter (WindowToBack   =z'00018333')
      integer ViewPortAddress ; parameter (ViewPortAddress=z'00018332')
      integer ViewAddress     ; parameter (ViewAddress    =z'00000331')
      integer SizeWindow      ; parameter (SizeWindow     =z'04618330')
      integer ShowTitle       ; parameter (ShowTitle      =z'0021832F')
      integer SetWindowTitles ; parameter (SetWindowTitles=z'06B3832E')
      integer SetPointer      ; parameter (SetPointer     =z'0017F32D')
      integer SetMenuStrip    ; parameter (SetMenuStrip   =z'0013832C')
      integer SetDMRequest    ; parameter (SetDMRequest   =z'0013832B')
      integer ScreenToFront   ; parameter (ScreenToFront  =z'0001832A')
      integer ScreenToBack    ; parameter (ScreenToBack   =z'00018329')
      integer Request         ; parameter (Request        =z'00328328')
      integer ReportMouse     ; parameter (ReportMouse    =z'00218327')
      integer RemoveGadget    ; parameter (RemoveGadget   =z'00138326')
      integer RefreshGadgets  ; parameter (RefreshGadgets =z'02B28325')
      integer PrintIText      ; parameter (PrintIText     =z'8C138324')
      integer OpenWorkBench   ; parameter (OpenWorkBench  =z'00000323')
      integer OpenWindow      ; parameter (OpenWindow     =z'00008322')
      integer OpenScreen      ; parameter (OpenScreen     =z'00008321')
      integer OnMenu          ; parameter (OnMenu         =z'00218320')
      integer OnGadget        ; parameter (OnGadget       =z'06B2831F')
      integer OffMenu         ; parameter (OffMenu        =z'0021831E')
      integer OffGadget       ; parameter (OffGadget      =z'06B2831D')
      integer MoveWindow      ; parameter (MoveWindow     =z'0461831C')
      integer MoveScreen      ; parameter (MoveScreen     =z'0461831B')
      integer ModifyProp      ; parameter (ModifyProp     =z'0019F31A')
      integer ModifyIDCMP     ; parameter (ModifyIDCMP    =z'00218319')
      integer ItemAddress     ; parameter (ItemAddress    =z'00208318')
      integer InitRequester   ; parameter (InitRequester  =z'00008317')
      integer GetPrefs        ; parameter (GetPrefs       =z'00218316')
      integer GetDefPrefs     ; parameter (GetDefPrefs    =z'00218315')
      integer EndRequest      ; parameter (EndRequest     =z'00338314')
      integer DrawImage       ; parameter (DrawImage      =z'8C138313')
      integer DrawBorder      ; parameter (DrawBorder     =z'8C138312')
      integer DoubleClick     ; parameter (DoubleClick    =z'9CA30311')
      integer DisplayBeep     ; parameter (DisplayBeep    =z'00018310')
      integer DisplayAlert    ; parameter (DisplayAlert   =z'0451030F')
      integer CurrentTime     ; parameter (CurrentTime    =z'0012830E')
      integer CloseWorkBench  ; parameter (CloseWorkBench =z'0000030D')
      integer CloseWindow     ; parameter (CloseWindow    =z'0001830C')
      integer CloseScreen     ; parameter (CloseScreen    =z'0001830B')
      integer ClearPointer    ; parameter (ClearPointer   =z'0001830A')
      integer ClearMenuStrip  ; parameter (ClearMenuStrip =z'00018309')
      integer ClearDMRequest  ; parameter (ClearDMRequest =z'00018308')
      integer AddGadget       ; parameter (AddGadget      =z'04138307')
      integer Intuition       ; parameter (Intuition      =z'00018306')
      integer OpenIntuition   ; parameter (OpenIntuition  =z'00000305')
*
* - from "intuition.i"
*
      integer*2 Menu(15)

      integer*4 mu_NextMenu  ; equivalence (Menu(1), mu_NextMenu)
      integer*2 mu_LeftEdge  ; equivalence (Menu(3), mu_LeftEdge)
      integer*2 mu_TopEdge   ; equivalence (Menu(4), mu_TopEdge)
      integer*2 mu_Width     ; equivalence (Menu(5), mu_Width)
      integer*2 mu_Height    ; equivalence (Menu(6), mu_Height)
      integer*2 mu_Flags     ; equivalence (Menu(7), mu_Flags)
      integer*4 mu_MenuName  ; equivalence (Menu(8), mu_MenuName)
      integer*4 mu_FirstItem ; equivalence (Menu(10),mu_FirstItem)
      integer*2 mu_JazzX     ; equivalence (Menu(12),mu_JazzX)
      integer*2 mu_JazzY     ; equivalence (Menu(13),mu_JazzY)
      integer*2 mu_BeatX     ; equivalence (Menu(14),mu_BeatX)
      integer*2 mu_BeatY     ; equivalence (Menu(15),mu_BeatY)

* mu_Flags:

      integer MENUENABLED    ; parameter (MENUENABLED = z'0001')
      integer MIDRAWN        ; parameter (MIDRAWN     = z'0100')

      integer*1 MenuItem(34)

      integer*4 mi_NextItem  ; equivalence (MenuItem(1), mi_NextItem)
      integer*2 mi_LeftEdge  ; equivalence (MenuItem(5), mi_LeftEdge)
      integer*2 mi_TopEdge   ; equivalence (MenuItem(7), mi_TopEdge)
      integer*2 mi_Width     ; equivalence (MenuItem(9), mi_Width)
      integer*2 mi_Height    ; equivalence (MenuItem(11),mi_Height)
      integer*2 mi_Flags     ; equivalence (MenuItem(13),mi_Flags)
      integer*4 mi_MutualExcl; equivalence (MenuItem(15),mi_MutualExcl)
      integer*4 mi_ItemFill  ; equivalence (MenuItem(19),mi_ItemFill)
      integer*4 mi_SelectFill; equivalence (MenuItem(23),mi_SelectFill)
      integer*1 mi_Command   ; equivalence (MenuItem(27),mi_Command)
      integer*1 mi_Kludge    ; equivalence (MenuItem(28),mi_Kludge)
      integer*4 mi_SubItem   ; equivalence (MenuItem(29),mi_SubItem)
      integer*2 mi_NextSelect; equivalence (MenuItem(33),mi_NextSelect)

* mi_Flags:

      integer CHECKIT        ; parameter (CHECKIT     = z'0001')
      integer ITEMTEXT       ; parameter (ITEMTEXT    = z'0002')
      integer COMMSEQ        ; parameter (COMMSEQ     = z'0004')
      integer ITEMENABLED    ; parameter (ITEMENABLED = z'0010')
      integer HIGHCOMP       ; parameter (HIGHCOMP    = z'0040')
      integer HIGHBOX        ; parameter (HIGHBOX     = z'0080')
      integer HIGHNONE       ; parameter (HIGHNONE    = z'00c0')
      integer CHECKED        ; parameter (CHECKED     = z'0100')
      integer ISDRAWN        ; parameter (ISDRAWN     = z'1000')
      integer HIGHITEM       ; parameter (HIGHITEM    = z'2000')
      integer MENUTOGGLED    ; parameter (MENUTOGGLED = z'4000')

      integer*1 Requester(112)

      integer*4 rq_Older     ; equivalence (Requester(1), rq_Older)
      integer*2 rq_LeftEdge  ; equivalence (Requester(5), rq_LeftEdge)
      integer*2 rq_TopEdge   ; equivalence (Requester(7), rq_TopEdge)
      integer*2 rq_Width     ; equivalence (Requester(9), rq_Width)
      integer*2 rq_Height    ; equivalence (Requester(11),rq_Height)
      integer*2 rq_RelLeft   ; equivalence (Requester(13),rq_RelLeft)
      integer*2 rq_RelTop    ; equivalence (Requester(15),rq_RelTop)
      integer*4 rq_Gadget    ; equivalence (Requester(17),rq_Gadget)
      integer*4 rq_Border    ; equivalence (Requester(21),rq_Border)
      integer*4 rq_Text      ; equivalence (Requester(25),rq_Text)
      integer*2 rq_Flags     ; equivalence (Requester(29),rq_Flags)
      integer*1 rq_BackFill  ; equivalence (Requester(31),rq_BackFill)
      integer*1 rq_Kludge    ; equivalence (Requester(32),rq_Kludge)
      integer*4 rq_Layer     ; equivalence (Requester(33),rq_Layer)
      integer*1 rq_Pad1(32)  ; equivalence (Requester(37),rq_Pad1)
      integer*4 rq_BMap      ; equivalence (Requester(69),rq_BMap)
      integer*4 rq_Window    ; equivalence (Requester(73),rq_Window)
      integer*1 rq_Pad2(36)  ; equivalence (Requester(77),rq_Pad2)

      integer*1 IntuiText(20)

      integer*1 it_FrontPen  ; equivalence (IntuiText(1), it_FrontPen)
      integer*1 it_BackPen   ; equivalence (IntuiText(2), it_BackPen)
      integer*1 it_DrawMode  ; equivalence (IntuiText(3), it_DrawMode)
      integer*1 it_Kludge    ; equivalence (IntuiText(4), it_Kludge)
      integer*2 it_LeftEdge  ; equivalence (IntuiText(5), it_LeftEdge)
      integer*2 it_TopEdge   ; equivalence (IntuiText(7), it_TopEdge)
      integer*4 it_ITextFont ; equivalence (IntuiText(9), it_ITextFont)
      integer*4 it_IText     ; equivalence (IntuiText(13),it_IText)
      integer*4 it_NextText  ; equivalence (IntuiText(17),it_NextText)

      integer*1 Border(16)

      integer*2 bd_LeftEdge  ; equivalence (Border(1), bd_LeftEdge)
      integer*2 bd_TopEdge   ; equivalence (Border(3), bd_TopEdge)
      integer*1 bd_FrontPen  ; equivalence (Border(5), bd_FrontPen)
      integer*1 bd_BackPen   ; equivalence (Border(6), bd_BackPen)
      integer*1 bd_DrawMode  ; equivalence (Border(7), bd_DrawMode)
      integer*1 bd_Count     ; equivalence (Border(8), bd_Count)
      integer*4 bd_XY        ; equivalence (Border(9), bd_XY)
      integer*4 bd_NextBorder; equivalence (Border(13),bd_NextBorder)

      integer*1 Image(20)

      integer*2 ig_LeftEdge  ; equivalence (Image(1), ig_LeftEdge)
      integer*2 ig_TopEdge   ; equivalence (Image(3), ig_TopEdge)
      integer*2 ig_Width     ; equivalence (Image(5), ig_Width)
      integer*2 ig_Height    ; equivalence (Image(7), ig_Height)
      integer*2 ig_Depth     ; equivalence (Image(9), ig_Depth)
      integer*4 ig_ImageData ; equivalence (Image(11),ig_ImageData)
      integer*1 ig_PlanePick ; equivalence (Image(15),ig_PlanePick)
      integer*1 ig_PlaneOnOff; equivalence (Image(16),ig_PlaneOnOff)
      integer*4 ig_NextImage ; equivalence (Image(17),ig_NextImage)

                             ! IntuiMessage structure offsets

      integer im_ExecMessage ; parameter (im_ExecMessage =  0)
      integer im_Class       ; parameter (im_Class       = 20)
      integer im_Code        ; parameter (im_Code        = 24)
      integer im_Qualifier   ; parameter (im_Qualifier   = 26)
      integer im_IAddress    ; parameter (im_IAddress    = 28)
      integer im_MouseX      ; parameter (im_MouseX      = 32)
      integer im_MouseY      ; parameter (im_MouseY      = 34)
      integer im_Seconds     ; parameter (im_Seconds     = 36)
      integer im_Micros      ; parameter (im_Micros      = 40)
      integer im_IDCMPWindow ; parameter (im_IDCMPWindow = 44)
      integer im_SpecialLink ; parameter (im_SpecialLink = 48)

* im_Code:

      integer MENUNULL       ; parameter (MENUNULL = z'0000 ffff')

                             ! Window structure offsets

      integer wd_NextWindow  ; parameter (wd_NextWindow   =  0)
      integer wd_LeftEdge    ; parameter (wd_LeftEdge     =  4)
      integer wd_TopEdge     ; parameter (wd_TopEdge      =  6)
      integer wd_Width       ; parameter (wd_Width        =  8)
      integer wd_Height      ; parameter (wd_Height       = 10)
      integer wd_MouseY      ; parameter (wd_MouseY       = 12)
      integer wd_MouseX      ; parameter (wd_MouseX       = 14)
      integer wd_MinWidth    ; parameter (wd_MinWidth     = 16)
      integer wd_MinHeight   ; parameter (wd_MinHeight    = 18)
      integer wd_MaxWidth    ; parameter (wd_MaxWidth     = 20)
      integer wd_MaxHeight   ; parameter (wd_MaxHeight    = 22)
      integer wd_Flags       ; parameter (wd_Flags        = 24)
      integer wd_MenuStrip   ; parameter (wd_MenuStrip    = 28)
      integer wd_Title       ; parameter (wd_Title        = 32)
      integer wd_FirstRequest; parameter (wd_FirstRequest = 36)
      integer wd_DMRequest   ; parameter (wd_DMRequest    = 40)
      integer wd_ReqCount    ; parameter (wd_ReqCount     = 44)
      integer wd_WScreen     ; parameter (wd_WScreen      = 46)
      integer wd_RPort       ; parameter (wd_RPort        = 50)
      integer wd_BorderLeft  ; parameter (wd_BorderLeft   = 54)
      integer wd_BorderTop   ; parameter (wd_BorderTop    = 55)
      integer wd_BorderRight ; parameter (wd_BorderRight  = 56)
      integer wd_BorderBottom; parameter (wd_BorderBottom = 57)
      integer wd_BorderRport ; parameter (wd_BorderRport  = 58)
      integer wd_FirstGadget ; parameter (wd_FirstGadget  = 62)
      integer wd_Parent      ; parameter (wd_Parent       = 66)
      integer wd_Descendent  ; parameter (wd_Descendent   = 70)
      integer wd_Pointer     ; parameter (wd_Pointer      = 74)
      integer wd_PtrHeight   ; parameter (wd_PtrHeight    = 78)
      integer wd_PtrWidth    ; parameter (wd_PtrWidth     = 79)
      integer wd_Xoffset     ; parameter (wd_Xoffset      = 80)
      integer wd_YOffset     ; parameter (wd_YOffset      = 81)
      integer wd_IDCMPFlags  ; parameter (wd_IDCMPFlags   = 82)
      integer wd_UserPort    ; parameter (wd_UserPort     = 86)
      integer wd_WindowPort  ; parameter (wd_WindowPort   = 90)
      integer wd_MessageKey  ; parameter (wd_MessageKey   = 94)
      integer wd_DetailPen   ; parameter (wd_DetailPen    = 98)
      integer wd_BlockPen    ; parameter (wd_BlockPen     = 99)
      integer wd_CheckMark   ; parameter (wd_CheckMark    =100)
      integer wd_ScreenTitle ; parameter (wd_ScreenTitle  =104)
      integer wd_GZZMouseX   ; parameter (wd_GZZMouseX    =108)
      integer wd_GZZMouseY   ; parameter (wd_GZZMouseY    =110)
      integer wd_GZZWidth    ; parameter (wd_GZZWidth     =112)
      integer wd_GZZHeight   ; parameter (wd_GZZHeight    =114)         ! MPB
      integer wd_ExtData     ; parameter (wd_ExtData      =116)
      integer wd_UserData    ; parameter (wd_UserData     =120)
      integer wd_Wlayer      ; parameter (wd_Wlayer       =124)

      integer*1 NewWindow(48)

      integer*2 nw_LeftEdge  ; equivalence (NewWindow(1), nw_LeftEdge)
      integer*2 nw_TopEdge   ; equivalence (NewWindow(3), nw_TopEdge)
      integer*2 nw_Width     ; equivalence (NewWindow(5), nw_Width)
      integer*2 nw_Height    ; equivalence (NewWindow(7), nw_Height)
      integer*1 nw_DetailPen ; equivalence (NewWindow(9), nw_DetailPen)
      integer*1 nw_BlockPen  ; equivalence (NewWindow(10),nw_BlockPen)
      integer*4 nw_IDCMPFlags; equivalence (NewWindow(11),nw_IDCMPFlags)
      integer*4 nw_Flags     ; equivalence (NewWindow(15),nw_Flags)
      integer*4 nw_FirstGdgt ; equivalence (NewWindow(19),nw_FirstGdgt)
      integer*4 nw_CheckMark ; equivalence (NewWindow(23),nw_CheckMark)
      integer*4 nw_Title     ; equivalence (NewWindow(27),nw_Title)
      integer*4 nw_Screen    ; equivalence (NewWindow(31),nw_Screen)
      integer*4 nw_BitMap    ; equivalence (NewWindow(35),nw_BitMap)
      integer*2 nw_MinWidth  ; equivalence (NewWindow(39),nw_MinWidth)
      integer*2 nw_MinHeight ; equivalence (NewWindow(41),nw_MinHeight)
      integer*2 nw_MaxWidth  ; equivalence (NewWindow(43),nw_MaxWidth)
      integer*2 nw_MaxHeight ; equivalence (NewWindow(45),nw_MaxHeight)
      integer*2 nw_Type      ; equivalence (NewWindow(47),nw_Type)

* nw_IDCMPFlags:

      integer SETVERIFY      ; parameter (SETVERIFY     = z'0000 0001')
      integer NEWSIZE        ; parameter (NEWSIZE       = z'0000 0002')
      integer REFRESHWINDOW  ; parameter (REFRESHWINDOW = z'0000 0004')
      integer MOUSEBUTTONS   ; parameter (MOUSEBUTTONS  = z'0000 0008')
      integer MOUSEMOVE      ; parameter (MOUSEMOVE     = z'0000 0010')
      integer GADGETDOWN     ; parameter (GADGETDOWN    = z'0000 0020')
      integer GADGETUP       ; parameter (GADGETUP      = z'0000 0040')
      integer REQSET         ; parameter (REQSET        = z'0000 0080')
      integer MENUPICK       ; parameter (MENUPICK      = z'0000 0100')
      integer CLOSEWINDOW    ; parameter (CLOSEWINDOW   = z'0000 0200')
      integer RAWKEY         ; parameter (RAWKEY        = z'0000 0400')
      integer REQVERIFY      ; parameter (REQVERIFY     = z'0000 0800')
      integer REQCLEAR       ; parameter (REQCLEAR      = z'0000 1000')
      integer MENUVERIFY     ; parameter (MENUVERIFY    = z'0000 2000')
      integer NEWPREFS       ; parameter (NEWPREFS      = z'0000 4000')
      integer DISKINSERTED   ; parameter (DISKINSERTED  = z'0000 8000')
      integer DISKREMOVED    ; parameter (DISKREMOVED   = z'0001 0000')
      integer WBENCHMESSAGE  ; parameter (WBENCHMESSAGE = z'0002 0000')
      integer ACTIVEWINDOW   ; parameter (ACTIVEWINDOW  = z'0004 0000')
      integer INACTIVEWINDOW ; parameter (INACTIVEWINDOW= z'0008 0000')
      integer DELTAMOVE      ; parameter (DELTAMOVE     = z'0010 0000')
      integer VANILLAKEY     ; parameter (VANILLAKEY    = z'0020 0000')
      integer INTUITICKS     ; parameter (INTUITICKS    = z'0040 0000')
      integer LONELYMESSAGE  ; parameter (LONELYMESSAGE = z'8000 0000')

* nw_Flags:

      integer WINDOWSIZING   ; parameter (WINDOWSIZING   = z'0000 0001')
      integer WINDOWDRAG     ; parameter (WINDOWDRAG     = z'0000 0002')
      integer WINDOWDEPTH    ; parameter (WINDOWDEPTH    = z'0000 0004')
      integer WINDOWCLOSE    ; parameter (WINDOWCLOSE    = z'0000 0008')
      integer SIZEBRIGHT     ; parameter (SIZEBRIGHT     = z'0000 0010')
      integer SIZEBBOTTOM    ; parameter (SIZEBBOTTOM    = z'0000 0020')
      integer SMART_REFRESH  ; parameter (SMART_REFRESH  = z'0000 0000')
      integer SIMPLE_REFRESH ; parameter (SIMPLE_REFRESH = z'0000 0040')
      integer SUPER_BITMAP   ; parameter (SUPER_BITMAP   = z'0000 0080')
      integer OTHER_REFRESH  ; parameter (OTHER_REFRESH  = z'0000 00c0')
      integer BACKDROP       ; parameter (BACKDROP       = z'0000 0100')
      integer REPORTMOUSE    ; parameter (REPORTMOUSE    = z'0000 0200')
      integer GIMMEZEROZERO  ; parameter (GIMMEZEROZERO  = z'0000 0400')
      integer BORDERLESS     ; parameter (BORDERLESS     = z'0000 0800')
      integer ACTIVATE       ; parameter (ACTIVATE       = z'0000 1000')
      integer WINDOWACTIVE   ; parameter (WINDOWACTIVE   = z'0000 2000')
      integer INREQUEST      ; parameter (INREQUEST      = z'0000 4000')
      integer MENUSTATE      ; parameter (MENUSTATE      = z'0000 8000')
      integer RMBTRAP        ; parameter (RMBTRAP        = z'0001 0000')
      integer NOCAREREFRESH  ; parameter (NOCAREREFRESH  = z'0002 0000')
      integer WINDOWREFRESH  ; parameter (WINDOWREFRESH  = z'0100 0000')
      integer WBENCHWINDOW   ; parameter (WBENCHWINDOW   = z'0200 0000')
      integer WINDOWTICKED   ; parameter (WINDOWTICKED   = z'0400 0000')

* nw_Type:

      integer WBENCHSCREEN   ; parameter (WBENCHSCREEN   = z'0001')
      integer CUSTOMSCREEN   ; parameter (CUSTOMSCREEN   = z'000f')
      integer SHOWTITLE      ; parameter (SHOWTITLE      = z'0010')
      integer BEEPING        ; parameter (BEEPING        = z'0020')
      integer CUSTOMBITMAP   ; parameter (CUSTOMBITMAP   = z'0040')

                                ! Screen structure offsets

      integer*4 sc_NextScreen   ; parameter (sc_NextScreen  =  0)
      integer*4 sc_FirstWindow  ; parameter (sc_FirstWindow =  4)
      integer*2 sc_LeftEdge     ; parameter (sc_LeftEdge    =  8)
      integer*2 sc_TopEdge      ; parameter (sc_TopEdge     = 10)
      integer*2 sc_Width        ; parameter (sc_Width       = 12)
      integer*2 sc_Height       ; parameter (sc_Height      = 14)
      integer*2 sc_MouseY       ; parameter (sc_MouseY      = 16)
      integer*2 sc_MouseX       ; parameter (sc_MouseX      = 18)
      integer*2 sc_Flags        ; parameter (sc_Flags       = 20)
      integer*4 sc_Title        ; parameter (sc_Title       = 22)
      integer*4 sc_DefTitle     ; parameter (sc_DefTitle    = 26)
      integer*1 sc_BarHeight    ; parameter (sc_BarHeight   = 30)
      integer*1 sc_BarVBorder   ; parameter (sc_BarVBorder  = 31)
      integer*1 sc_BarHBorder   ; parameter (sc_BarHBorder  = 32)
      integer*1 sc_MenuVBorder  ; parameter (sc_MenuVBorder = 33)
      integer*1 sc_MenuHBorder  ; parameter (sc_MenuHBorder = 34)
      integer*1 sc_WBorTop      ; parameter (sc_WBorTop     = 35)
      integer*1 sc_WBorLeft     ; parameter (sc_WBorLeft    = 36)
      integer*1 sc_WBorRight    ; parameter (sc_WBorRight   = 37)
      integer*1 sc_WBorBottom   ; parameter (sc_WBorBottom  = 38)
      integer*1 sc_Kludge       ; parameter (sc_Kludge      = 39)
      integer*4 sc_Font         ; parameter (sc_Font        = 40)
      integer*4 sc_ViewPort     ; parameter (sc_ViewPort    = 44)
      integer*2 sc_RastPort     ; parameter (sc_RastPort    = 84)
      integer*4 sc_BitMap       ; parameter (sc_BitMap      =186)
      integer*2 sc_LayerInfo    ; parameter (sc_LayerInfo   =226)
      integer*4 sc_FirstGadget  ; parameter (sc_FirstGadget =328)
      integer*1 sc_DetailPen    ; parameter (sc_DetailPen   =332)
      integer*1 sc_BlockPen     ; parameter (sc_BlockPen    =333)
      integer*2 sc_SaveColor    ; parameter (sc_SaveColor   =334)
      integer*4 sc_BarLayer     ; parameter (sc_BarLayer    =336)
      integer*4 sc_ExtData      ; parameter (sc_ExtData     =340)
      integer*4 sc_UserData     ; parameter (sc_UserData    =344)

      integer*1 NewScreen(32)

      integer*2 ns_LeftEdge  ; equivalence (NewScreen(1), ns_LeftEdge)
      integer*2 ns_TopEdge   ; equivalence (NewScreen(3), ns_TopEdge)
      integer*2 ns_Width     ; equivalence (NewScreen(5), ns_Width)
      integer*2 ns_Height    ; equivalence (NewScreen(7), ns_Height)
      integer*2 ns_Depth     ; equivalence (NewScreen(9), ns_Depth)
      integer*1 ns_DetailPen ; equivalence (NewScreen(11),ns_DetailPen)
      integer*1 ns_BlockPen  ; equivalence (NewScreen(12),ns_BlockPen)
      integer*2 ns_ViewModes ; equivalence (NewScreen(13),ns_ViewModes)
      integer*2 ns_Type      ; equivalence (NewScreen(15),ns_Type)
      integer*4 ns_Font      ; equivalence (NewScreen(17),ns_Font)
      integer*4 ns_DefTitle  ; equivalence (NewScreen(21),ns_DefTitle)
      integer*4 ns_Gadgets   ; equivalence (NewScreen(25),ns_Gadgets)
      integer*4 ns_CustBitMap; equivalence (NewScreen(29),ns_CustBitMap)

* alert types

      integer RECOVERY_ALERT ; parameter (RECOVERY_ALERT = z'0000 0000')
      integer DEADEND_ALERT  ; parameter (DEADEND_ALERT  = z'8000 0000')

*
* - from "intuitionbase.i"
*
                             ! IntuitionBase structure offsets

      integer ib_ViewLord    ; parameter (ib_ViewLord     = 34)
      integer ib_ActiveWindow; parameter (ib_ActiveWindow = 52)
      integer ib_ActiveScreen; parameter (ib_ActiveScreen = 56)
      integer ib_FirstScreen ; parameter (ib_FirstScreen  = 60)