10 REM ---- マシンコ゛ せってい ---------
20 CLEAR 6000,&HBFFF:RESTORE　110
30 FOR AD=&HED00 TO &HED00+89
40 READ A$
45 A=VAL("&h"+A$)
50 POKEAD,A:NEXT AD
60 RESTORE 260
70 FOR AD=&HEE00 TO &HEE00+1023
75 READ A$
80 A=VAL("&h"+A$)
85 POKEAD,A:NEXT AD
90 POKE&HFAEB,&H0A:POKE&HFAEC,&HED:END
100 REM ----- キャラ put ルーチン -----
110 DATA E5,21,28,00,19,54,5D,E1,18,18,26,80,1E,01,44,16,00,62,6A,19
120 DATA 10,FD,01,00,EE,09,CD,41,07,00,00,00,06,10,DD,21,00,00,DD,19
130 DATA FD,21,00,20,FD,19,7E,DD,77,00,23,7E,FD,77,00,23,7E,DD,77,01
140 DATA 23,7E,FD,77,01,23,7E,DD,77,02,23,7E,FD,77,02,23,7E,DD,77,03
150 DATA 23,7E,FD,77,03,23,10,A8,C9
210 REM ----- キャラ テ゛ータ ---------

259 YUUSYA
260 DATA 0,0,2A,0,0,0,C0,C0,8,0,AA,0,88,0,F0,F0,2A,0,AA
261 DATA 3F,AA,0,F0,F0,A,0,AA,FB,AA,C0,F0,F0
262 DATA A,0,AA,EA,A8,C0,F0,F0,A,F,AA,FF,A8,FC,F0,F0,B,1,CF
263 DATA 65,38,90,F0,F0,3,1,FF,55,FC,54,F0,F0
264 DATA 0,0,5A,6F,5A,9F,F0,F0,1,1,5A,6F,5A,9F,FA,FF,5,6,55,AA
265 DATA 56,9F,A8,FC,5,6,55,AA,55,9F,E0,C0
266 DATA 5,6,56,AB,90,E0,80,0,D,6,55,AA,50,A0,0,0,3,1,FF,55
267 DATA F0,50,0,0,0,0,F3,51,C0,40,0,0

299 REM SURAIMU
280 DATA 0,0,1,3,40,40,0,0,0,0,1,3,40,40,0,0,0,0,1,3
282 DATA 40,40,0,0,0,0,5,D,50,50,0,0
285 DATA 0,0,5,D,50,50,0,0,0,0,D5,FD,55,55,0,0,3,3,55
286 DATA FD,55,55,40,40,D,F,55,F5,55,55,50,60
290 DATA 35,3F,F5,F5,5F,5F,54,58,35,3F,C5,E5,53,5B,54
291 DATA 58,35,3F,55,55,55,55,54,58,35,3F,55,D5,55,55,54,58
292 DATA 35,3F,5D,D9,5D,59,54,58,D,F,57,D6,F5,A5,50,60,0,0
293 DATA 55,F5,55,55,40,80,0,0,15,2A,54,A8,0,0

299 REM KING SURAIMU 
300 DATA 0,AA,2,AB,80,EA,0,AA,0,AA,2,AB,80,EA,0,AA,0,AA
305 DATA 2A,BF,A8,FE,0,AA,0,AA,33,CE,C,F2,0,AA
310 DATA 0,AB,C3,3E,C,F3,0,AA,0,AB,C3,3E,CC,F3,0,AA,2,AB
315 DATA AA,FF,AA,FF,0,AA,5,AF,55,55,55,55,50,6A
320 DATA 15,B5,F5,F5,7D,7D,54,5A,55,D5,C5,E5,4D,6D,54,5A
325 DATA 55,D5,55,55,55,55,54,5A,55,D5,75,65,75,65,54,5A
330 DATA 15,B5,5F,5A,D5,95,54,5A,15,B5,55,55,55,55,50,6A
335 DATA 1,A9,55,55,55,55,40,AA,0,AA,55,AA,55,AA,40,AA


419 REM OKU
420 DATA C,AE,A,A0,80,2A,C0,EA,F,AF,2A,8F,A3,CB,C0,EA
425 DATA 3,AB,EA,FF,AF,FF,0,AA,A,A3,AA,3F,AA,F3,80,2A
430 DATA 2A,8F,AA,3,AA,3,A0,CA,2A,8F,A2,3B,2A,B3,A0,CA
435 DATA 2A,B3,AA,3C,AA,F3,A8,F2,AA,33,AA,CF,AA,CF,A8,F2
440 DATA AA,3C,AA,CF,AA,CF,AA,CC,AA,3C,AA,F0,AA,3F,AA,CC
445 DATA AA,3F,A0,3A,2A,BF,AA,3C,2A,8F,AA,30,AA,FF,A8,32
450 DATA 2A,8F,AA,30,AA,3C,A8,F2,A,A3,A0,CA,AA,0,A0,CA,2
455 DATA A8,A0,A,2,A8,80,2A,0,AA,0,AA,0,AA,0,AA

459 REM ORKKING
460 DATA FC,FE,A,AA,80,AA,FF,FF,CF,EF,2A,AA,A3,AB,C3,EB
465 DATA C3,EB,EA,EA,AF,AF,3,AB,A,A9,AA,6A,AA,A5,80,AA
470 DATA 2A,A5,AA,A9,AA,A9,A0,6A,2A,A5,A2,99,2A,99,A0,6A
475 DATA 2A,99,AA,96,AA,59,A8,5A,AA,99,AA,65,AA,65,A8,5A
480 DATA AA,96,AA,65,AA,65,AA,66,AA,96,AA,5A,AA,95,AA,66
485 DATA AA,95,A0,9A,2A,95,AA,96,2A,A5,AA,9A,AA,55,A8,9A
490 DATA 2A,A5,AA,9A,AA,96,A8,5A,A,A9,A0,6A,AA,AA,A0,6A,2
495 DATA AA,A0,AA,2,AA,80,AA,0,AA,0,AA,0,AA,0,AA

599 REM FENICS
600 DATA 0,AA,0,AA,0,AA,0,AA,0,AA,80,AA,8,AA,0,AA,2,AA,88
605 DATA AA,A,AA,0,AA,A,AA,A,AA,82,AA,80,AA
620 DATA 2A,AA,2,AA,2,AA,A0,AA,2A,AA,8A,AA,82,AA,A0,AA,2A,AA
625 DATA AA,AA,AA,AA,A0,AA,2A,AA,AA,AA,AA,AA,A0,AA
640 DATA 2,AA,AA,AA,A8,AA,0,AA,8,AA,2A,AA,A0,AA,80,AA,2,AA
645 DATA 8A,AA,8A,AA,0,AA,0,AA,2A,AA,A0,AA,0,AA
660 DATA 22,AA,A2,AA,2A,AA,20,AA,A,AA,2,AA,2,AA,80,AA,0
665 DATA AA,2,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA


899 REM GAIKOTU
900 DATA 0,AA,F,AF,FC,FE,0,AA,0,AA,3F,BF,FF,FF,0,AA,0,AA
910 DATA FF,FF,FF,FF,0,AA,0,AA,FF,FF,FF,FF,C0,EA
920 DATA 0,AA,F3,FB,F3,FB,C0,EA,0,AA,C0,EA,C0,EA,C0,EA,0
930 DATA AA,F3,FB,F3,FB,C0,EA,0,AA,FF,FF,FF,FF,C0,EA
940 DATA 0,AA,F,AF,FC,FE,0,AA,0,AA,C3,EB,F0,FA,30,BA,0,AA
950 DATA FC,FE,3,AB,F0,FA,0,AA,F,AF,F,AF,0,AA
960 DATA 0,AA,F,AF,FF,FF,0,AA,0,AA,FC,FE,F,AF,C0,EA,0,AA
970 DATA F0,FA,3,AB,C0,EA,0,AA,C0,EA,0,AA,C0,EA

999 REM MAOU
1000 DATA 30,BA,0,AA,0,AA,C,AE,30,BA,5,A0,50,A,C,AE,3C,BE
1010 DATA 15,80,54,2,3C,BE,3F,BF,55,0,55,0,FC,FE
1020 DATA 3D,BC,75,30,5D,C,7C,3E,D,AC,7D,3C,7D,3C,70,3A,45
1030 DATA 20,55,0,55,0,51,8,51,8,5F,F,F5,F0,45,20
1040 DATA 57,3,55,40,5F,F,D5,C0,55,1,55,15,7D,7C,D5,C0
1050 DATA 15,95,55,41,FF,FF,D4,D6,15,91,57,57,F5,F5,54,56
1060 DATA 15,91,57,43,55,45,54,56,55,51,55,1,55,45,55,15
1070 DATA 57,53,D5,D5,55,11,55,45,5F,4F,55,54,55,54,55,11