5748332 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n qbanim.bas
   1: DIM x AS STRING * 1
   2: DIM y AS STRING * 1
   3: DIM c AS STRING * 1
   4: CLS : LINE INPUT "Filename-->"; f$
   5: OPEN f$ + ".ini" FOR INPUT AS #1: INPUT #1, scr, sx, sy: CLOSE 1: SCREEN scr
   6: OPEN f$ + ".qan" FOR BINARY AS #1
   7: DO UNTIL EOF(1)
   8: GET #1, , x
   9: GET #1, , y
  10: GET #1, , c
  11: PSET (sx + ASC(x), sy + ASC(y)), ASC(c)
  12: LOCATE 10, 1: PRINT ASC(x); ASC(y); ASC(c)
  13: LOOP
  14:
5748333 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:07:33