1 GOTO 10
3 A=PEEK(56576)AND 4
4 IF A=0 THEN POKE 56576,151
5 IF A=4 THEN POKE 56576,147
6 A=PEEK(56589):IF A=0 THEN GOTO 6
7 A=PEEK(56577)
8 RETURN
10 POKE 56579,0
20 POKE 56578,PEEK(56578)OR4
30 POKE 56576,PEEK(56576)OR4
40 A=PEEK(56589)
50 GOSUB 3:AO=A:GOSUB 3:AO=AO+256*A
60 GOSUB 3:LO=A:GOSUB 3:LO=LO+256*A
65 PRINT "< CLR >":PRINT AO,LO
70 AO=AO+47103:LO=LO+47103
80 TS=0:LA=0
90 GOSUB 3:POKE AO,A:TS=TS+A:IF TS>255 THEN TS=TS-256
95 PRINT"< HOME >< 2 DOWN >":PRINT AO-47103
100 AO=AO+1:IF AO=LO THEN GOTO 2000
110 LA=LA+1:IF LA=256 THEN GOTO 2000
120 GOTO 90
2000 GOSUB 3
2010 IF A<>TS THEN B=80
2020 IF A=TS THEN B=160
2030 GOSUB 3
2040 POKE 56579,240:POKE 56577,B
2050 GOSUB 3:POKE 56579,0
2060 A=PEEK(56576)AND 4
2070 IF A=0 THEN POKE 56576,151
2080 IF A=4 THEN POKE 56576,147
2085 A=PEEK(56589):IF A=0 THEN GOTO 2085
2090 IF B=160 THEN GOSUB 3000
2100 IF B=80 THEN GOSUB 4000
2110 GOTO 80
3000 IF AO=LO THEN GOTO 5000
3010 RETURN
4000 IF AO<>LO THEN AO=AO-256
4010 IF AO=LO THEN AO=AO-LA
4020 RETURN
5000 POKE 56576,PEEK(56576)OR 4
5010 POKE 254,INT((LO-47103)/256)
5020 POKE 253,LO-47103-256*(PEEK(254))