10 CLS:CGSET1,0:SPRITEON
20 MP=0:LP=0:PO=5
30 MX=110:LX=130:MK=1:LK=1:MY=167:LY=167:F=0
40 VIEW:GOSUB 110:GOSUB 140
50 LOCATE 2,4:PRINT MP
60 LOCATE 24,4:PRINT LP
70 IF MP=PO THEN K$="マリオ":GOTO 560
80 IF LP=PO THEN K$="ルイ-ジ"GOTO 560
90 IF MP=PO-1 AND LP=PO-1 THEN GOSUB 600
100 GOTO 170
110 DEFSPRITE1,(0,1,0,1,0)=CHR$(1)+CHR$(0)+CHR$(3)+CHR$(2):RETURN
120 DEFSPRITE1,(0,1,0,1,0)=CHR$(5)+CHR$(4)+CHR$(7)+CHR$(6):RETURN
130 DEFSPRITE1,(0,1,0,1,0)=CHR$(9)+CHR$(8)+CHR$(11)+CHR$(10):RETURN
140 DEFSPRITE2,(1,1,0,0,0)=CHR$(0)+CHR$(1)+CHR$(2)+CHR$(3):RETURN
150 DEFSPRITE2,(1,1,0,0,0)=CHR$(4)+CHR$(5)+CHR$(6)+CHR$(7):RETURN
160 DEFSPRITE2,(1,1,0,0,0)=CHR$(8)+CHR$(9)+CHR$(10)+CHR$(11):RETURN
170 DEFSPRITEO,(3,0,0,0,0)=CHR$(223):BX=124:BY=177:XX=0:YY=-14:Y=1:B=13
180 MS=STICK(0):LS=STICK(1)
190 MB=STRIG(0):LB=STRIG(1)
200 BX=BX+XX:YY=YY+Y:BY=BY+YY:IF YY=B THEN YY=-14:B=13:XX=0
210 IF MB=8 AND M1=0 THEN X1=1:Y1=-14:MY=164
220 IF MB=4 AND M1=0 THEN X1=2:Y1=-8:MY=164
230 IF LB=8 AND L1=0 THEN X2=-1:Y2=-14:LY=164
240 IF LB=4 AND L1=0 THEN X2=-2:Y2=-8:LY=164
250 M1=MB:L1=LB
260 MX=MX-((MS=1ANDMX<218)*3)+((MS=2ANDMX>21)*3)
270 LX=LX-((LS=1ANDLX<218)*3)+((LS=2ANDLX>22)*3)
280 MY=MY+1:IF MY>167 THEN MY=167
290 LY=LY+1:IF LY>167 THEN LY=167
300 MK=MK-(MS=1ORMS=2)
310 LK=LK-(LS=1ORLS=2)
320 IF MK=4 THEN MK=1
330 IF LK=4 THEN LK=1
340 IF MS=1 OR MS=2 THEN ON MK GOSUB 110,120,130
350 IF LS=1 OR LS=2 THEN ON LK GOSUB 140,150,160
360 IF YY=-14 THEN GOSUB 440
370 SPRITE 0,BX,BY
380 SPRITE 1,MX,MY
390 SPRITE 2,LX,LY
400 F=F+1:IF F=1 THEN PLAY "C0R7C0R7C0R7G6"
410 IF BX>230 THEN MP=MP+1:PLAY "BBBB":GOTO 30
420 IF BX<21 THEN LP=LP+1:PLAY "BBBB":GOTO 30
430 GOTO 180
440 REM
450 IF BX+3<MX+16 AND BX+3>MX+5 AND MY<167 THEN E=E+1
460 IF BX+3<LX+14 AND BX+3>LX-3 AND LY<167 THEN E=E+2
470 GOTO 500
480 YY=Y1:B=ABS(Y1+1):XX=X1:Y=1:E=0:PLAY"C0":RETURN 380
490 YY=Y2:B=ABS(Y2+1):XX=X2:Y=1:E=0:PLAY"E0":RETURN 380
500 IF E=1 THEN 480
510 IF E=2 THEN 490
520 IF E=0 THEN RETURN
530 IF MY=LY THEN PLAY"D0":RETURN 380
540 IF MY>LY THEN 480
550 GOTO 490
560 LOCATE 9,9:PRINT K$+" ノ カチ"
570 LOCATE 6,11:PRINT"PUSH START KEY!!!"
580 IF STRIG(0)=1 THEN RUN
590 GOTO 580
600 PO=PO+1
610 FOR I=0 TO 2
620 LOCATE 12,4:PRINT"ジュ-ス":BEEP
630 FOR J=0 TO 50:NEXT
640 LOCATE 12,4:PRINT"    "
650 FOR J=0 TO 50:NEXT
660 NEXT:RETURN