0 POKE53600,0:POKE53601,0:PRINT"
1 PRINT"
2 PRINT"
3 PRINT"
4 PRINT"
5 PRINT"
6 PRINT"
10 INPUT"";A
20 IFA=1THENX=36864:Y=37147:GOTO1000
30 IFA<10THENA=A−2:X=26642:Y=26937:GOTO1000
40 IFA<20THENA=A−10:X=4109:Y=4115:GOTO1000
50 IFA<23THENA=A−20:X=4096:Y=37607:GOTO1000
60 PRINT"":GOTO10
1000 FORI=0TO24:POKE54272+I,0:NEXT:POKE780,A:SYSX
1010 SYSY:GETA$:IFA$=""THENWAIT53265,128:GOTO1010
1020 POKE54296,0:RUN
READY.