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 SPACE 260 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 261 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 262 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 263 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 264 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 265 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 266 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 267 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 299 REM BLUE FISH RIGHT 280 DATA 0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,3,A9 281 DATA C0,6A,0,AA,0,AA,D,A6,40,AA,0,AA 285 DATA 0,AA,D,A6,5F,A5,0,AA,70,9A,3D,96,55,AA,70,9A,DC,66 286 DATA D5,6A,55,AA,5C,A6,15,AA,55,AA,55,AA,77,B9 290 DATA 15,AA,55,AA,5F,A5,45,AA,17,A9,55,AA,5F,A5,57 291 DATA A9,D0,6A,15,AA,57,A9,5C,A6,C0,6A,F,A5,57,A9,C0,6A 292 DATA 0,AA,3,A9,70,9A,0,AA,0,AA,3,A9,C0,6A,0,AA,0,AA,0 293 DATA AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA 299 REM BLUE FISH LEFT 300 DATA 0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,3,A9 301 DATA C0,6A,0,AA,0,AA,1,AA,70,9A,0,AA 310 DATA 0,AA,F5,5A,70,9A,0,AA,D,A6,55,AA,7C,96,D,A6,35,9A 311 DATA 55,AA,57,A9,37,99,DD,6E,55,AA,55,AA,54,AA 320 DATA 51,AA,F5,5A,55,AA,54,AA,D5,6A,F5,5A,55,AA,D4,6A,35 321 DATA 9A,D5,6A,54,AA,7,A9,3,A9,D5,6A,F0,5A,3,A9 330 DATA 0,AA,D,A6,C0,6A,0,AA,0,AA,3,A9,C0,6A,0,AA,0,AA,0 331 DATA AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA 419 REM RED FISH RIGHT 420 DATA 0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0 421 DATA AA,0,AA,0,AA,2A,BF,80,EA,0,AA 430 DATA 80,EA,2A,BA,A8,FE,0,AA,A8,BE,AA,FA,AA,AB,80,EA,AA 431 DATA BF,AA,AA,AA,AA,A0,BA,AA,FA,AA,AA,AA,AA,EA,EF 440 DATA 2A,BA,AA,AA,AA,AA,2A,AB,AA,FB,AA,AA,AA,AA,AA,AF,AA 441 DATA BF,AA,EA,AA,AA,A0,BA,A8,AE,2A,BA,AA,AB,A0,FA 450 DATA A0,FA,2A,BA,A8,AE,0,AA,0,AA,A,AF,A0,FA,0,AA,0,AA,0 451 DATA AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA 459 REM RED FISH LEFT 460 DATA 0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA 465 DATA 0,AA,0,AA,0,AA,0,AA,2,AB,A8,FE,0,AA 470 DATA 0,AA,2A,BF,A8,AE,2,AB,2,AB,AA,EA,AA,AF,2A,BE,A 475 DATA AE,AA,AA,AA,AA,AA,FE,AB,FB,AA,AA,AA,AA,AA,AF 480 DATA A8,EA,AA,AA,AA,AA,A8,AE,AA,FA,AA,AA,AA,AA,AA,EF 485 DATA A,AE,AA,AA,AA,AB,AA,FE,A,AF,AA,EA,A8,AE,2A,BA 490 DATA 0,AA,2A,BA,A8,AE,A,AF,0,AA,A,AF,A0,FA,0,AA,0,AA 495 DATA 0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA 599 REM GREEN FISH RIGHT 600 DATA 0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,3 605 DATA A9,C0,6A,0,AA,0,AA,C,A7,0,EA,0,AA 620 DATA 0,AA,C,A7,F,F5,0,AA,30,DA,3C,97,0,FF,30,DA,CC 625 DATA 76,C0,7F,0,FF,C,F6,0,BF,0,FF,0,FF,33,FD 640 DATA 0,BF,0,FF,F,F5,0,EF,3,BD,0,FF,F,F5,3,FD,C0,7A 645 DATA 0,BF,3,FD,C,F6,C0,6A,F,A5,3,FD,C0,6A 660 DATA 0,AA,3,A9,30,DA,0,AA,0,AA,3,A9,C0,6A,0,AA,0,AA 665 DATA 0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA 899 REM GREEN FISH LEFT 900 DATA 0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,3 910 DATA A9,C0,6A,0,AA,0,AA,0,AB,30,DA,0,AA 920 DATA 0,AA,F0,5F,30,DA,0,AA,C,A7,0,FF,3C,D6,C,A7,30 930 DATA 9F,0,FF,3,FD,33,9D,CC,7F,0,FF,0,FF,0,FE 940 DATA 0,FB,F0,5F,0,FF,0,FE,C0,7F,F0,5F,0,FF,C0,7E 950 DATA 30,9F,C0,7F,0,FE,3,AD,3,A9,C0,7F,F0,5A,3,A9 960 DATA 0,AA,C,A7,C0,6A,0,AA,0,AA,3,A9,C0,6A,0,AA,0 970 DATA AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA,0,AA 999 REM UKI 1000 DATA 0,AA,0,AA,0,AA,3,AB,0,AA,2A,BF,0,AA,3,AB,0,AA 1010 DATA 3F,BF,0,AA,3,AB,0,AA,2A,AA,0,AA,3,AB 1020 DATA 0,AA,3F,BF,0,AA,F,AF,0,AA,2A,BF,0,AA,F,AF,0,AA 1030 DATA 3F,BF,C0,EA,F,AF,0,AA,15,AA,40,AA,3C,BE 1040 DATA 0,AA,FF,FF,F0,FA,3C,BE,1,AA,55,AA,5C,AE,3C,BE 1050 DATA 3,AB,FF,FF,FC,F6,30,BA,5,AA,55,AA,5C,A6,F0,FA 1060 DATA F,AF,FF,FF,FC,D6,F0,FA,5,AA,55,AA,FC,56,F0,FA 1070 DATA F,AF,FF,FF,FC,56,0,AA,3,A9,FF,55,F0,5A,0,AA