home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / input / exam04.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  806 b   |  37 lines

  1. Rem * Title  : Checklist File View
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st Sept 99
  4. rem ===========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 4
  6. rem ===========================================
  7. rem This program is a checklist file viewer
  8. rem -------------------------------------------
  9.  
  10. rem Clear the screen
  11. cls
  12.  
  13. rem List files within checklist
  14. perform checklist for files
  15. print "Files in directory:"
  16. for t=1 to checklist quantity()
  17. print checklist string$(t)
  18. next t
  19. print
  20. print "Press Any Key"
  21.  
  22. rem Wait for key press
  23. suspend for key
  24.  
  25. rem Clear the screen
  26. cls
  27.  
  28. rem List available drives within checklist
  29. perform checklist for drives
  30. print "Available drives:"
  31. for t=1 to checklist quantity()
  32. print checklist string$(t)
  33. next t
  34.  
  35. rem End the program
  36. end
  37.