10 GOSUB15:FORI=1TO300:NEXT:RUN
15 READA:POKE54296,A:READA:POKE54274,A
20 READA:POKE54275,A:READA:POKE54277,A
25 READA:POKE54278,A:READRE:AT=RE+1
30 FORI=0TO1STEP0:READA:IFA=-1THEN55
35 POKE54272,A:READA:POKE54273,A
40 READA:POKE54276,AT:FORJ=0TOA:NEXT
45 READA:POKE54276,RE:FORJ=0TOA:NEXT
50 NEXTI:RETURN
55 I=1:GOTO50