home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1052 / demo1.bas < prev    next >
BASIC Source File  |  1993-06-17  |  733b  |  22 lines
  1. '* ************************************************************ *
  2. '* Demo1.bas For QuickBASIC                                     *
  3. '*                                                              *
  4. '* QGCAR.XGF was created by saving the image as QC/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.