home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / FORTRAN / DISK6 / BSESUB.FD$ / BSESUB.bin
Text File  |  1989-01-27  |  13KB  |  461 lines
  1. C****************************** Module Header *******************************
  2. C*
  3. C* Module Name: BSESUB.FD
  4. C*
  5. C* OS/2 Base Include File
  6. C*
  7. C* Copyright (c) 1988-1989  Microsoft Corporation
  8. C*
  9. C****************************************************************************
  10. C
  11. * Subcomponents marked with "+" are partially included by default
  12. *   $DEFINE:                To include
  13. *
  14. *   INCL_KBD                KBD
  15. *   INCL_VIO                VIO
  16. *   INCL_MOU                MOU
  17. *
  18.  
  19. $IF defined(INCL_KBD)
  20.  
  21.     INTEGER*2 KbdRegister[EXTERN]
  22.  
  23.     INTEGER*4 KR_KBDCHARIN, KR_KBDPEEK, KR_KBDFLUSHBUFFER, 
  24.      +  KR_KBDGETSTATUS, KR_KBDSETSTATUS, KR_KBDSTRINGIN, KR_KBDOPEN,
  25.      +  KR_KBDCLOSE, KR_KBDGETFOCUS, KR_KBDFREEFOCUS, KR_KBDGETCP,
  26.      +  KR_KBDSETCP, KR_KBDXLATE, KR_KBDSETCUSTXT
  27.  
  28.     PARAMETER (KR_KBDCHARIN        =#00000001)
  29.     PARAMETER (KR_KBDPEEK          =#00000002)
  30.     PARAMETER (KR_KBDFLUSHBUFFER   =#00000004)
  31.     PARAMETER (KR_KBDGETSTATUS     =#00000008)
  32.     PARAMETER (KR_KBDSETSTATUS     =#00000010)
  33.     PARAMETER (KR_KBDSTRINGIN      =#00000020)
  34.     PARAMETER (KR_KBDOPEN          =#00000040)
  35.     PARAMETER (KR_KBDCLOSE         =#00000080)
  36.     PARAMETER (KR_KBDGETFOCUS      =#00000100)
  37.     PARAMETER (KR_KBDFREEFOCUS     =#00000200)
  38.     PARAMETER (KR_KBDGETCP         =#00000400)
  39.     PARAMETER (KR_KBDSETCP         =#00000800)
  40.     PARAMETER (KR_KBDXLATE         =#00001000)
  41.     PARAMETER (KR_KBDSETCUSTXT     =#00002000)
  42.  
  43.     INTEGER*2 IO_WAIT, IO_NOWAIT
  44.  
  45.     PARAMETER (IO_WAIT     =0)
  46.     PARAMETER (IO_NOWAIT   =1)
  47.  
  48.     INTEGER*2 KbdDeRegister[EXTERN]
  49.  
  50. C   KBDKEYINFO structure, for KbdCharIn and KbdPeek
  51.     STRUCTURE/KBDKEYINFO/
  52.        CHARACTER*1 chChar
  53.        CHARACTER*1 chScan
  54.        INTEGER*1   fbStatus
  55.        INTEGER*1   bNlsShift                ! must be zero
  56.        INTEGER*2   fsState
  57.        INTEGER*4   time
  58.     END STRUCTURE
  59.  
  60.     INTEGER*2 KbdCharIn[EXTERN]
  61.     INTEGER*2 KbdPeek[EXTERN]
  62.  
  63. C  structure for KbdStringIn()
  64.     STRUCTURE/STRINGINBUF/
  65.        INTEGER*2 cb
  66.        INTEGER*2 cchIn
  67.     END STRUCTURE
  68.  
  69.     INTEGER*2 KbdStringIn[EXTERN]
  70.     INTEGER*2 KbdFlushBuffer[EXTERN]
  71.  
  72. C   KBDINFO structure, for KbdSet/GetStatus
  73.     STRUCTURE/KBDINFO/
  74.        INTEGER*2 cb
  75.        INTEGER*2 fsMask
  76.        INTEGER*2 chTurnAround
  77.        INTEGER*2 fsInterim
  78.        INTEGER*2 fsState
  79.     END STRUCTURE
  80.  
  81.     INTEGER*2 KbdSetStatus[EXTERN]
  82.     INTEGER*2 KbdGetStatus[EXTERN]
  83.     INTEGER*2 KbdSetCp[EXTERN]
  84.     INTEGER*2 KbdGetCp[EXTERN]
  85.     INTEGER*2 KbdOpen[EXTERN]
  86.     INTEGER*2 KbdClose[EXTERN]
  87.     INTEGER*2 KbdGetFocus[EXTERN]
  88.     INTEGER*2 KbdFreeFocus[EXTERN]
  89.     INTEGER*2 KbdSynch[EXTERN]
  90.     INTEGER*2 KbdSetFgnd[EXTERN]
  91.  
  92. C   structure for KbdXlate()
  93.     STRUCTURE/KBDXLATE_/
  94.        CHARACTER*1 chChar
  95.        CHARACTER*1 chScan
  96.        INTEGER*1   fbStatus
  97.        INTEGER*1   bNlsShift                ! must be zero
  98.        INTEGER*2   fsState
  99.        INTEGER*4   time
  100.        INTEGER*2   fsDD
  101.        INTEGER*2   fsXlate
  102.        INTEGER*2   fsShift
  103.        INTEGER*2   sZero                    ! must be zero
  104.     END STRUCTURE
  105.  
  106.     INTEGER*2 KbdXlate[EXTERN]
  107.     INTEGER*2 KbdSetCustXt[EXTERN]
  108.  
  109. $ENDIF     ! INCL_KBD
  110.  
  111. $IF defined(INCL_VIO)
  112.  
  113.     INTEGER*2 VioRegister[EXTERN]
  114.  
  115. C  first parameter registration constants
  116.     INTEGER*4 VR_VIOGETCURPOS, VR_VIOGETCURTYPE, VR_VIOGETMODE,
  117.      +  VR_VIOGETBUF, VR_VIOGETPHYSBUF, VR_VIOSETCURPOS, 
  118.      +  VR_VIOSETCURTYPE, VR_VIOSETMODE, VR_VIOSHOWBUF, 
  119.      +  VR_VIOREADCHARSTR, VR_VIOREADCELLSTR, VR_VIOWRTNCHAR, 
  120.      +  VR_VIOWRTNATTR, VR_VIOWRTNCELL, VR_VIOWRTTTY, VR_VIOWRTCHARSTR
  121.  
  122.     PARAMETER (VR_VIOGETCURPOS     =#00000001)
  123.     PARAMETER (VR_VIOGETCURTYPE    =#00000002)
  124.     PARAMETER (VR_VIOGETMODE       =#00000004)
  125.     PARAMETER (VR_VIOGETBUF        =#00000008)
  126.     PARAMETER (VR_VIOGETPHYSBUF    =#00000010)
  127.     PARAMETER (VR_VIOSETCURPOS     =#00000020)
  128.     PARAMETER (VR_VIOSETCURTYPE    =#00000040)
  129.     PARAMETER (VR_VIOSETMODE       =#00000080)
  130.     PARAMETER (VR_VIOSHOWBUF       =#00000100)
  131.     PARAMETER (VR_VIOREADCHARSTR   =#00000200)
  132.     PARAMETER (VR_VIOREADCELLSTR   =#00000400)
  133.     PARAMETER (VR_VIOWRTNCHAR      =#00000800)
  134.     PARAMETER (VR_VIOWRTNATTR      =#00001000)
  135.     PARAMETER (VR_VIOWRTNCELL      =#00002000)
  136.     PARAMETER (VR_VIOWRTTTY        =#00004000)
  137.     PARAMETER (VR_VIOWRTCHARSTR    =#00008000)
  138.  
  139.     INTEGER*4 VR_VIOWRTCHARSTRATT, VR_VIOWRTCELLSTR, VR_VIOSCROLLUP,
  140.      +  VR_VIOSCROLLDN, VR_VIOSCROLLLF, VR_VIOSCROLLRT, VR_VIOSETANSI, 
  141.      +  VR_VIOGETANSI, VR_VIOPRTSC, VR_VIOSCRLOCK, VR_VIOSCRUNLOCK, 
  142.      +  VR_VIOSAVREDRAWWAIT, VR_VIOSAVREDRAWUNDO, VR_VIOPOPUP,
  143.      +  VR_VIOENDPOPUP, VR_VIOPRTSCTOGGLE
  144.  
  145.     PARAMETER (VR_VIOWRTCHARSTRATT =#00010000)
  146.     PARAMETER (VR_VIOWRTCELLSTR    =#00020000)
  147.     PARAMETER (VR_VIOSCROLLUP      =#00040000)
  148.     PARAMETER (VR_VIOSCROLLDN      =#00080000)
  149.     PARAMETER (VR_VIOSCROLLLF      =#00100000)
  150.     PARAMETER (VR_VIOSCROLLRT      =#00200000)
  151.     PARAMETER (VR_VIOSETANSI       =#00400000)
  152.     PARAMETER (VR_VIOGETANSI       =#00800000)
  153.     PARAMETER (VR_VIOPRTSC         =#01000000)
  154.     PARAMETER (VR_VIOSCRLOCK       =#02000000)
  155.     PARAMETER (VR_VIOSCRUNLOCK     =#04000000)
  156.     PARAMETER (VR_VIOSAVREDRAWWAIT =#08000000)
  157.     PARAMETER (VR_VIOSAVREDRAWUNDO =#10000000)
  158.     PARAMETER (VR_VIOPOPUP         =#20000000)
  159.     PARAMETER (VR_VIOENDPOPUP      =#40000000)
  160.     PARAMETER (VR_VIOPRTSCTOGGLE   =#80000000)
  161.  
  162. C   second parameter registration constants
  163.     INTEGER*4 VR_VIOMODEWAIT, VR_VIOMODEUNDO, VR_VIOGETFONT,
  164.      +  VR_VIOGETCONFIG, VR_VIOSETCP, VR_VIOGETCP, VR_VIOSETFONT,
  165.      +  VR_VIOGETSTATE, VR_VIOSETSTATE
  166.  
  167.     PARAMETER (VR_VIOMODEWAIT      =#00000001)
  168.     PARAMETER (VR_VIOMODEUNDO      =#00000002)
  169.     PARAMETER (VR_VIOGETFONT       =#00000004)
  170.     PARAMETER (VR_VIOGETCONFIG     =#00000008)
  171.     PARAMETER (VR_VIOSETCP         =#00000010)
  172.     PARAMETER (VR_VIOGETCP         =#00000020)
  173.     PARAMETER (VR_VIOSETFONT       =#00000040)
  174.     PARAMETER (VR_VIOGETSTATE      =#00000080)
  175.     PARAMETER (VR_VIOSETSTATE      =#00000100)
  176.  
  177.     INTEGER*2 VioDeRegister[EXTERN]
  178.     INTEGER*2 VioGetBuf[EXTERN]
  179.     INTEGER*2 VioGetCurPos[EXTERN]
  180.     INTEGER*2 VioSetCurPos[EXTERN]
  181.  
  182. C   structure for VioSet/GetCurType()
  183.  
  184.     STRUCTURE/VIOCURSORINFO/
  185.        INTEGER*2 yStart
  186.        INTEGER*2 cEnd
  187.        INTEGER*2 cx
  188.        INTEGER*2 attr
  189.     END STRUCTURE
  190.  
  191.     INTEGER*2 VioGetCurType[EXTERN]
  192.     INTEGER*2 VioSetCurType[EXTERN]
  193.  
  194. C   structure for VioSet/GetMode()
  195.     STRUCTURE/VIOMODEINFO/
  196.        INTEGER*2 cb
  197.        INTEGER*1 fbType
  198.        INTEGER*1 color
  199.        INTEGER*2 col
  200.        INTEGER*2 row
  201.        INTEGER*2 hres
  202.        INTEGER*2 vres
  203.        INTEGER*1 fmt_ID                    ! must be zero
  204.        INTEGER*1 attrib                    ! must be zero
  205.     END STRUCTURE
  206.  
  207.     INTEGER*2 VGMT_OTHER, VGMT_GRAPHICS, VGMT_DISABLEBURST
  208.  
  209.     PARAMETER (VGMT_OTHER          =#01)
  210.     PARAMETER (VGMT_GRAPHICS       =#02)
  211.     PARAMETER (VGMT_DISABLEBURST   =#04)
  212.  
  213.     INTEGER*2 VioGetMode[EXTERN]
  214.     INTEGER*2 VioSetMode[EXTERN]
  215.  
  216. C  structure for VioGetPhysBuf()
  217.  
  218.     STRUCTURE/VIOPHYSBUF/
  219.        INTEGER*4 pBuf
  220.        INTEGER*4 cb
  221.        INTEGER*2 asel(1)
  222.     END STRUCTURE
  223.  
  224.     INTEGER*2 VioGetPhysBuf[EXTERN]
  225.     INTEGER*2 VioReadCellStr[EXTERN]
  226.     INTEGER*2 VioReadCharStr[EXTERN]
  227.     INTEGER*2 VioWrtCellStr[EXTERN]
  228.     INTEGER*2 VioWrtCharStr[EXTERN]
  229.     INTEGER*2 VioScrollDn[EXTERN]
  230.     INTEGER*2 VioScrollUp[EXTERN]
  231.     INTEGER*2 VioScrollLf[EXTERN]
  232.     INTEGER*2 VioScrollRt[EXTERN]
  233.     INTEGER*2 VioWrtNAttr[EXTERN]
  234.     INTEGER*2 VioWrtNCell[EXTERN]
  235.     INTEGER*2 VioWrtTTY[EXTERN]
  236.     INTEGER*2 VioWrtCharStrAtt[EXTERN]
  237.     INTEGER*2 VioShowBuf[EXTERN]
  238.  
  239.     INTEGER*2 ANSI_ON, ANSI_OFF
  240.     PARAMETER (ANSI_ON     =1)
  241.     PARAMETER (ANSI_OFF    =0)
  242.  
  243.     INTEGER*2 VioSetAnsi[EXTERN]
  244.     INTEGER*2 VioGetAnsi[EXTERN]
  245.     INTEGER*2 VioPrtSc[EXTERN]
  246.     INTEGER*2 VioPrtScToggle[EXTERN]
  247.  
  248.     INTEGER*2 VSRWI_SAVEANDREDRAW, VSRWI_REDRAW
  249.     PARAMETER (VSRWI_SAVEANDREDRAW  =0)
  250.     PARAMETER (VSRWI_REDRAW         =1)
  251.  
  252.     INTEGER*2 VSRWN_SAVE, VSRWN_REDRAW
  253.     PARAMETER (VSRWN_SAVE           =0)
  254.     PARAMETER (VSRWN_REDRAW         =1)
  255.  
  256.     INTEGER*2 UNDOI_GETOWNER, UNDOI_RELEASEOWNER
  257.     PARAMETER (UNDOI_GETOWNER          =0)
  258.     PARAMETER (UNDOI_RELEASEOWNER      =1)
  259.  
  260.     INTEGER*2 UNDOK_ERRORCODE, UNDOK_TERMINATE
  261.     PARAMETER (UNDOK_ERRORCODE         =0)
  262.     PARAMETER (UNDOK_TERMINATE         =1)
  263.  
  264. C    INTEGER*2 VioRedrawSize[EXTERN]
  265.     INTEGER*2 VioSavRedrawWait[EXTERN]
  266.     INTEGER*2 VioSavRedrawUndo[EXTERN]
  267.  
  268.     INTEGER*2 VMWR_POPUP, VMWN_POPUP
  269.     PARAMETER (VMWR_POPUP  =0)
  270.     PARAMETER (VMWN_POPUP  =0)
  271.  
  272.     INTEGER*2 VioModeWait[EXTERN]
  273.     INTEGER*2 VioModeUndo[EXTERN]
  274.  
  275.     INTEGER*2 LOCKIO_NOWAIT, LOCKIO_WAIT
  276.     PARAMETER (LOCKIO_NOWAIT   =0)
  277.     PARAMETER (LOCKIO_WAIT     =1)
  278.  
  279.     INTEGER*2 LOCK_SUCCESS, LOCK_FAIL
  280.     PARAMETER (LOCK_SUCCESS    =0)
  281.     PARAMETER (LOCK_FAIL       =1)
  282.  
  283.     INTEGER*2 VioScrLock[EXTERN]
  284.     INTEGER*2 VioScrUnLock[EXTERN]
  285.  
  286.     INTEGER*2 VP_NOWAIT, VP_WAIT, VP_OPAQUE, VP_TRANSPARENT
  287.     PARAMETER (VP_NOWAIT       =#0000)
  288.     PARAMETER (VP_WAIT         =#0001)
  289.     PARAMETER (VP_OPAQUE       =#0000)
  290.     PARAMETER (VP_TRANSPARENT  =#0002)
  291.  
  292.     INTEGER*2 VioPopUp[EXTERN]
  293.     INTEGER*2 VioEndPopUp[EXTERN]
  294.  
  295. C   structure for VioGetConfig()
  296.     STRUCTURE/VIOCONFIGINFO/
  297.        INTEGER*2 adapter
  298.        INTEGER*2 display
  299.        INTEGER*4 cbMemory
  300.     END STRUCTURE
  301.  
  302.     INTEGER*2 VioGetConfig[EXTERN]
  303.  
  304. C   structure for VioGet/SetFont()
  305.     STRUCTURE/VIOFONTINFO/
  306.        INTEGER*2 cb
  307.        INTEGER*2 type
  308.        INTEGER*2 cxCell
  309.        INTEGER*2 cyCell
  310.        INTEGER*4 pbData
  311.        INTEGER*2 cbData
  312.     END STRUCTURE
  313.  
  314.     INTEGER*2 VGFI_GETCURFONT, VGFI_GETROMFONT
  315.     PARAMETER (VGFI_GETCURFONT     =0)
  316.     PARAMETER (VGFI_GETROMFONT     =1)
  317.  
  318.     INTEGER*2 VioGetFont[EXTERN]
  319.     INTEGER*2 VioSetFont[EXTERN]
  320.     INTEGER*2 VioGetCp[EXTERN]
  321.     INTEGER*2 VioSetCp[EXTERN]
  322.  
  323.     STRUCTURE/VIOSTATE/
  324.        INTEGER*2 cb
  325.        INTEGER*2 type
  326.        UNION
  327.           MAP                              ! if "type" = 0
  328.              INTEGER*2 iFirst
  329.              INTEGER*2 acolor(16)
  330.           END MAP
  331.           MAP                              ! if "type" = 1
  332.              INTEGER*2 color
  333.           END MAP
  334.           MAP                              ! if "type" = 2
  335.              INTEGER*2 fs
  336.           END MAP
  337.        END UNION
  338.     END STRUCTURE
  339.  
  340.     INTEGER*2 VioGetState[EXTERN]
  341.     INTEGER*2 VioSetState[EXTERN]
  342.  
  343. $ENDIF     ! INCL_VIO
  344.  
  345. $IF defined(INCL_MOU)
  346.  
  347.     INTEGER*2 MouRegister[EXTERN]
  348.  
  349.     INTEGER*4 MR_MOUGETNUMBUTTONS, MR_MOUGETNUMMICKEYS, 
  350.      +  MR_MOUGETDEVSTATUS, MR_MOUGETNUMQUEEL, MR_MOUREADEVENTQUE,
  351.      +  MR_MOUGETSCALEFACT, MR_MOUGETEVENTMASK, MR_MOUSETSCALEFACT,
  352.      +  MR_MOUSETEVENTMASK, MR_MOUOPEN, MR_MOUCLOSE, MR_MOUGETPTRSHAPE,
  353.      +  MR_MOUSETPTRSHAPE, MR_MOUDRAWPTR, MR_MOUREMOVEPTR, 
  354.      +  MR_MOUGETPTRPOS, MR_MOUSETPTRPOS, MR_MOUINITREAL,
  355.      +  MR_MOUSETDEVSTATUS
  356.  
  357.     PARAMETER (MR_MOUGETNUMBUTTONS =#00000001)
  358.     PARAMETER (MR_MOUGETNUMMICKEYS =#00000002)
  359.     PARAMETER (MR_MOUGETDEVSTATUS  =#00000004)
  360.     PARAMETER (MR_MOUGETNUMQUEEL   =#00000008)
  361.     PARAMETER (MR_MOUREADEVENTQUE  =#00000010)
  362.     PARAMETER (MR_MOUGETSCALEFACT  =#00000020)
  363.     PARAMETER (MR_MOUGETEVENTMASK  =#00000040)
  364.     PARAMETER (MR_MOUSETSCALEFACT  =#00000080)
  365.     PARAMETER (MR_MOUSETEVENTMASK  =#00000100)
  366.     PARAMETER (MR_MOUOPEN          =#00000800)
  367.     PARAMETER (MR_MOUCLOSE         =#00001000)
  368.     PARAMETER (MR_MOUGETPTRSHAPE   =#00002000)
  369.     PARAMETER (MR_MOUSETPTRSHAPE   =#00004000)
  370.     PARAMETER (MR_MOUDRAWPTR       =#00008000)
  371.     PARAMETER (MR_MOUREMOVEPTR     =#00010000)
  372.     PARAMETER (MR_MOUGETPTRPOS     =#00020000)
  373.     PARAMETER (MR_MOUSETPTRPOS     =#00040000)
  374.     PARAMETER (MR_MOUINITREAL      =#00080000)
  375.     PARAMETER (MR_MOUSETDEVSTATUS  =#00100000)
  376.  
  377.     INTEGER*2 MouDeRegister[EXTERN]
  378.  
  379.     INTEGER*2 MHK_BUTTON1, MHK_BUTTON2, MHK_BUTTON3
  380.     PARAMETER (MHK_BUTTON1         =#0001)
  381.     PARAMETER (MHK_BUTTON2         =#0002)
  382.     PARAMETER (MHK_BUTTON3         =#0004)
  383.  
  384. C   structure for MouGet/SetPtrPos()
  385.     STRUCTURE/PTRLOC/
  386.        INTEGER*2 row
  387.        INTEGER*2 col
  388.     END STRUCTURE
  389.  
  390.     INTEGER*2 MouGetPtrPos[EXTERN]
  391.     INTEGER*2 MouSetPtrPos[EXTERN]
  392.  
  393. C   structure for MouGet/SetPtrShape()
  394.     STRUCTURE/PTRSHAPE/
  395.        INTEGER*2 cb
  396.        INTEGER*2 col
  397.        INTEGER*2 row
  398.        INTEGER*2 colHot
  399.        INTEGER*2 colRow
  400.     END STRUCTURE
  401.  
  402.     INTEGER*2 MouSetPtrShape[EXTERN]
  403.     INTEGER*2 MouGetPtrShape[EXTERN]
  404.     INTEGER*2 MouGetDevStatus[EXTERN]
  405.     INTEGER*2 MouGetNumButtons[EXTERN]
  406.     INTEGER*2 MouGetNumMickeys[EXTERN]
  407.  
  408. C   structure for MouReadEventQue()
  409.     STRUCTURE/MOUEVENTINFO/
  410.        INTEGER*2 fs
  411.        INTEGER*4 time
  412.        INTEGER*2 row
  413.        INTEGER*2 col
  414.     END STRUCTURE
  415.  
  416.     INTEGER*2 MouReadEventQue[EXTERN]
  417.  
  418. C   structure for MouGetNumQueEl()
  419.     STRUCTURE/MOUQUEINFO/
  420.        INTEGER*2 cEvents
  421.        INTEGER*2 cmaxEvents
  422.     END STRUCTURE
  423.  
  424.     INTEGER*2 MouGetNumQueEl[EXTERN]
  425.     INTEGER*2 MouGetEventMask[EXTERN]
  426.     INTEGER*2 MouSetEventMask[EXTERN]
  427.  
  428. C   structure for MouGet/SetScaleFact()
  429.     STRUCTURE/SCALEFACT/
  430.        INTEGER*2 rowScale
  431.        INTEGER*2 colScale
  432.     END STRUCTURE
  433.  
  434.     INTEGER*2 MouGetScaleFact[EXTERN]
  435.     INTEGER*2 MouSetScaleFact[EXTERN]
  436.     INTEGER*2 MouOpen[EXTERN]
  437.     INTEGER*2 MouClose[EXTERN]
  438.  
  439. C   structure for MouRemovePtr()
  440.     STRUCTURE/NOPTRRECT/
  441.        INTEGER*2 row
  442.        INTEGER*2 col
  443.        INTEGER*2 cRow
  444.        INTEGER*2 cCol
  445.     END STRUCTURE
  446.  
  447.     INTEGER*2 MouRemovePtr[EXTERN]
  448.     INTEGER*2 MouDrawPtr[EXTERN]
  449.  
  450.     INTEGER*2 MOU_NODRAW, MOU_DRAW, MOU_MICKEYS, MOU_PELS
  451.     PARAMETER (MOU_NODRAW      =#0001)
  452.     PARAMETER (MOU_DRAW        =#0000)
  453.     PARAMETER (MOU_MICKEYS     =#0002)
  454.     PARAMETER (MOU_PELS        =#0000)
  455.  
  456.     INTEGER*2 MouSetDevStatus[EXTERN]
  457.     INTEGER*2 MouInitReal[EXTERN]
  458.     INTEGER*2 MouSynch[EXTERN]
  459.  
  460. $ENDIF     ! INCL_MOU
  461.