10 IFA=0THENA=1:LOAD"BALLCH*",8,1
20 IFA=1THENA=2:LOAD"BALL+*",8,1
30 IFA=2THENA=3:LOAD"BALLSC*",8,1
40 IFA=3THENA=4:LOAD"BALLBA*",8,1
50 POKE53272,(PEEK(53272)AND240)OR2
60 POKE53270,PEEK(53270)OR16
70 POKE53281,14:POKE53282,9:POKE53283,8
80 SYS49152
90 P=130:Q=P:POKE53250,P:POKE53251,Q:POKE2041,52:POKE53288,13:POKE53277,2
100 POKE53269,2
110 GOSUB120:GOTO110
120 GETA$:IFA$="[145]"THENP=P-2:POKE53251,P:IFP<2THENP=255:RETURN
130 IFA$=""THENP=(P+2)AND255:POKE53251,P:RETURN
140 IFA$="[157]"THENQ=Q-10:GOSUB170:POKE53250,Q:POKE53264,QQ:POKE53269,3:RETURN
150 IFA$=""THENQ=(Q+10):GOSUB190:POKE53264,QQ:POKE53250,Q:POKE53269,3
160 RETURN
170 QQ=PEEK(53264):IF(Q<0ANDQQ)THENQQ=0:Q=253:POKE53269,1:RETURN
180 IF(Q<0ANDQQ=0)THENQ=90:QQ=2:RETURN
190 QQ=PEEK(53264):IF(Q>90ANDQQ)THENQQ=0:Q=0:POKE53269,1:RETURN
200 IF(Q>255ANDQQ=0)THENQ=0:QQ=2:POKE53269,1
210 RETURN