10 CLS:SPRITEON:HI=100:HP=HI:A=5:B=1:R=0:F=1:X=48:Y=144:POKE&H4015,15 20 DEFSPRITE2,(0,1,0,0,0)="\I4\\I4\\K7\\K7\"FORI=0TO9:POKE&H480+I,1:NEXT 30 PALETB 0,52,15,18,1:RESTORE950:FORI=4TO9:READA$:LOCATE1,I:PRINTA$:NEXT 40 LOCATE6,17PRINT"PUSH START BUTTON":IFSTRIG(0)<>1THEN40 50 PALETB 0,13,48,18,2:PALETS 0,13,49,33,2 60 CLS:GOSUB1000:PALETB 1,13,16,0,15:PALETB 3,13,13,23,7:PALETS 2,13,53,37,22 70 IFR=11THEN1010 80 PALETS 3,13,54,22,2:IFPEEK(&H481)=1ANDR>5PALETS 3,13,13,13,13 90 IFR=0PALETB 1,0,13,13,13:TH=0:TY=0:GOTO130 100 RESTORE910:READA$:P=VAL(MID$(A$,R,1)):IFP>3P=P-4:PALETB 3,13,13,13,13 110 RESTORE940:FORI=0TOP:READA$,H:NEXT:TX=120:TY=144-(P=0)*16 120 TH=-(P=1)*200-(P=2)*500-(P=3)*15000+R*R*100:IFPEEK(&H47F+R)=0TH=0TY=0 130 VIEW:C=F:O=-8:F=0:K=0:G=0:GOSUB580:IFP>1GOSUB760 140 GOTO160 150 C=STICK(0):D=STRIG(0):IFC=0ORC>2THEN230 160 X=X+((C=2)-(C=1))*4:E=1-E:IFF=C THEN180 170 FORI=0TO1:DEFSPRITEI,(0,1,0,-(C=1),0)="":NEXT:F=C 180 ONE+1-(C=1)*2GOTO190,200,210,220 190 POKE&H680,0,1,10,73,82,7,34,7:GOTO230 200 POKE&H680,0,1,6,77,82,7,46,11:GOTO230 210 POKE&H680,1,0,73,10,7,82,7,34:GOTO230 220 POKE&H680,1,0,77,6,7,82,11,46 230 IFD=8ANDJ=0J=1:L=-14 240 IFJ=1Y=Y+L:L=L+4:J=-(L<15) 250 SPRITE0,X,Y-(C=4)*8:SPRITE1,X,Y+16 260 V=X-13-(F=1)*26:W=Y-(C=4)*16 270 IFC=G ORC=0ORC>2ORT=0THEN290 280 DEFSPRITE3,(-(T=2)*2,1,0,-(C=2),1)=MID$("R\K7\T\K7\\K7\R\K7\T",1-(C=2)*4,4):G=C 290 IFD=4ANDM=0POKE&H4000,1,129,20,8:SPRITE2,V,W:SPRITE3:M=1:GOSUB830:GOTO310 300 SPRITE3,V,W:SPRITE2:IFM=1ANDD<>4M=0 310 N=N+1+(N=1)*2:IFMOVE(N)=0CANN 320 IFM>1SPRITE0:SPRITE1:M=M-1 330 IFX<20ORX>223THEN370 340 IFC<>8ORJ=1ORABS(120-(R=2)*80+(R=9)*80-X)>7ORTH>0THEN420 350 IFR=0X=250:F=1:GOTO390 360 GOTO440 370 IFR=0X=X+((X>223)-(X<20))*4:GOTO150 380 IFX<20X=223R=R-1 390 IFX>223X=20R=R+1:IFR=11ANDPEEK(&H489)=1R=10:X=220:GOTO420 400 IFR=0X=120 410 GOTO60 420 IFTH>0ONP+1GOTO650,660,670,690 430 GOTO150 440 CLS:GOSUB1000:LOCATE12,16PRINT"\G0\\M7\\M7\\M7\\M7\\G1\":FORI=0TO2 450 LOCATE12,17+I:PRINT"\H5\\H6\\H6\\H6\\H6\\H5\":NEXT:POKE&H4004,8,250,87,8 460 RESTORE920:FORI=1TOR:READA$:NEXT:I=PEEK(&H47F+R):IFI=0A$="エンプティ ボックス" 470 POKE&H47F+R,0:LOCATE0,13PRINT"ヘヤノ ナカニ ハ "A$" ガ アッタ":IFSTRIG(0)=0THEN470 480 IFI=0THEN60 490 ONR GOTO570,60,510,520,530,500,540,550,560,60 500 HI=HI+100:HP=HI:GOTO60 510 A=3:GOTO500 520 B=B+1:T=2:GOTO60 530 B=B+2:PALETS 0,13,54,16,0:GOTO60 540 A=2:GOTO60 550 B=5:PALETS 0,13,16,0,1:GOTO60 560 A=1:GOTO60 570 T=1:GOTO60 580 IFHP<0HP=0 590 LOCATE0,1PRINTHI"/"RIGHT$(" "+MID$(STR$(HP),2,3),3):LOCATE15,1PRINT6-A 600 LOCATE24,1PRINTB:IFHP<1RETURN620 610 RETURN 620 FORI=1TO50:SPRITE0,X,Y+I:SPRITE1,X,Y+16+I:NEXT:GOSUB1000 630 LOCATE9,10PRINT"GAME OVER":IFSTRIG(0)<>1THEN630 640 RUN 650 GOSUB750:TX=TX+K*2:SPRITE4,TX,TY:GOSUB780:GOTO150 660 GOSUB750:TX=TX+K:SPRITE4,TX,TY:SPRITE5,TX,TY+16:GOSUB780:GOSUB890:GOTO150 670 TX=TX+K:TY=TY+O:O=O+1:SPRITE4,TX,TY-(O=9)*8:SPRITE5,TX,TY+16:SPRITE6,TX+16,TY-(O=9)*8:SPRITE7,TX+16,TY+16:GOSUB780:GOSUB890:IFO=9O=-8K=SGN(X-TX) 680 GOTO150 690 IFO=-6TX=RND(170)+30 700 SPRITE4,TX,TY:SPRITE5,TX,TY+16:SPRITE6,TX+16,TY:SPRITE7,TX+16,TY+16:O=O+1:IFO>19THEN730 710 IFO MOD2=0ANDO<20FORI=4TO7:SPRITEI:NEXT 720 GOTO150 730 GOSUB780:GOSUB890:IFO>39O=-6 740 GOTO150 750 IFK=SGN(X-TX)ORABS(X-TX)<12ORP>1THEN770 760 FORI=4TOH:DEFSPRITEI,(3+(R=11),1,-(PEEK(&H481)=1ANDR>5),-(X>TX ANDP<2),0)="":NEXT:FORI=1TOLEN(A$):POKE&H68F+I,ASC(MID$(A$,I-(X>TX ANDI MOD2=1ANDP<2)+(X>TX ANDI MOD2=0ANDP<2),1)):NEXT:K=SGN(X-TX) 770 RETURN 780 IFM>1THEN820 790 IFABS(X-TX)<12ANDABS(Y-(TY-8))<24THEN850 800 IFABS(V-XPOS(N))<16ANDABS(W-YPOS(N))<16ANDT>0POKE&H4004,0,0,80,0:CANN 810 IFABS(X-XPOS(N))<12ANDABS(Y-(YPOS(N)-8))<24THEN860 820 RETURN 830 IFABS(V-(TX-(P>1)*8))<(16-(P>1)*8)ANDABS(W-TY)<16THEN870 840 RETURN 850 HP=HP-TH/B 860 HP=HP-P*10:GOSUB990:GOSUB580:M=10:GOTO820 870 GOSUB990:TH=TH-HI/A:TX=TX+(P<>3ANDTX>20ANDTX<224)*K*8:IFTH<1POKE&H400C,3,0,138,0:TH=0:TY=0:FORI=4TO7:SPRITEI:NEXT:HP=HI:GOSUB580:RETURN150 880 RETURN 890 IFMOVE(N)=0ANDRND(P*10)-(TH5)*9>8DEFMOVE(N)=SPRITE(10+(P=2)*5+(P=3)*3,3-(X