* code copyright 1998 by brian zhou irrational of think productions *
* remove these comments and you shall meet your death *
* things marked with xs are called automatically *
* this is just a list of functions/constants in the unit, ir-stuff.tpu*
* rename ir-stuff.tpu to stuff.tpu *
* turbo pascal v7.0/7.1 compatible *
Function LoStrS : String : String convert string to lower case
Function UpStrS : String : String convert string to upper case
Function detShare : Boolean detect share
Procedure VGASetBlinkBlinkMode : Boolean xinitialize adf
Procedure Set8x16Font xset to adf font
Procedure DisplayADFFilename : String display *.adf files
Function ShiftState : Byte xchecks the shiftstate of keys
Function AltKey : Boolean checks if alt is pressed
Function Hex2Byte HexByte : String : Byte convert hex to byte
Function StrCompStr1, Str2 : String : Booleancompare strings
Function fExistsFN : String : Boolean check if file exists
Procedure ShowCursor show cursor
Procedure HideCursor hide cursor
Procedure enableinterrupts enable interrupts
Procedure disableinterrupts disable interrupts
Const
Keyboard Extended Keys ....
F1 59 CtrlF1 94 AltF1 104 Homekey 71
F2 60 CtrlF2 95 AltF2 105 Endkey 79
F3 61 CtrlF3 96 AltF3 106 PgUp 73
F4 62 CtrlF4 97 AltF4 107 PgDn 81
F5 63 CtrlF5 98 AltF5 108 UpArrow 72
F6 64 CtrlF6 99 AltF6 109 RtArrow 77
F7 65 CtrlF7 100 AltF7 110 DnArrow 80
F8 66 CtrlF8 101 AltF8 111 LfArrow 75
F9 67 CtrlF9 102 AltF9 112 InsertKey 82
F10 68 CtrlF10 103 AltF10 113 DeleteKey 83
AltQ 16 AltA 30 AltZ 44 Alt1 120 ShftF1 84
AltW 17 AltS 31 AltX 45 Alt2 121 ShftF2 85
AltE 18 AltD 32 AltC 46 Alt3 122 ShftF3 86
AltR 19 AltF 33 AltV 47 Alt4 123 ShftF4 87
AltT 20 AltG 34 AltB 48 Alt5 124 ShftF5 88
AltY 21 AltH 35 AltN 49 Alt6 125 ShftF6 89
AltU 22 AltJ 36 AltM 50 Alt7 126 ShftF7 90
AltI 23 AltK 37 AltPlus 78 Alt8 127 ShftF8 91
AltO 24 AltL 38 AltMinus 74 Alt9 128 ShftF9 92
AltP 25 CtrlLf 115 Alt0 129 ShftF10 93
CtrlRt 116
CtrlA 1 CtrlK 11 CtrlU 21 CtrlB 2 CtrlL 12
CtrlV 22 CtrlC 3 CtrlM 13 CtrlW 23 CtrlD 4
CtrlN 14 CtrlX 24 CtrlE 5 CtrlO 15 CtrlY 25
CtrlF 6 CtrlP 16 CtrlZ 26 CtrlG 7 CtrlQ 17
CtrlS 19 CtrlH 8 CtrlR 18 CtrlI 9 CtrlJ 10
CtrlT 20 BkSpace 8 Escape 27 Enter 13 Null 0
Space 32