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
100 OUT&H93,3:END
110 REM ----  キャラ put ルーチン  --------
120 DATAE5,21,28,00,19,54,5D,E1
130 DATA18,15,26,5A,1E,01,44,16
140 DATA00,62,6A,19,10,FD,01,00
150 DATAEE,09,CD,41,07,06,0F,DD
160 DATA21,00,00,DD,19,FD,21,00
170 DATA20,FD,19,7E,DD,77,00,23
180 DATA7E,FD,77,00,23,7E,DD,77
190 DATA01,23,7E,FD,77,01,23,7E
200 DATADD,77,02,23,7E,FD,77,02
210 DATA23,10,B5,C9,00,00,00,00
220 REM ----- キャラ テ゛ータ -------------
230 DATA14,18,51,61,45,86,51,61
240 DATA45,86,14,18,45,86,14,18
250 DATA51,61,14,18,51,61,45,86
260 DATA51,61,45,86,14,18,45,86
270 DATA14,18,51,61,14,18,51,61
280 DATA45,86,51,61,45,86,14,18
290 DATA45,86,14,18,51,61,14,18
300 DATA51,61,45,86,51,61,45,86
310 DATA14,18,45,86,14,18,51,61
320 DATA14,18,51,61,45,86,51,61
330 DATA45,86,14,18,45,86,14,18
340 DATA51,61,0D,1E,55,AA,55,A6
350 DATA75,7A,55,AA,54,A8,D5,EA
360 DATA61,B2,55,A9,D5,EA,61,B2
370 DATA55,A9,55,AA,A8,FC,55,A9
380 DATA55,AA,A8,FC,55,A9,6A,BF
390 DATAAA,FF,A1,F1,5A,AF,AA,FF
400 DATA81,C1,56,AB,AA,FF,05,09
410 DATA56,AB,AA,FF,15,29,56,AB
420 DATAAA,FF,15,29,56,AB,8A,CF
430 DATA15,29,56,AB,06,0B,15,29
440 DATA15,2A,55,AA,54,A4,45,85
450 DATA55,55,50,51,1F,1F,55,00
460 DATA55,06,75,70,5A,00,54,00
470 DATAD5,C0,5B,03,17,00,D5,C0
480 DATA6B,03,17,00,55,00,80,7F
490 DATAAB,54,56,01,80,7F,AB,54
500 DATA5A,05,00,3F,2B,14,7A,35
510 DATAA8,A8,43,00,55,00,00,FC
520 DATA57,00,54,03,00,FF,17,00
530 DATA54,03,00,FF,07,C0,55,00
540 DATAA2,51,87,40,56,01,AA,55
550 DATA87,40,56,41,A0,50,04,00
560 DATA45,80,55,00,51,01,2A,2A
570 DATAA1,A1,45,86,68,68,22,22
580 DATAA4,A8,68,A8,A2,A2,28,28
590 DATA28,28,82,82,08,08,5A,6A
600 DATAE2,F2,28,28,42,82,EA,FA
610 DATAA1,A1,0C,0F,00,FF,F0,F0
620 DATABC,FF,00,FF,FE,FF,7C,BC
630 DATA00,FC,FC,FC,3E,3E,00,FC
640 DATABC,BC,4A,4A,54,A8,A0,A0
650 DATA68,A8,FF,FF,28,28,A3,A3
660 DATAFF,FF,CA,CA,43,43,FF,FF
670 DATAF0,F0,44,84,00,00,01,01
680 DATA1F,1F,55,AA,55,A6,75,7A
690 DATA6D,AE,54,A8,D5,EA,6F,AF
700 DATA55,AA,65,AA,67,AB,D5,EA
710 DATA79,BA,67,AB,F5,FA,7E,BE
720 DATA67,AB,FD,FE,7F,BF,A7,AB
730 DATAFD,FE,7F,BF,67,AB,FD,FE
740 DATA7F,BF,EF,EF,FD,FE,5F,AF
750 DATAEF,EF,D5,EA,45,BA,65,AA
760 DATA01,FE,40,BF,00,FF,05,FA
770 DATA40,BF,00,FF,15,EA,50,6F
780 DATA00,FF,14,E8,45,8A,55,AA
790 DATA51,A1,00,00,00,00,00,00