5748385 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n fndmem12.bas
   1: DIM s AS LONG
   2: SCREEN 12
   3: PSET (0, 0), 10
   4: DEF SEG = -65536
   5: s = -65535
   6: OPEN "OUT.TXT" FOR BINARY AS #1
   7: FOR w = 1 TO 5
   8: s = s + (q# - 1)
   9: DEF SEG = s
  10: FOR q# = 0 TO 35535
  11: x = PEEK(q#)
  12: d$ = CHR$(x)
  13: PUT #1, , d$
  14: NEXT q#
  15: NEXT w
  16: 
  17: CLOSE 1
  18:
5748386 [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:02:59