10 REM ---- マシンコ゛ せってい ---------
20 OUT &H93,2:RESTORE
30 SU=0:FORAD=&HED00TO&HED4F
40 READ A$:A=VAL("&h"+A$):SU=SU+A
50 POKEAD,A:NEXTAD:IFSU=6669THEN70
60 PRINT"Error in 110-200":OUT&H93,3:END
70 FORAD=&HEE00TO&HEFC7:READ A$
80 A=VAL("&h"+A$):POKEAD,A:NEXTAD
90 POKE&HFAEB,&H0A:POKE&HFAEC,&HED:OUT&H93,3:END
100 REM ----- キャラ put ルーチン -----
110 DATAE5,21,28,00,19,54,5D,E1
120 DATA18,15,26,5A,1E,01,44,16
130 DATA00,62,6A,19,10,FD,01,00
140 DATAEE,09,CD,41,07,06,0F,DD
150 DATA21,00,00,DD,19,FD,21,00
160 DATA20,FD,19,7E,DD,77,00,23
170 DATA7E,FD,77,00,23,7E,DD,77
180 DATA01,23,7E,FD,77,01,23,7E
190 DATADD,77,02,23,7E,FD,77,02
200 DATA23,10,B5,C9,00,00,00,00
210 REM ----- キャラ テ゛ータ ---------
220 DATA00,44,00,44,00,44,00,11
230 DATA00,11,00,11,00,44,00,44
240 DATA00,44,00,44,00,44,00,44
250 DATA00,11,00,11,00,11,00,44
260 DATA00,44,00,44,00,44,00,44
270 DATA00,44,00,11,00,11,00,11
280 DATA00,44,00,44,00,44,00,44
290 DATA00,44,00,44,00,11,00,11
300 DATA00,11,00,44,00,44,00,44
310 DATA00,44,00,44,00,44,00,11
320 DATA00,11,00,11,00,44,00,44
330 DATA00,44,00,44,00,44,00,44
340 DATA00,11,00,11,00,11,00,44
350 DATAF5,F5,40,44,0F,4F,55,55
360 DATA50,54,3D,3D,55,55,7C,7D
370 DATA3D,7D,55,55,5C,5C,15,55
380 DATA55,55,55,55,D5,D4,55,45
390 DATA55,55,D7,D7,7D,3D,55,55
400 DATAD7,D7,7D,3D,55,55,55,55
410 DATA55,15,55,54,55,15,55,01
420 DATA55,50,55,00,55,00,55,00
430 DATA15,00,55,00,54,01,05,40
440 DATA55,00,50,04,00,44,3F,41
450 DATAFF,50,00,11,0F,11,FC,40
460 DATA00,44,03,41,F0,00,00,44
470 DATA3B,44,00,04,03,10,EE,11
480 DATAC0,41,0F,43,FB,C4,A0,40
490 DATA3F,43,EE,D1,E8,10,3B,04
500 DATABB,44,A8,40,0E,41,EE,11
510 DATAA0,00,03,44,BA,44,80,04
520 DATA00,10,A8,00,00,11,0F,40
530 DATAC0,40,00,44,3F,41,F0,40
540 DATA00,44,FF,05,FC,40,00,11
550 DATA00,00,00,00,00,44,00,44
560 DATA00,44,A0,A4,AA,AA,02,12
570 DATAA8,A9,A2,A2,8A,8A,28,28
580 DATA28,28,2A,6A,AA,AA,03,13
590 DATAAA,AA,FF,F5,0A,4A,AA,AA
600 DATAAB,A9,3F,7F,BF,BF,FB,59
610 DATAFE,FE,FF,FF,FB,59,FE,FE
620 DATAFF,FF,FB,59,FE,FE,FF,FF
630 DATAFB,59,FE,FE,FF,FF,FB,59
640 DATAFE,FE,FF,FF,FB,59,FE,FE
650 DATAFF,FF,FB,59,FE,FE,FF,FF
660 DATAF8,58,FE,FE,FF,FF,C0,40
670 DATA00,44,55,AA,00,44,01,12
680 DATA55,AA,40,91,05,4A,55,AA
690 DATA50,A4,15,6A,55,AA,54,A8
700 DATA55,AA,55,AA,55,AA,3F,7F
710 DATAFF,FF,FC,FC,3F,7F,3C,3C
720 DATAFC,FC,3F,3F,FF,FF,FC,FD
730 DATA3F,7F,AA,00,FC,FC,0F,4F
740 DATAAF,FF,F0,F4,1A,25,AA,69
750 DATAA4,59,56,A9,AA,96,95,6A
760 DATA55,AA,AA,55,55,AA,55,AA
770 DATA69,96,55,AA,55,AA,55,AA
780 DATA55,AA,00,00,00,00,00,00