start tok64 d64-6hwMn4
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)