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: |