5748359 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n fndmem13.bas
   1: DIM s AS LONG
   2: SCREEN 12
   3: FOR z = 1 TO 100
   4: FOR w = 1 TO 100
   5: PSET (w, z), 10
   6: NEXT w, z
   7: DEF SEG = -65536
   8: s = -65536
   9: OPEN "OUT1.BIN" FOR BINARY AS #1
  10: FOR q# = s TO ABS(s) - 1
  11: DEF SEG = q#
  12: x = PEEK(0)
  13: d$ = CHR$(x)
  14: PUT #1, , d$
  15: NEXT q#
  16: CLOSE 1
  17:
5748360 [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:03:00