10 '{M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5}    {M5}                      {M5}    {M5} PROGRAMED' S60/03/21 {M5}    {M5}                      {M5}    {M5}   BY, KEIHIKO.NAKANO {M5}    {M5}                      {M5}    {M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5|M5}
20 '{M5|M5|M5|M5} ショキセッテイ NO.1{M5|M5|M5|M5|M5|M5}
30 CLS:SPRITEON:CGSET1,2:DEFMOVE(2)=SPRITE(0,0,1,3,0,1):DEFMOVE(3)=SPRITE(0,0,1,3,0,3)
40 '{M5|M5|M5|M5|M5|M5|M5} セツメイ {M5|M5|M5|M5|M5|M5|M5|M5|M5|M5} 
50 LOCATE 5,21:PRINT"PUSH START BOTTUN !!":POSITION 2,50,32:POSITION 3,50,56:MOVE2,3:DEFSPRITE 0,(2,1,0,0,0)=CHR$(192)+CHR$(193)+CHR$(194)+CHR$(195)
60 DEFSPRITE 1,(3,1,0,0,0)=CHR$(188)+CHR$(189)+CHR$(190)+CHR$(191):DEFSPRITE2,(0,1,0,0,0)="ケコサシ":DEFSPRITE3,(0,1,0,0,0)="4567
70 FOR P=0 TO 3:SPRITE P,50,P*24+80:NEXT:LOCATE7,14:PRINT"... ネコメグスリ ノ モト":LOCATE7,17:PRINT"... イトシキ カノジョ <?????>
80 LOCATE 7,2:PRINT"... PLAYER-1 <マリオ>":LOCATE 7,5:PRINT"... PLAYER-2 <ルイ-ジ>":LOCATE7,8:PRINT"... ショウメイダン ノ モト":LOCATE 7,11:PRINT"... バカタレティ ノ モト
90 IF STRIG(0)<>1 THEN PALET B 0,14,RND(28)+32,33,1:PAUSE 77 GOTO 90
100 '{M5|M5|M5|M5} ショキセッテイ NO.2 {M5|M5|M5|M5|M5}
110 N=3:BA=30:O=3:BB=30:ZA=40:ZB=40:L=3:M=7:A=50:B=100:C=205:D=100:CLS:SPRITE 0:SPRITE 1:SPRITE 2:SPRITE 3:ERA 2,3
120 '{M5|M5|M5|M5|M5} メイン プログラム {M5|M5|M5|M5|M5|M5|M5}
130 CLS:LOCATE 6,10:PRINT"BATTLING START !!":PLAY"M1O0T4F3DRECRBAGFEDCRRC9":CLS:GOSUB690:CGSET1
140 '{M5|M5|M5} PLAYER-1 ノ ドウサ {M5|M5|M5|M5}
150 E=STICK(0):F=STRIG(0)
160 IF E=8 AND B>18 THEN B=B-7:L=1
170 IF E=4 AND B<215 THEN B=B+7:L=5
180 IF E=2 AND A>15 THEN A=A-7:L=7
190 IF E=1 AND A<230 THEN A=A+7:L=3
200 IF F=8 THEN DEFMOVE(0)=SPRITE(12,L,1,128,0,1):POSITION 0,A,B:MOVE 0
210 IF F=4 AND N>0 THEN N=N-1:I=3:G=C:H=D:GOSUB 620
220 '{M5|M5|M5} ドウブツ ヲ ツカマエタ? {M5|M5|M5|M5}
230 U=XPOS(4)+8:V=YPOS(4)+8:IF U>A AND U<A+16 AND V>B AND V<B+16 AND MOVE(4)<>0 THEN ERA4:PLAY"Y1T1O3F2GAB:O4T1C2EGB":GOSUB 710:GOSUB 690
240 '{M5|M5|M5|M5} タマ ニ アタッタ? {M5|M5|M5|M5|M5|M5}
250 U=XPOS(0)+8:V=YPOS(0)+8:IF U>C AND U<C+16 AND V>D AND V<D+16 AND MOVE(0)<>0 THEN ERA7:POSITION 3,C-4,D-4:MOVE 3:PLAY"T1O0D1C:O0T1B1ARRECG":PAUSE 3 ERA 3:BB=BB-10:GOSUB 690
260 IF BA<1 GOTO 650
270 '{M5|M5} PLAYER-2 ノ ドウサ {M5|M5|M5|M5}
280 E=STICK(1):F=STRIG(1)
290 IF E=8 AND D>18 THEN D=D-7:M=1
300 IF E=4 AND D<215 THEN D=D+7:M=5
310 IF E=2 AND C>15 THEN C=C-7:M=7
320 IF E=1 AND C<230 THEN C=C+7:M=3
330 IF F=8 THEN DEFMOVE(1)=SPRITE(12,M,1,128,0,3):POSITION 1,C,D:MOVE 1
340 IF F=4 AND O>0 THEN O=O-1:I=2:G=A:H=B:GOSUB 620
350 '{M5|M5|M5|M5|M5} ミエナク スル {M5|M5|M5|M5|M5|M5|M5|M5}
360 IF MOVE(6)=0 THEN ERA 6
370 IF MOVE(7)=0 THEN ERA 7
380 IF MOVE(0)=0 THEN ERA 0
390 IF MOVE(1)=0 THEN ERA 1
400 '{M5|M5|M5|M5|M5|M5} ミエルカナ? {M5|M5|M5|M5|M5|M5|M5|M5}
410 ZC=ZC+1:ZD=ZD+1
420 IF ZA<38 AND ZC>ZA THEN ZC=0:DEFMOVE(6)=SPRITE(0,L,3,1,0,1):POSITION 6,A-4,B-4:MOVE 6
430 IF ZB<38 AND ZD>ZB THEN ZD=0:DEFMOVE(7)=SPRITE(0,M,3,1,0,3):POSITION 7,C-4,D-4:MOVE 7
440 '{M5|M5|M5} ドウブツ ヲ ツカマエタ? {M5|M5|M5|M5}
450 U=XPOS(4)+8:V=YPOS(4)+8:IF U>C AND U<C+16 AND V>D AND V<D+16 AND MOVE(4)<>0 THEN ERA 4:PLAY"Y1T1O2C2EGB:O5T1F2GAB":GOSUB 750:GOSUB 690
460 '{M5|M5|M5|M5} タマ ニ アタッタ? {M5|M5|M5|M5|M5|M5}
470 U=XPOS(1)+8:V=YPOS(1)+8:IF U>A AND U<A+16 AND V>B AND V<B+16 AND MOVE(1)<>0 THEN ERA 6:POSITION 2,A-4,B-4:MOVE 2:PLAY"T1O0D1C:O0T1B1ARRECG":PAUSE 3 ERA 2:BA=BA-10:GOSUB 690
480 IF BB<1 GOTO 640
490 '{M5|M5|M5|M5} ドウブツ ヲ ダス? {M5|M5|M5|M5|M5|M5}
500 P=RND(400)
510 IF MOVE(4)=0 THEN ERA 4
520 IF MOVE(4)<>0 OR P>6 THEN 150
530 '{M5|M5|M5|M5|M5} ナニ ヲ ダス? {M5|M5|M5|M5|M5|M5|M5}
540 PP=RND(20):IF PP<8 THEN PP=14:T=2:GOTO 570
550 IF PP<13 THEN PP=4:T=0:SS=1:GOTO 580
560 PP=13:T=3:GOTO 570
570 SS=RND(5)+1
580 Q=RND(2):IF Q=1 THEN Q=3:R=0:GOTO 600
590 Q=7:R=250
600 DEFMOVE(4)=SPRITE(PP,Q,SS,120,0,T):POSITION 4,R,RND(200)+15:MOVE 4:GOTO 150
610 '{M5|M5} ショウメイタン ヲ ツカッタ {M5|M5|M5}
620 ERA 6,7:PALET B 0,48,14,22,1:POSITION I,G-4,H-4:MOVEI:PLAY"V15T1Y1O5E1F:O4T1A1BR:T1O3B1":CGSET 1:ERA 2,3:GOSUB 690:RETURN
630 '{M5|M5|M5} ショウリシャ ハ ダレ? {M5|M5|M5|M5}
640 XX$="マリオ":Q=39:GOTO660
650 XX$="ルイ-ジ":Q=77
660 DEFMOVE(5)=SPRITE(1,3,2,Q,0,0):POSITION 4,0,75:POSITION 2,90,120:POSITION 3,165,120:POSITION 5,0,120:MOVE 5,2,4,3
670 LOCATE 9,9:PRINT XX$" ノ カチ !!":PLAY"M1T1O3:T1O4":PLAY"C5EDFBCBRRCRC:C5EDFBCBRRO2CRC":PAUSE550 RUN
680 '{M5|M5} バカタリティ ナド ノ ヒョウジ {M5|M5}
690 LOCATE 5,21:PRINT BA" BK.",BB" BK. ":PRINT"     "N" ハツ",O" ハツ ":RETURN
700 '{M5|M5|M5|M5|M5} ナニラ トッタノ? {M5|M5|M5|M5|M5|M5}
710 IF PP=4 THEN ZB=ZB-8
720 IF PP=14 THEN N=N+2
730 IF PP=13 THEN BA=BA+(6-SS)*5
740 RETURN
750 IF PP=4 THEN ZA=ZA-8
760 IF PP=14 THEN O=O+2
770 IF PP=13 THEN BB=BB+(6-SS)*5
780 RETURN