home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / TILER.ZIP / DEMO.ZIP / DEMODRAW.BAS next >
BASIC Source File  |  1992-02-24  |  468b  |  20 lines
  1. '    When it opens the file it reads drive C.
  2. '    If you are running it off a different drive
  3. '  then change the drive.
  4.  
  5.  
  6. OPTION BASE 1  'Make arrays start at 1
  7.  
  8. DIM pict%(500)  'Array to hold tile
  9.  
  10. OPEN "C:\TILER\DEMO\FIGHTY.CLP" FOR BINARY AS #1 LEN = 2  'Open file
  11.  
  12. FOR ctr% = 1 TO 244 STEP 2
  13.         GET #1, (ctr%), pict%((ctr% + 1) / 2)  'Fill array
  14. NEXT ctr%
  15.  
  16. SCREEN 13  'Change screen mode
  17.  
  18. PUT (100, 100), pict%, PSET  'Put tile on screen
  19.  
  20.