(* code copyright 1998 by brian zhou (irrational) of think productions *)
(* remove these comments and you shall meet your death *)
(* things marked with x's 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 LoStr(S : String) : String;          { convert string to lower case }
Function UpStr(S : String) : String;          { convert string to upper case }
Function detShare : Boolean;                  { detect share                 }
Procedure VGA_SetBlink(BlinkMode : Boolean);  {xinitialize adf               }
Procedure Set8x16Font;                        {xset to adf font              }
Procedure DisplayADF(Filename : 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 StrComp(Str1, Str2 : String) : Boolean;{compare strings             }
Function fExists(FN : String) : Boolean;      { check if file exists         }
Procedure ShowCursor;                         { show cursor                  }
Procedure HideCursor;                         { hide cursor                  }
Procedure enable_interrupts;                  { enable interrupts            }
Procedure disable_interrupts;                 { 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;
SAUCE00stuff tpu unit dox                 irrational          think               9980126ź                                    