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
100 DATA 15,0,6,10,9,64
110 DATA 59,23,108,158,59,23,107,236
120 DATA 69,29,45,96,206,34,406,190
130 DATA 206,34,76,190,218,32,170,205
140 DATA 218,32,76,96,206,34,453,157
150 DATA 69,29,124,205,19,26,201,158
160 DATA 19,26,44,95,156,24,91,174
170 DATA 19,26,122,142,2,31,154,127
180 DATA 69,29,138,112,59,23,594,174
190 DATA 59,23,123,174,69,29,123,174
200 DATA 206,34,374,110,33,39,91,79
210 DATA 206,34,60,80,218,32,91,174
220 DATA 206,34,107,174,33,39,264,111
230 DATA 33,39,92,80,206,34,422,174
240 DATA 69,29,139,190,19,26,138,127
250 DATA 206,34,154,111,218,32,170,95
260 DATA 19,26,154,111,219,43,233,95
270 DATA 33,39,92,79,206,34,485,142
280 DATA 206,34,138,158,206,34,233,126
290 DATA 2,31,92,63,2,31,138,158
300 DATA 69,29,123,174,19,26,154,221
310 DATA 156,24,60,79,19,26,170,127
320 DATA 19,26,107,142,19,26,139,142
330 DATA 160,27,140,157,69,29,328,174
340 DATA 59,23,155,143,2,31,154,95
350 DATA 19,26,170,127,206,34,453,174
360 DATA 59,23,123,173,59,23,107,142
370 DATA 59,23,155,158,33,39,421,112
380 DATA 33,39,170,127,2,31,92,80
390 DATA 206,34,107,126,33,39,108,79
400 DATA 206,34,532,127,69,29,123,158
410 DATA 69,29,123,127,69,29,139,159
420 DATA 2,31,406,127,19,26,76,63
430 DATA 19,26,138,173,160,27,91,174
440 DATA 69,29,500,174,59,23,107,206
450 DATA 59,23,76,96,69,29,107,173
460 DATA 206,34,76,111,118,46,374,174
470 DATA 219,43,123,190,33,39,92,96
480 DATA 2,31,107,173,33,39,77,80
490 DATA 206,34,484,110,69,29,123,174
500 DATA 69,29,123,126,69,29,107,174
510 DATA 206,34,421,112,2,31,107,47
520 DATA 69,29,138,111,19,26,170,127
530 DATA 59,23,468,0
540 DATA -1