home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / menu / mplib / mplib.bas next >
Encoding:
BASIC Source File  |  1988-11-10  |  1.7 KB  |  78 lines
  1. '
  2. '    MPLIB.BAS
  3. '
  4. '    (c) Michel Poirier
  5. '    MIDICOM, Montreal MIDI BBS
  6. '    Fido 167/111, (514) 744-7354
  7. '
  8. '    A small Tutorial on how to use MPLIB.QLB & MPLIB.LIB
  9. '    will be available shortly on MIDICOM.
  10. '
  11. '    $INCLUDE: 'MPLIB.INC'
  12. '
  13. ' -------------------------------------------------------------------
  14.  
  15. DEFINT A-Z
  16. SCREEN 0, 0, 0
  17. KEY OFF
  18. COLOR 7, 0, 0
  19. CLS
  20.  
  21.  
  22. DisplayHead "This is a demo of MPLIB, hope you like it..."
  23.  
  24. KEY 1, "F": Menu(1) = "Files"
  25. KEY 2, "E": Menu(2) = "Edit"
  26. KEY 3, "": Menu(3) = ""
  27. KEY 4, "": Menu(4) = ""
  28. KEY 5, "": Menu(5) = ""
  29. KEY 6, "": Menu(6) = ""
  30. KEY 7, "": Menu(7) = ""
  31. KEY 8, "": Menu(8) = ""
  32. KEY 9, "": Menu(9) = ""
  33. KEY 10, "Q": Menu(10) = "Quit"
  34.  
  35. DisplayMenu
  36.  
  37.  
  38. ' -------------------------------------------------------------------
  39. '
  40. '    OpenWindow (Row%, Col%, Height%, Width%)
  41. '    CloseWindow ()
  42. '
  43. '    For Hercules Monochrome Cards or compatible only !
  44. '
  45. '    An update for CGA & EGA will come soon... It will
  46. '    come sooner if I get requests...
  47. '
  48. ' -------------------------------------------------------------------
  49.  
  50. OpenWindow 3, 10, 12, 46
  51.  
  52. LOCATE 3, 10: PRINT "You can open up to 32 Windows !"
  53.  
  54. ErrorMessage "It is easy"
  55.  
  56. CloseWindow
  57.  
  58.  
  59. ' -------------------------------------------------------------------
  60. '
  61. '    FindFirst (AddFilename%, AddBuffer%, ErrorCode%)
  62. '    FindNext (AddBuffer%, ErrorCode%)
  63. '
  64. ' -------------------------------------------------------------------
  65.  
  66. ErrorCode = 0
  67. Filename$ = "*.*" + CHR$(0)
  68.  
  69. FindFirst SADD(Filename$), VARPTR(DirEntry), ErrorCode
  70.  
  71. IF ErrorCode = 0 THEN
  72.      DO
  73.      PRINT LEFT$(DirEntry.Fname, INSTR(DirEntry.Fname, CHR$(0)) - 1),
  74.      FindNext VARPTR(DirEntry), ErrorCode
  75.      LOOP UNTIL ErrorCode <> 0
  76. END IF
  77.  
  78.