10 MEMSET&HB00
20 WIDTH20,8
30 DEFINTA-C
40 OPTIONBASE0
50 DIMC(7,7)
60 POKE&H11E,&H0A:POKE&H11F,&H40
70 RESTORE220:FORI=&HA40 TO&HA93:READJ$:J=VAL("&H"+J$):POKEI,J:NEXT
80 RESTORE270:FORJ=0TO7:FORI=0TO7:READM:C(I,J)=M:NEXTI,J
90 FORJ=0TO7:FORI=0TO7:LOCATE(I+1+10*(1-J\4)),(3-(J MOD4)),0:PRINTCHR$(C(I,J));:NEXTI,J
100 RESTORE310:FORI=1TO113:A1$=INPUT$(1):READA0$:SOUND13,5
110 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
120 B0=A0+1+10*(1-A1\4):B1=3-(A1 MOD4):B2=A2+1+10*(1-A3\4):B3=3-(A3 MOD4)
130 B2$=CHR$(C(A2,A3)):B1$=CHR$(C(A0,A1)):IF(A0+A1)MOD2=1THENB0$=CHR$(236)ELSEB0$=CHR$(237)
140 C(A2,A3)=C(A0,A1):IF(A0+A1)MOD2=1THENC(A0,A1)=236ELSEC(A0,A1)=237
150 FORJ=0TO4:LOCATEB0,B1,0:PRINTB1$;:SOUND0,2:LOCATEB0,B1,0:PRINTB0$;:SOUND0,2:NEXTJ
160 FORJ=0TO4:LOCATEB2,B3,0:PRINTB2$;:SOUND0,2:LOCATEB2,B3,0:PRINTB1$;:SOUND0,2:NEXTJ
170 NEXTI
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 CLS:END
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,C7-C5,D4-F5,E6-F5,F1-D3,G8-E7,D5-D6,E7-C6,D3-F5,G7-G6,F5-D3,F8-G7,C1-E3,D8-B6,B2-B3,B6-B4
330 DATA C2-C3,B4-A5,E1-G1,H1-F1,E8-G8,H8-F8,A2-A3,A5-B6,B3-B4,B6-D8,E3-C5,B7-B6,C5-E3,C8-B7,C3-C4,A7-A5,B4-B5,C6-A7
340 DATA A3-A4,F8-E8,B1-C3,A8-C8,C3-D5,B7-D5,C4-D5,G8-H8,A1-C1,C8-C1,D1-C1,H7-H5,C1-C7,D8-C7,D6-C7,A7-C8
350 DATA F1-C1,D7-D6,E5-E6,F7-E6,D5-E6,E8-E6,E3-B6,C8-B6,C7-C8,B6-C8,C1-C8,H8-H7,F4-F5,E6-E1,G1-F2,G7-C3
360 DATA F5-G6,H7-G7,C8-C7,G7-F8,C7-C3,E1-E5,B5-B6,E5-G5,B6-B7,G5-G2,F2-F3,G2-B2,C3-C8,F8-E7,B7-B8,B2-B8
370 DATA C8-B8,D6-D5,G6-G7,D5-D4,G7-G8,E7-D6,G8-D8,D6-E6,B8-B6,E6-F7,D8-F6,F7-E8,B6-B7,H5-H4,F6-E7,A1-A1