home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / RM08.ZIP / DEMO1.BAS next >
Encoding:
BASIC Source File  |  1993-01-27  |  733 b   |  22 lines
  1. '* ************************************************************ *
  2. '* Demo1.bas For QuickBASIC                                     *
  3. '*                                                              *
  4. '* QGCAR.XGF was created by saving the image as QP/QB (Binary)  *
  5. '* from Raster Master.                                          *
  6. '* ************************************************************ *
  7.  
  8.  OPTION BASE 1
  9.  DEFINT A-Z
  10.       
  11.  OPEN "QGCAR.XGF" FOR BINARY AS #1
  12.  myArraySize = LOF(1) / 2
  13.  DIM myImage(myArraySize)
  14.  FOR i = 1 TO myArraySize
  15.    GET #1, , myImage(i)
  16.  NEXT i
  17.  CLOSE #1
  18.  
  19.  SCREEN 7                          'SCREEN 13 for 256 color images
  20.  LINE (0, 0)-(319, 199), 1, BF
  21.  PUT (0, 0), myImage, PSET
  22.