start bastext 1025 start tok64 d64-dyOEsd 5 REM ***-------[ swap demo ]---------** 6 SWITCH12,0 10 PRINT"{clear}{space*11}press any key" 30 PRINT"{home}";:MOVE1,55296TO56296:REM ** put the color white over screen ** 40 GETa$:IFa$=""GOTO40:REM ** wait for a key to be hit ** 50 PRINT"{home}"a$;:BRD&BKGPEEK(33792)FORPEEK(33793):REM ** swap new character for old * 60 GOTO40: REM ** keep looping ** stop tok64 (bastext 1.0)