10 MEMSET&HB00
20 WIDTH20,8
30 DEFINTA-C
40 OPTIONBASE0
50 DIMC(7,7)
60 POKE&H11E,&H0A:POKE&H11F,&H40
70 N(1)=20:N(2)=44:N(3)=13:N(4)=37
80 RESTORE220:FORI=&HA40 TO&HA93:READJ$:J=VAL("&H"+J$):POKEI,J:NEXT
90 RESTORE270:FORJ=0TO7:FORI=0TO7:READM:C(I,J)=M:NEXTI,J
100 FORJ=0TO7:FORI=0TO7:LOCATE(I+1+10*(1-J\4)),(3-(J MOD4)),0:PRINTCHR$(C(I,J));:NEXTI,J
110 RESTORE310:FORI=1TO51:READA0$
120 A0=ASC(MID$(A0$,1,1))-65:A1=VAL(MID$(A0$,2,1))-1:A2=ASC(MID$(A0$,4,1))-65:A3=VAL(MID$(A0$,5,1))-1
130 B0=A0+1+10*(1-A1\4):B1=3-(A1 MOD4):B2=A2+1+10*(1-A3\4):B3=3-(A3 MOD4)
140 C(A2,A3)=C(A0,A1):IF(A0+A1)MOD2=1THENC(A0,A1)=236ELSEC(A0,A1)=237
150 B0$=CHR$(C(A0,A1)):B1$=CHR$(C(A2,A3))
160 LOCATEB0,B1,0:PRINTB0$;:LOCATEB2,B3,0:PRINTB1$;
170 SOUNDN(I MOD4)+1,1:NEXT
180 SOUND0,4:SOUND6,12:SOUND0,4
190 SOUND6,4:SOUND34,4:SOUND7,4:SOUND37,4:SOUND10,4:SOUND13,4:SOUND40,4:SOUND12,4:SOUND37,4:SOUND9,4:SOUND7,4:SOUND34,4:SOUND6,16
200 GOTO200
210 REM
220 DATA 70,4A,47,4A,70,00,71,4A,45,4A,71,00,67,5A,41,5A,67,00
230 DATA 6C,52,41,52,6C,00,5E,61,56,6A,4C,00,00,4E,72,4E,00,00
240 DATA 70,7A,7F,7A,70,00,71,7A,7D,7A,71,00,67,7E,7F,7E,67,00
250 DATA 6C,7E,7F,7E,6C,00,5E,7F,7A,6E,4C,00,00,4E,7E,4E,00,00
260 DATA 00,00,00,00,00,00,FF,FF,FF,FF,FF,FF
270 DATA 226,228,227,225,224,227,228,226,229,229,229,229,229,229,229,229
280 DATA 237,236,237,236,237,236,237,236,236,237,236,237,236,237,236,237
290 DATA 237,236,237,236,237,236,237,236,236,237,236,237,236,237,236,237
300 DATA 235,235,235,235,235,235,235,235,232,234,233,231,230,233,234,232
310 DATA D2-D4,B8-C6,D4-D5,C6-E5,F2-F4,E5-C4,E2-E4,C4-D6,E4-E5,D6-F5,G2-G4,F5-H6,G4-G5,H6-F5,G1-F3,E7-E6
320 DATA F3-D4,F8-C5,D4-F5,E6-F5,F1-D3,G8-E7,D5-D6,C7-D6,E5-D6,C5-D6,E1-G1,H1-F1,D8-C7,B2-B3,C7-C3,B1-C3,E8-G8,H8-F8
330 DATA D3-C4,D6-B4,C3-D5,E7-C6,D5-B4,C6-B4,C1-B2,F8-E8,F1-E1,E8-E4,E1-E4,F5-E4,D1-E1,B4-C2,E1-E4,C2-A1,E4-E8,A1-A1