0 PRINT"":POKE53600,0:POKE53601,0
100 GOSUB10000
110 PRINT"
115 PRINT"
120 PRINT"
130 PRINT"
140 PRINT"
150 PRINT"
160 PRINT"
170 GOSUB11000
180 GOSUB10000
190 PRINT"
200 PRINT"
210 PRINT"
220 PRINT"
230 PRINT"
240 PRINT"
250 PRINT"
260 PRINT"
270 PRINT"
280 GOSUB11000
290 GOSUB10000
300 PRINT"
310 PRINT"
320 PRINT"
330 PRINT"
340 PRINT"
350 PRINT"
360 PRINT"
370 PRINT"
380 PRINT"
390 PRINT"
400 GOSUB11000
410 GOSUB10000
415 PRINT"";
420 PRINT"
430 PRINT"";
440 PRINT"";
450 PRINT"";
460 PRINT"";
470 PRINT"";
480 PRINT"";
490 PRINT"";
500 PRINT"";
510 PRINT"";
520 PRINT"";
530 PRINT"";
540 PRINT"
550 PRINT"
560 PRINT"
570 GOSUB11000
580 GOSUB10000
590 PRINT"
600 PRINT"
610 PRINT"
620 PRINT"
630 PRINT"
640 PRINT"
650 PRINT"
660 PRINT"
670 PRINT"
680 PRINT"
690 PRINT"
700 PRINT"
710 PRINT"
720 PRINT"
730 GOSUB11000
740 GOSUB10000
750 PRINT"
760 PRINT"
770 PRINT"
780 PRINT"
790 PRINT"
800 PRINT"
810 PRINT"
820 PRINT"
830 PRINT"
840 PRINT"
850 PRINT"
860 PRINT"
870 PRINT"
880 PRINT"
890 GOSUB11000
900 GOSUB10000
910 PRINT"
920 PRINT"
930 PRINT"
940 PRINT"
950 PRINT"
960 PRINT"
970 PRINT"
980 PRINT"
990 PRINT"
1000 PRINT"
1010 PRINT"
1020 PRINT"
1040 GOSUB11000
1050 RUN
9999 END
10000 PRINT"
10010 PRINT"
10020 PRINT"
10030 RETURN
11000 PRINT"
11005 Z=Z+1:IFZ=32THENZ=0:GOTO11005
11100 FORI=0TO39:POKE56256+I,Z:IFPEEK(203)=64THENNEXT:GOTO11005
11110 RETURN
READY.
