5748393 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n new-1.bas
   1: x& = SETMEM(-500000)
   2: POPUP KEY CHR$(8,30,247)
   3: PRINT ""
   4: 10 POPUP SLEEP USING "C:\MSWAP.Swp"
   5: x%= POS : y% = CSRLIN
   6: DEF SEG = &HB800: SaveScreen$ = PEEK$(0, 4000)
   7: CLS : LOCATE 12, 20
   8: POKE$ 0, SaveScreen$ : LOCATE y%, x%       'restore old screen
   9: goto 10
  10:
5748394 [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:06:15