bsesub.fi
来自「开放源码的编译器open watcom 1.6.0版的源代码」· FI 代码 · 共 922 行 · 第 1/2 页
FI
922 行
parameter (ANSI_ON = 1)
integer ANSI_OFF
parameter (ANSI_OFF = 0)
external VioSetAnsi
integer*2 VioSetAnsi
external VioGetAnsi
integer*2 VioGetAnsi
external VioPrtSc
integer*2 VioPrtSc
external VioPrtScToggle
integer*2 VioPrtScToggle
integer VSRWI_SAVEANDREDRAW
parameter (VSRWI_SAVEANDREDRAW = 0)
integer VSRWI_REDRAW
parameter (VSRWI_REDRAW = 1)
integer VSRWN_SAVE
parameter (VSRWN_SAVE = 0)
integer VSRWN_REDRAW
parameter (VSRWN_REDRAW = 1)
integer UNDOI_GETOWNER
parameter (UNDOI_GETOWNER = 0)
integer UNDOI_RELEASEOWNER
parameter (UNDOI_RELEASEOWNER = 1)
integer UNDOK_ERRORCODE
parameter (UNDOK_ERRORCODE = 0)
integer UNDOK_TERMINATE
parameter (UNDOK_TERMINATE = 1)
external VioRedrawSize
integer*2 VioRedrawSize
external VioSavRedrawWait
integer*2 VioSavRedrawWait
external VioSavRedrawUndo
integer*2 VioSavRedrawUndo
integer VMWR_POPUP
parameter (VMWR_POPUP = 0)
integer VMWN_POPUP
parameter (VMWN_POPUP = 0)
external VioModeWait
integer*2 VioModeWait
external VioModeUndo
integer*2 VioModeUndo
integer LOCKIO_NOWAIT
parameter (LOCKIO_NOWAIT = 0)
integer LOCKIO_WAIT
parameter (LOCKIO_WAIT = 1)
integer LOCK_SUCCESS
parameter (LOCK_SUCCESS = 0)
integer LOCK_FAIL
parameter (LOCK_FAIL = 1)
external VioScrLock
integer*2 VioScrLock
external VioScrUnLock
integer*2 VioScrUnLock
integer VP_NOWAIT
parameter (VP_NOWAIT = '00000000'x)
integer VP_WAIT
parameter (VP_WAIT = '00000001'x)
integer VP_OPAQUE
parameter (VP_OPAQUE = '00000000'x)
integer VP_TRANSPARENT
parameter (VP_TRANSPARENT = '00000002'x)
external VioPopUp
integer*2 VioPopUp
external VioEndPopUp
integer*2 VioEndPopUp
! VIOCONFIGINFO.adapter constants
integer DISPLAY_MONOCHROME
parameter (DISPLAY_MONOCHROME = '00000000'x)
integer DISPLAY_CGA
parameter (DISPLAY_CGA = '00000001'x)
integer DISPLAY_EGA
parameter (DISPLAY_EGA = '00000002'x)
integer DISPLAY_VGA
parameter (DISPLAY_VGA = '00000003'x)
integer DISPLAY_8514A
parameter (DISPLAY_8514A = '00000007'x)
integer DISPLAY_IMAGEADAPTER
parameter (DISPLAY_IMAGEADAPTER = '00000008'x)
integer DISPLAY_XGA
parameter (DISPLAY_XGA = '00000009'x)
! VIOCONFIGINFO.display constants
integer MONITOR_MONOCHROME
parameter (MONITOR_MONOCHROME = '00000000'x)
integer MONITOR_COLOR
parameter (MONITOR_COLOR = '00000001'x)
integer MONITOR_ENHANCED
parameter (MONITOR_ENHANCED = '00000002'x)
integer MONITOR_8503
parameter (MONITOR_8503 = '00000003'x)
integer MONITOR_851X_COLOR
parameter (MONITOR_851X_COLOR = '00000004'x)
integer MONITOR_8514
parameter (MONITOR_8514 = '00000009'x)
integer MONITOR_FLATPANEL
parameter (MONITOR_FLATPANEL = '0000000A'x)
integer MONITOR_8507_8604
parameter (MONITOR_8507_8604 = '0000000B'x)
integer MONITOR_8515
parameter (MONITOR_8515 = '0000000C'x)
integer MONITOR_9515
parameter (MONITOR_9515 = '0000000F'x)
integer MONITOR_9517
parameter (MONITOR_9517 = '00000011'x)
integer MONITOR_9518
parameter (MONITOR_9518 = '00000012'x)
! structure for VioGetConfig()
structure /VIOCONFIGINFO/
integer*2 cb
integer*2 adapter
integer*2 display
integer*4 cbMemory
integer*2 Configuration
integer*2 VDHVersion
integer*2 Flags
integer*4 HWBufferSize
integer*4 FullSaveSize
integer*4 PartSaveSize
integer*2 EMAdaptersOFF
integer*2 EMDisplaysOFF
end structure
integer VIO_CONFIG_CURRENT
parameter (VIO_CONFIG_CURRENT = 0)
integer VIO_CONFIG_PRIMARY
parameter (VIO_CONFIG_PRIMARY = 1)
integer VIO_CONFIG_SECONDARY
parameter (VIO_CONFIG_SECONDARY = 2)
external VioGetConfig
integer*2 VioGetConfig
! structure for VioGet/SetFont()
structure /VIOFONTINFO/
integer*2 cb
integer*2 type
integer*2 cxCell
integer*2 cyCell
integer*4 pbData
integer*2 cbData
end structure
integer VGFI_GETCURFONT
parameter (VGFI_GETCURFONT = 0)
integer VGFI_GETROMFONT
parameter (VGFI_GETROMFONT = 1)
external VioGetFont
integer*2 VioGetFont
external VioSetFont
integer*2 VioSetFont
external VioGetCp
integer*2 VioGetCp
external VioSetCp
integer*2 VioSetCp
structure /VIOPALSTATE/
integer*2 cb
integer*2 type
integer*2 iFirst
integer*2 acolor(1)
end structure
structure /VIOOVERSCAN/
integer*2 cb
integer*2 type
integer*2 color
end structure
structure /VIOINTENSITY/
integer*2 cb
integer*2 type
integer*2 fs
end structure
structure /VIOCOLORREG/
integer*2 cb
integer*2 type
integer*2 firstcolorreg
integer*2 numcolorregs
integer*4 colorregaddr
end structure
structure /VIOSETULINELOC/
integer*2 cb
integer*2 type
integer*2 scanline
end structure
structure /VIOSETTARGET/
integer*2 cb
integer*2 type
integer*2 defaultalgorithm
end structure
external VioGetState
integer*2 VioGetState
external VioSetState
integer*2 VioSetState
c$endif
c$ifdef INCL_MOU
external MouRegister
integer*2 MouRegister
integer MR_MOUGETNUMBUTTONS
parameter (MR_MOUGETNUMBUTTONS = '00000001'x)
integer MR_MOUGETNUMMICKEYS
parameter (MR_MOUGETNUMMICKEYS = '00000002'x)
integer MR_MOUGETDEVSTATUS
parameter (MR_MOUGETDEVSTATUS = '00000004'x)
integer MR_MOUGETNUMQUEEL
parameter (MR_MOUGETNUMQUEEL = '00000008'x)
integer MR_MOUREADEVENTQUE
parameter (MR_MOUREADEVENTQUE = '00000010'x)
integer MR_MOUGETSCALEFACT
parameter (MR_MOUGETSCALEFACT = '00000020'x)
integer MR_MOUGETEVENTMASK
parameter (MR_MOUGETEVENTMASK = '00000040'x)
integer MR_MOUSETSCALEFACT
parameter (MR_MOUSETSCALEFACT = '00000080'x)
integer MR_MOUSETEVENTMASK
parameter (MR_MOUSETEVENTMASK = '00000100'x)
integer MR_MOUOPEN
parameter (MR_MOUOPEN = '00000800'x)
integer MR_MOUCLOSE
parameter (MR_MOUCLOSE = '00001000'x)
integer MR_MOUGETPTRSHAPE
parameter (MR_MOUGETPTRSHAPE = '00002000'x)
integer MR_MOUSETPTRSHAPE
parameter (MR_MOUSETPTRSHAPE = '00004000'x)
integer MR_MOUDRAWPTR
parameter (MR_MOUDRAWPTR = '00008000'x)
integer MR_MOUREMOVEPTR
parameter (MR_MOUREMOVEPTR = '00010000'x)
integer MR_MOUGETPTRPOS
parameter (MR_MOUGETPTRPOS = '00020000'x)
integer MR_MOUSETPTRPOS
parameter (MR_MOUSETPTRPOS = '00040000'x)
integer MR_MOUINITREAL
parameter (MR_MOUINITREAL = '00080000'x)
integer MR_MOUSETDEVSTATUS
parameter (MR_MOUSETDEVSTATUS = '00100000'x)
external MouDeRegister
integer*2 MouDeRegister
external MouFlushQue
integer*2 MouFlushQue
integer MHK_BUTTON1
parameter (MHK_BUTTON1 = '00000001'x)
integer MHK_BUTTON2
parameter (MHK_BUTTON2 = '00000002'x)
integer MHK_BUTTON3
parameter (MHK_BUTTON3 = '00000004'x)
! structure for MouGet/SetPtrPos()
structure /PTRLOC/
integer*2 row
integer*2 col
end structure
external MouGetPtrPos
integer*2 MouGetPtrPos
external MouSetPtrPos
integer*2 MouSetPtrPos
structure /PTRSHAPE/
integer*2 cb
integer*2 col
integer*2 row
integer*2 colHot
integer*2 rowHot
end structure
external MouSetPtrShape
integer*2 MouSetPtrShape
external MouGetPtrShape
integer*2 MouGetPtrShape
integer MOUSE_QUEUEBUSY
parameter (MOUSE_QUEUEBUSY = '00000001'x)
integer MOUSE_BLOCKREAD
parameter (MOUSE_BLOCKREAD = '00000002'x)
integer MOUSE_FLUSH
parameter (MOUSE_FLUSH = '00000004'x)
integer MOUSE_UNSUPPORTED_MODE
parameter (MOUSE_UNSUPPORTED_MODE = '00000008'x)
integer MOUSE_DISABLED
parameter (MOUSE_DISABLED = '00000100'x)
integer MOUSE_MICKEYS
parameter (MOUSE_MICKEYS = '00000200'x)
external MouGetDevStatus
integer*2 MouGetDevStatus
external MouGetNumButtons
integer*2 MouGetNumButtons
external MouGetNumMickeys
integer*2 MouGetNumMickeys
! MouReadEventQue()
integer MOU_NOWAIT
parameter (MOU_NOWAIT = '00000000'x)
integer MOU_WAIT
parameter (MOU_WAIT = '00000001'x)
! structure for MouReadEventQue()
structure /MOUEVENTINFO/
integer*2 fs
integer*4 time
integer*2 row
integer*2 col
end structure
external MouReadEventQue
integer*2 MouReadEventQue
! structure for MouGetNumQueEl()
structure /MOUQUEINFO/
integer*2 cEvents
integer*2 cmaxEvents
end structure
external MouGetNumQueEl
integer*2 MouGetNumQueEl
! MouGetEventMask()/MouSetEventMask() events
integer MOUSE_MOTION
parameter (MOUSE_MOTION = '00000001'x)
integer MOUSE_MOTION_WITH_BN1_DOWN
parameter (MOUSE_MOTION_WITH_BN1_DOWN = '00000002'x)
integer MOUSE_BN1_DOWN
parameter (MOUSE_BN1_DOWN = '00000004'x)
integer MOUSE_MOTION_WITH_BN2_DOWN
parameter (MOUSE_MOTION_WITH_BN2_DOWN = '00000008'x)
integer MOUSE_BN2_DOWN
parameter (MOUSE_BN2_DOWN = '00000010'x)
integer MOUSE_MOTION_WITH_BN3_DOWN
parameter (MOUSE_MOTION_WITH_BN3_DOWN = '00000020'x)
integer MOUSE_BN3_DOWN
parameter (MOUSE_BN3_DOWN = '00000040'x)
external MouGetEventMask
integer*2 MouGetEventMask
external MouSetEventMask
integer*2 MouSetEventMask
! structure for MouGetScaleFact()/MouSetScaleFact()
structure /SCALEFACT/
integer*2 rowScale
integer*2 colScale
end structure
external MouGetScaleFact
integer*2 MouGetScaleFact
external MouSetScaleFact
integer*2 MouSetScaleFact
external MouOpen
integer*2 MouOpen
external MouClose
integer*2 MouClose
! structure for MouRemovePtr()
structure /NOPTRRECT/
integer*2 row
integer*2 col
integer*2 cRow
integer*2 cCol
end structure
external MouRemovePtr
integer*2 MouRemovePtr
external MouDrawPtr
integer*2 MouDrawPtr
integer MOU_NODRAW
parameter (MOU_NODRAW = '00000001'x)
integer MOU_DRAW
parameter (MOU_DRAW = '00000000'x)
integer MOU_MICKEYS
parameter (MOU_MICKEYS = '00000002'x)
integer MOU_PELS
parameter (MOU_PELS = '00000000'x)
external MouSetDevStatus
integer*2 MouSetDevStatus
external MouInitReal
integer*2 MouInitReal
external MouSynch
integer*2 MouSynch
structure /THRESHOLD/
integer*2 Length
integer*2 Level1
integer*2 Lev1Mult
integer*2 Level2
integer*2 lev2Mult
end structure
external MouGetThreshold
integer*2 MouGetThreshold
external MouSetThreshold
integer*2 MouSetThreshold
c$endif
c$endif
c$reference
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?