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