DECLARE FUNCTION kbALT% ()
DECLARE FUNCTION kbCTRL% ()
DECLARE FUNCTION kbSHIFT% ()
DECLARE FUNCTION kbLSHIFT% ()
DECLARE FUNCTION kbRSHIFT% ()
DECLARE FUNCTION kbScan% (k AS INTEGER)
DECLARE FUNCTION kbScanKey$ (code%)
DECLARE FUNCTION lstHotKey% (Array() AS ANY, Info AS ANY, kb$)
DECLARE FUNCTION Main.List% (Array() AS ANY, Info AS ANY)
DECLARE FUNCTION Main.Menu% (Max AS ANY, MenuIdx() AS ANY, MenuItem() AS ANY)
DECLARE FUNCTION Main.InputBox$ (Info AS ANY, Text AS STRING)
DECLARE FUNCTION Null% (Text AS STRING)
DECLARE FUNCTION mnuHotKey$ (Idx%, ptr%, State%, KeyHit$, MenuIdx() AS ANY, MenuItem() AS ANY, Info AS ANY)
DECLARE FUNCTION scrAlert$ (Title AS STRING, Text AS STRING, MaxWidth AS INTEGER, Height AS INTEGER)
DECLARE FUNCTION txtWidth% (pRow AS INTEGER, Info AS ANY, TBoxPtr() AS INTEGER, TBoxTxt AS STRING)
DECLARE FUNCTION txtLoad$ (FileName AS STRING)

DECLARE SUB DirList (Array() AS STRING, parent AS STRING, ReturnValue AS INTEGER, FileName AS STRING)
DECLARE SUB btnPrintItem (Array() AS ANY, Item AS INTEGER, High AS INTEGER)
DECLARE SUB inpPrintItem (Info AS ANY)
DECLARE SUB kbFlush ()
DECLARE SUB lstLoad (Array() AS ANY, Info AS ANY)
DECLARE SUB lstMaxData (Info AS ANY)
DECLARE SUB lstShow (Array() AS ANY, Info AS ANY, ItemsOnly%)
DECLARE SUB lstPrintItem (Array AS ANY, Info AS ANY, Highlight AS INTEGER)
DECLARE SUB lstResize (Array() AS ANY, Info AS ANY)
DECLARE SUB Main.Button (Array() AS ANY, Info AS ANY)
DECLARE SUB Main.TextBox (Info AS ANY, TBoxPtr() AS INTEGER, TBoxArr() AS STRING, TBoxTxt AS STRING)
DECLARE SUB mnuLoad (Info AS ANY, MenuIdx() AS ANY, MenuItem() AS ANY)
DECLARE SUB mnuMaxData (Info AS ANY)
DECLARE SUB mnuPrintItem (Idx%, ptr%, State%, MenuIdx() AS ANY, MenuItem() AS ANY)
DECLARE SUB mnuPrintMenu (Idx%, MenuIdx() AS ANY, MenuItem() AS ANY)
DECLARE SUB mnuShow (Info AS ANY, MenuIdx() AS ANY, MenuItem() AS ANY)
DECLARE SUB scrBox (Row1%, Col1%, Row2%, Col2%, Shadow%)
DECLARE SUB scrCursorOn (OnOff%)
DECLARE SUB scrCurtain ()
DECLARE SUB scrPrint (ch%, Fore%, Back%)
DECLARE SUB txtFill (Info AS ANY, TBoxTxt AS STRING, TBoxPtr() AS INTEGER, TBoxArr() AS STRING)
DECLARE SUB txtPrintItem (Info AS ANY, TBoxPtr() AS INTEGER, TBoxArr() AS STRING)
DECLARE SUB txtShow (Info AS ANY, TBoxPtr() AS INTEGER, TBoxArr() AS STRING)
DECLARE SUB txtSave (Info AS ANY, Text AS STRING)

TYPE CornerType
   T AS INTEGER
   B AS INTEGER
   L AS INTEGER
   R AS INTEGER
END TYPE

TYPE TextBoxType
   Corner AS CornerType
   Top AS INTEGER
   Row AS INTEGER
   Col AS INTEGER
   Cursor AS INTEGER
   MaxLines AS INTEGER
   Insert AS INTEGER
   Shadow AS INTEGER
   FileName AS STRING * 12
END TYPE

TYPE MenuGroupType
   FileName AS STRING * 12
   Idx AS INTEGER
   Item AS INTEGER
END TYPE
TYPE MenuIdxType
   Label AS STRING * 10
   IdxColumn AS INTEGER
   IdxStart AS INTEGER
   MaxItem AS INTEGER
   MaxWidth AS INTEGER
   StartCol AS INTEGER
   ShortKey AS INTEGER
   Disabled AS INTEGER
END TYPE
TYPE MenuItemType
   Label AS STRING * 25
   ShortKey AS INTEGER
   Disabled AS INTEGER
   Bullet AS INTEGER
END TYPE

TYPE InputType
   Corner AS CornerType
   Shadow AS INTEGER
   Caption AS STRING * 20
   Text AS STRING * 20
   Border AS INTEGER
   Maxlen AS INTEGER
END TYPE

TYPE ButtonGroupType
   Selected AS INTEGER
   Current AS INTEGER
   Count AS INTEGER
END TYPE
TYPE ButtonItemType
   Caption AS STRING * 10
   HotKey AS INTEGER
   Row AS INTEGER
   Col AS INTEGER
END TYPE

TYPE ListBoxGroupType
   Title AS STRING * 20
   Corner AS CornerType
   Shadow AS INTEGER
   ListType AS INTEGER
   NoBorder AS INTEGER
   FileName AS STRING * 12
   MaxSet AS INTEGER
   ItemCount AS INTEGER
   ItemCurrent AS INTEGER
   ItemTop AS INTEGER
   ColCurrent AS INTEGER
   ColMulti AS INTEGER
   ColWidth AS INTEGER
   ColCount AS INTEGER
   ColShow AS INTEGER
   ColTop AS INTEGER
   VScrollBar AS INTEGER
   HScrollBar AS INTEGER
END TYPE
TYPE ListBoxItemType
   Caption AS STRING * 80
   HotKey AS INTEGER
   ItemCurrent AS INTEGER
   ListType AS INTEGER
   Row AS INTEGER
   Col AS INTEGER
END TYPE

DEFINT A-Z
DEF SEG = 0
WIDTH 80, 25
OPTION BASE 0
CONST TRUE = -1, FALSE = 0
CONST cstHOME = 71, cstEND = 79, cstINSERT = 82, cstDELETE = 83
CONST cstUP = 72, cstDOWN = 80, cstLEFT = 75, cstRIGHT = 77
CONST cstESC = 27, cstPGUP = 73, cstPGDN = 81
CONST cstTAB = 9, cstBKSP = 8, cstENTER = 13, cstSPACE = 32
CONST LO = 0, LOMED = 1, HIMED = 2, HI = 3
CONST BREAK = 0, ROOT = 0
CONST cstNONE = 0, cstOPT = 1, cstCHECK = 2