'
'    MPLIB.BAS
'
'    (c) Michel Poirier
'    MIDICOM, Montreal MIDI BBS
'    Fido 167/111, (514) 744-7354
'
'    A small Tutorial on how to use MPLIB.QLB & MPLIB.LIB
'    will be available shortly on MIDICOM.
'
'    $INCLUDE: 'MPLIB.INC'
'
' -------------------------------------------------------------------

DEFINT A-Z
SCREEN 0, 0, 0
KEY OFF
COLOR 7, 0, 0
CLS


DisplayHead "This is a demo of MPLIB, hope you like it..."

KEY 1, "F": Menu(1) = "Files"
KEY 2, "E": Menu(2) = "Edit"
KEY 3, "": Menu(3) = ""
KEY 4, "": Menu(4) = ""
KEY 5, "": Menu(5) = ""
KEY 6, "": Menu(6) = ""
KEY 7, "": Menu(7) = ""
KEY 8, "": Menu(8) = ""
KEY 9, "": Menu(9) = ""
KEY 10, "Q": Menu(10) = "Quit"

DisplayMenu


' -------------------------------------------------------------------
'
'    OpenWindow (Row%, Col%, Height%, Width%)
'    CloseWindow ()
'
'    For Hercules Monochrome Cards or compatible only !
'
'    An update for CGA & EGA will come soon... It will
'    come sooner if I get requests...
'
' -------------------------------------------------------------------

OpenWindow 3, 10, 12, 46

LOCATE 3, 10: PRINT "You can open up to 32 Windows !"

ErrorMessage "It is easy"

CloseWindow


' -------------------------------------------------------------------
'
'    FindFirst (AddFilename%, AddBuffer%, ErrorCode%)
'    FindNext (AddBuffer%, ErrorCode%)
'
' -------------------------------------------------------------------

ErrorCode = 0
Filename$ = "*.*" + CHR$(0)

FindFirst SADD(Filename$), VARPTR(DirEntry), ErrorCode

IF ErrorCode = 0 THEN
     DO
     PRINT LEFT$(DirEntry.Fname, INSTR(DirEntry.Fname, CHR$(0)) - 1),
     FindNext VARPTR(DirEntry), ErrorCode
     LOOP UNTIL ErrorCode <> 0
END IF