5748373 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n fndmem10.bas
   1: DIM s AS LONG
   2: SCREEN 12
   3: PSET (0, 0), 10
   4: DEF SEG = -65536
   5: s = -65535
   6: FOR w = 1 TO 5
   7: s = s + (q# - 1)
   8: DEF SEG = s
   9: FOR q# = 0 TO 35535
  10: x = PEEK(q#)
  11: IF x = 10 THEN
  12: POKE (q#), 11
  13: IF POINT(0, 0) = 11 THEN LOCATE 2, 1: PRINT q#; w; "!" ELSE POKE (q#), 10
  14: END IF
  15: NEXT q#
  16: NEXT w
  17:
5748374 [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:57