0 POKE53600,0:POKE53601,0:PRINT"
10 A1$=""
11 A2$=""
12 A3$=""
23 A$=""+A1$+""+A2$+""+A3$
24 B$=""+A1$+""+A2$+""+A3$
25 C$=""+A1$+""+A2$+""+A3$
40 E$="
50 D$=""+CHR$(13)
60 D$=D$+"
100 PRINTE$D$
110 PRINT""CHR$(13)+"
120 PRINT"
130 PRINT""CHR$(13)"
140 PRINT"
150 PRINT"
160 PRINT"
170 PRINT"
180 PRINT"
185 PRINT"
190 GOSUB1010
200 PRINTE$D$""CHR$(13)"
210 PRINT"
220 PRINT"
230 PRINT"
240 PRINT"
250 PRINT"
255 PRINT"
260 PRINT""CHR$(13)"
270 PRINT"
280 PRINT"
290 PRINT"
300 GOSUB1010:PRINTE$D$
310 PRINT""CHR$(13)"
320 PRINT"
330 PRINT"
340 PRINT"
350 PRINT"
360 PRINT""CHR$(13)"
370 PRINT"
380 PRINT"
385 PRINT"
390 PRINT"
400 PRINT"
410 PRINT"
420 GOSUB1010:PRINTE$D$
430 PRINT"
440 PRINT"
450 PRINT"
460 PRINT"
470 PRINT"
480 PRINT""CHR$(13)"
490 PRINT"
500 PRINT"
505 PRINT"
510 PRINT"
520 PRINT"
530 PRINT"
540 PRINT"
550 GOSUB1010:PRINTE$D$
560 PRINT""CHR$(13)"
570 PRINT"
580 PRINT"
590 PRINT"
600 PRINT"
610 PRINT"
620 PRINT"
630 PRINT"
640 PRINT"
650 PRINT"
660 GOSUB1010:PRINTE$D$
670 PRINT"
680 PRINT"
690 PRINT"
700 PRINT"
710 PRINT"
720 PRINT"
725 PRINT"
730 GOSUB1010:PRINTE$D$
740 PRINT""CHR$(13)"
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"
875 PRINT"
880 GOSUB1010:PRINTE$D$
890 PRINT""CHR$(13)"
900 PRINT"
910 PRINT"
920 PRINT"
930 PRINT"
940 PRINT"
950 PRINT"
960 PRINT"
970 GOSUB1010
980 GOTO970
1010 PRINTC$:GOSUB2000:PRINTB$:GOSUB2000:PRINTA$:GOSUB2000
1020 IF(PEEK(56321)AND31)=31THEN1010
1030 RETURN
2000 WAIT53265,128:WAIT53265,128,128:::::::::::RETURN
READY.
