start tok64 d64-txKgZb 10 REM ******************************** 20 REM **** clr/home disabler **** 30 REM ******************************** 40 PRINT"{clear}please wait{.*3}":ad=828 50 FORa=.TO61 52 READda:POKEad+a,da:ch=ch+da 54 NEXT 60 IFch<>7387THENPRINT"data error{up}":END 70 PRINT"{clear}{down}{reverse on}clr/home disabler 80 PRINT"{down}by johan lindesv[rd 90 PRINT"{down}start{space*3}-{space*2}sys828 100 PRINT"stop{space*4}-{space*2}runstop/restore 110 PRINT"ctrl+e{space*2}-{space*2}enable clr/home 120 PRINT"ctrl+d{space*2}-{space*2}disable clr/home 140 DATA120,169,73,141,143,2,169,3,141,144,2,88,96,165,212,201,1,240,10,165,203 150 DATA201,64,208,7,169,64,133,203,76,72,235,173,141,2,201,4,208,246,165,203 160 DATA201,18,208,5,169,51,76,116,3,201,14,208,231,169,64,141,82,3,76,85,3 stop tok64 (bastext 1.0)