'
'    MPLIB.INC
'  
'    Standard Header for all my programs.
'
' ---------------------------------------------------------

DECLARE SUB DisplayHead (Head$)
DECLARE SUB DisplayMenu ()
DECLARE SUB MarkChoice (Choice%)
DECLARE SUB UnmarkChoice (Choice%)

DECLARE SUB DisplayMessage (Msg$)
DECLARE SUB ErrorMessage (Msg$)
DECLARE SUB EraseMessage ()

DECLARE SUB TextInput (Prompt$, MaxLenght%, Reply$, Esc%)
DECLARE SUB NumberInput (Prompt$, Min%, Max%, Init%, Esc%)

DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
DECLARE SUB InitMouse (MouseExist%)
DECLARE SUB HideMouse ()
DECLARE SUB ShowMouse ()

DECLARE SUB OpenWindow (Row%, Col%, Hauteur%, Largeur%)
DECLARE SUB CloseWindow ()
DECLARE SUB OWindow (AddressOfParameters%, AddressOfBuffer%)
DECLARE SUB CWindow (AddressOfParameters%, AddressOfBuffer%)
DECLARE SUB Scroll (Starty%, Startx%, Endy%, Endx%, Count%, Dir%)
DECLARE SUB Display (Row%, Col%, Lenght%, StringAddress%, Attrib%)

DECLARE SUB FindFirst (AddFilename%, AddBuffer%, ErrorCode%)
DECLARE SUB FindNext (AddBuffer%, ErrorCode%)
DECLARE SUB Exist (AddFilename%, ErrorCode%)

DECLARE SUB SendCmd (Command%, Acknowledge%)
DECLARE SUB ReadData (NumberOfBytes%, BufferAddress%)
DECLARE SUB SendData (NumberOfBytes%, StringAddress%)
DECLARE SUB EnableIRQ2 ()
DECLARE SUB DisableIRQ2 ()
DECLARE SUB DumpBuffer (BufferPointer%, AddressOfBuffer%)

' -------------------------------------------------------------------

DEFINT A-Z

CONST False = 0, True = -1
CONST Up = 6, Down = 7

TYPE DirBuffer
     DOS      AS STRING * 21
     Attr     AS STRING * 1
     Ftime    AS INTEGER
     Fdate    AS INTEGER
     FsizeLSB AS INTEGER
     FsizeMSB AS INTEGER
     Fname    AS STRING * 12
END TYPE

DIM DirEntry AS DirBuffer

DIM Buffer AS STRING * 8000
DIM BufferPtr AS INTEGER
DIM Menu(10) AS STRING
DIM BoxPtr(32) AS STRING * 6
DIM BoxBuffer(32) AS STRING

COMMON SHARED MouseExist AS INTEGER
COMMON SHARED BoxNumber AS INTEGER
COMMON SHARED Menu() AS STRING
COMMON SHARED BoxPtr() AS STRING * 6
COMMON SHARED BoxBuffer() AS STRING