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

  1. Rem * Title  : Simple File Viewer
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st Sept 99
  4. rem ===========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 3
  6. rem ===========================================
  7. rem This program is a simple file system viewer
  8. rem -------------------------------------------
  9.  
  10. rem Clear the screen
  11. cls
  12.  
  13. rem List files in current directory
  14. print "Files in directory:"
  15. dir
  16. print
  17. print "Press Any Key"
  18.  
  19. rem Wait for key press
  20. suspend for key
  21.  
  22. rem Clear the screen
  23. cls
  24.  
  25. rem List available drives
  26. print "Available drives:"
  27. drivelist
  28.  
  29. rem End the program
  30. end
  31.