home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / flow / exam16.dba < prev    next >
Encoding:
Text File  |  2000-01-25  |  577 b   |  19 lines
  1. Rem * Title  : Using CL$()
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st January 2000
  4. rem ===========================================================
  5. rem DARK BASIC EXAMPLE PROGRAM 16
  6. rem ===========================================================
  7. rem This program will show you how to use the CL$() command
  8. rem -----------------------------------------------------------
  9.  
  10. rem Decide what display depth to use
  11. depth=16
  12. if cl$()="-d16" then depth=16
  13. if cl$()="-d24" then depth=24
  14. if cl$()="-d32" then depth=32
  15. set display mode 640,480,depth
  16.  
  17. rem End of program
  18. end
  19.