10 D=1:B=2:SPRITEON:CGENB:CGSETD,D:PALETB G,14,48,39,24:FORI=G TOD:DEFSPRITEI,(G,I,G,G,G)=CHR$(223):NEXT:POKE&H684,176,177,178,179:DEFMOVE(G)=SPRITE(10,D,D,15,G,3):DEFSPRITE7,(G,D,G,D,D)="ポペプピ
20 FORI=D TO31:H=RND(3)+202:IFI MOD4=G THENH=32:IFI=16THENH=193:A$="
25 A$=A$+CHR$(H):NEXT
30 SPRITEG:SPRITED:SPRITE7:VIEW:POKE&H4015,G:GOSUB300
35 FORQ=G TO5000:IFSTRIG(G)=D THENQ=5001
40 NEXT:XX=G:IFQ=5001THENP=-D:R=G:CLS:SPRITE7,116,92:GOTO110
45 SC=G:M=3:R=D:T=G
50 CLS:SPRITEG:SPRITED:GOSUB300:SPRITE7,116,92:IFR=10THEN230
60 POKE&H4015,&HFF:P=G:U=G:X=13:E=G:XX=G:F=G:LOCATE6,7:PRINT"ROUND";R;" READY!":PAUSE100
70 H=ASC(SCR$(X,9)):IFH=32ORH=205ORH=206THENIFX<>N ORF<>12THEN100
80 POSITIONG,X*8+12,88:MOVEG:SPRITE7:P=-D:GOTO110
100 S=STICK(G):H=S MOD4:X=X+(H=B ANDX>B)-(H=D ANDX<25):SPRITE7,X*8+12,92
110 SPRITED:C=(P>G):POKE&H4008,&H26,G,RND(256),D-P*C:IFXX*YY=G ORXX>26ORYY>22THEN130
120 XX=XX+A:YY=YY+(S>7)-(S/4=1):SPRITED,XX*8+12,YY*8+20:LOCATEXX,YY:H=ASC(SCR$(XX,YY)):IFABS(H-203)<B THENA=-A:PRINT" ":POKE&H400C,&H4,&HFF,&H3D,&HFF
126 IFH=193ORH=207THENPRINT" ":E=E+10+(H=207)*9:A=-A:POKE&H4000,&HA4,&H8C+(H=207),&H88,&HFF
127 IFXX=X ANDYY=9ANDP=G THENXX=G:POKE&H4000,&H4,&HFF,&H87,&HFF:IFE>G THENSC=SC+E:T=T+E:POKE&H4000,&HAF,&HBB,&HFF,B:IFT>R*10+9THENP=D:U=G
128 GOTO135
130 IFSTRIG(G)=4ANDP=G THENXX=X:A=1-X/13*B:E=G:YY=9:POKE&H4000,&H1F,&HFF,&H55,&HFF
135 IFU>G THENLOCATEY,23:PRINTMID$(A$,RND(32-V)+D,V);:U=U-D:GOTO143
140 IFRND(10)=R ANDP<D THENV=RND(R+7)+B:U=V-RND(40)*(RND(R*7)>R*5):Y=RND(28-V):IFRND(R*7)>R*5THENY=RND(3)+3:V=28-Y*B:U=RND(R)+D
143 IFF>G THENF=F-O:SPRITEG,8*N+16,F*8:POKE&H4004,&H93,&H9F,&HAA,&H96:GOTO145
144 IFRND(40+(P>G)*25)=G THENN=RND(7)+X-3:O=RND(3)+3:O=O-(O=5):F=24+O
145 LOCATERND(26)+D,23:PRINTCHR$(202-C*3+RND(6+C*4)):IFP=G THEN70
150 P=P+SGN(P):IFP>50THENSPRITE7:SPRITEG:CLS:LOCATE7,11:PRINT"BONUS 5000 ";CHR$(181);R:SC=SC+R*50:T=G:R=R+D:M=M+B:PAUSE300:GOTO210
160 IFP>G THEN70
170 IFMOVE(G)THENPOKE&H400C,&HF,&HFF,&H78-P,&HFF:GOTO110
180 ERAG:IFR=G ANDSTRIG(G)=D THEN20
190 IFP>-20+180*(R=G)THEN110
200 IFR=G THEN30
210 IFHI<SC THENHI=SC
220 M=M-D:IFM>G THEN50
230 GOSUB300:LOCATE9,12:PRINT"GAME OVER":FORI=G TO3000:IFSTRIG(G)=D THENI=3000
240 NEXT:GOTO30
300 LOCATED,G:PRINT"HI-SCORE";HI;"00":LOCATE4,B:PRINT"SCORE";SC;"00":LOCATE18,B:PRINT"LEFT";M:RETURN
