10 REM ----  テ゛ータ セット --------------------
20 M$="Error in ":CLS:PRINT "Wait a miuite,please"
30 RESTORE:AD=&HED00:FORJ=0TO6:SU=0
40 FORI=0TO10:READA$:A=VAL("&h"+A$)
50 POKEAD+J*11+I,A:SU=SU+A:NEXT:READB$
60 IFSU<>VAL("&h"+B$)THENPRINTM$;J*10+130:END
70 NEXT:AD=&HEE00:FORJ=0TO48:SU=0
80 FORI=0TO10:READA$:A=VAL("&h"+A$)
90 POKEAD+J*11+I,A:SU=SU+A:NEXT:READB$
100 IFSU<>VAL("&h"+B$)THENPRINTM$;J*10+210:END
110 NEXT:POKE&HFAEB,&H0A:POKE&HFAEC,&HED:END
120 REM ----  マシンコ゛ テ゛ータ -----------------
130 DATAE5,21,28,00,19,54,5D,E1,18,15,26,32C
140 DATA5A,1E,01,44,16,00,62,6A,19,10,FD,2C5
150 DATA01,00,EE,09,CD,41,07,06,0F,DD,21,320
160 DATA00,00,DD,19,FD,21,00,20,FD,19,7E,3C8
170 DATADD,77,00,23,7E,FD,77,00,23,7E,DD,4E7
180 DATA77,01,23,7E,FD,77,01,23,7E,DD,77,483
190 DATA02,23,7E,FD,77,02,23,10,B5,C9,00,3CA
200 REM ----  キャラクタ テ゛ータ -----------------
210 DATA40,40,40,40,40,40,50,50,50,50,50,310
220 DATA50,50,A0,50,A0,50,A0,54,A4,54,A4,510
230 DATA54,A4,55,A5,55,A5,55,A5,40,40,40,4A6
240 DATA40,40,40,50,50,50,50,50,50,50,A0,390
250 DATA50,A0,50,A0,54,A4,54,A4,54,A4,55,51D
260 DATAA5,55,A5,55,A5,40,40,40,40,40,40,419
270 DATA50,50,50,50,50,50,50,A0,50,A0,50,410
280 DATAA0,54,A4,54,A4,54,A4,55,A5,55,A5,57C
290 DATA55,A5,40,40,40,40,40,40,50,50,50,36A
300 DATA50,50,50,53,A3,F5,F5,50,A0,5D,AF,5CC
310 DATA00,FF,50,58,74,BF,00,FF,14,FE,34,51F
320 DATABF,00,FF,05,FE,D4,7F,00,FF,05,FE,616
330 DATAD0,FF,00,FF,05,FE,D3,FF,CC,FF,05,773
340 DATAFE,D0,FF,C0,FF,05,FE,40,7F,00,FF,74D
350 DATA0D,FE,40,7F,00,FF,0D,FE,50,5F,10,493
360 DATAEF,F5,F6,55,95,55,A9,54,58,55,AA,66D
370 DATA55,AA,55,A5,40,40,40,40,40,40,50,3C9
380 DATA50,50,50,50,50,50,A0,55,AA,00,00,37F
390 DATA55,AA,55,AA,54,A4,57,AB,D5,EA,55,60C
400 DATAA9,1D,2E,55,AA,54,A8,55,AA,55,AA,4ED
410 DATA55,AA,55,AA,55,AA,55,AA,00,FF,00,4FB
420 DATAFF,00,FF,55,AA,55,AA,55,AA,55,AA,5FA
430 DATA55,AA,55,AA,15,2A,55,AA,54,A8,15,44D
440 DATA2A,55,AA,54,A8,45,8A,55,AA,50,A0,4E3
450 DATA51,A2,55,AA,45,85,C0,40,FF,FF,00,5BA
460 DATA00,0F,0F,55,00,F0,F0,75,B0,55,00,3CD
470 DATA5C,0C,75,B0,55,00,5C,0C,D5,C0,55,434
480 DATA00,57,03,D5,C0,55,00,57,03,D5,C0,433
490 DATA55,00,57,03,D5,C0,79,3C,57,03,3D,390
500 DATA3C,FA,FF,7C,3C,51,A2,69,3C,43,81,549
510 DATAFF,FF,FF,FF,FF,FF,D5,EA,55,AA,55,90D
520 DATAAA,D5,EA,55,AA,55,AA,35,3A,55,AA,5D5
530 DATA54,A8,53,A3,55,AA,40,80,4F,4F,FF,54E
540 DATA55,F0,50,7D,7E,55,AA,54,A4,F5,FA,676
550 DATAA8,FC,55,A9,D5,6A,6A,BF,15,29,D5,61D
560 DATA6A,5A,AF,15,29,D5,6A,5A,AF,85,E9,567
570 DATAD5,6A,5A,AF,85,C9,D5,6A,5A,AF,85,663
580 DATAC9,D5,6A,5A,AF,85,C9,D5,6A,6A,BF,6C7
590 DATA85,C9,EA,7F,AA,FF,85,C9,CA,4F,AA,771
600 DATAFF,15,29,52,A3,A8,FC,55,A9,14,28,510
610 DATA01,02,54,A8,05,0A,55,AA,50,A0,E8,3E5
620 DATA68,80,BF,C0,40,AA,AA,A0,AF,30,D0,64A
630 DATAA2,AE,A0,AF,00,F0,40,BD,A0,AF,00,5DB
640 DATAFC,40,BF,00,FF,03,FD,0A,FF,AA,FF,6AC
650 DATAA0,FF,0A,FF,28,3C,A0,FF,0A,FF,28,5DC
660 DATA3C,A0,FF,5E,A7,AA,FF,9C,E4,5F,AD,715
670 DATAAA,FF,5F,A5,C0,40,E8,7C,C0,40,FF,710
680 DATA50,FF,00,F0,00,7F,80,FF,00,FC,00,539
690 DATAFF,00,FF,00,FF,00,FF,00,FF,00,FF,5FA