10 DEFINT a-z:po=0:CLS:MODE 1:j=0:s=2:ink 0,0:INK 1,24:ink 2,6:T=0:x=20:y=13:pen 1:for i=2 to 37:locate i,2:? chr$(143):locate i,21:? chr$(143):next:for i=2 to 21:locate 2,i:?chr$(143):locate 38,i:?chr$(143):next:t=0:sy=249:u=sc:if sc=0 then w=15:Q=15 11 BO=0:sc=0:v=1:for i=3 to 38 step 2:locate i,1:? chr$(149):locate i,22:? chr$(149):next:locate 3,11:?chr$(143):ink 3,26:locate 35,24:pen 3:? schi:locate 1,24:?" SCORE ":locate 28,24:?"HISCORE ":if u>schi then schi=u:pen 1:locate 35,24:pen 3:?schi 15 if m=0 then MY=(INKEY(0)=0 AND y>1)-(INKEY(2)=0 AND y<25):IF MY<>0 THEN LOCATE x,y:PRINT " ":if (BT2=1 and My>0) then My=0 else if (BT1=1 and My<0) then My=0 else y=y+My:SOUND 3,10+y,1 30 M =(INKEY(8)=0 AND x>1)-(INKEY(1)=0 AND x<40): IF M<>0 THEN LOCATE x,y:PRINT" ":if (BT=1 and M>0) then M=0 else if (BT3=1 and M<0) then M=0 else x=x+M:SOUND 3,10+x,1 31 locate Q,W:pen s:?chr$(143):if BO=1 and P>4 then pen 3:locate xi,yi:?chr$(fx) else if P<=4 then if (x<=Q and y=w and j=0) then G=-1 else if (x>Q and y=w and j=0) then G=1 else if (y<W and j=0) then H=-1 else if (y>W and j=0) then H=1 32 if (BT=3 or BT1=3 or BT2=3 or BT3=3)then BO=0:SC=SC+5:po=0:locate 7,24:pen 3:print SC:Sound 2,50+xi,3:locate xi,yi:?" ":j=1 else if BO=0 and t=4 then randomize time:xi=int(rnd*33)+4:yi=int(rnd*17)+3:pen 3:sound 3,200,2:locate xi,yi:? chr$(fx):BO=1:j=0 33 po=po+1:aBT=TEST(Q*16,400-W*16):aBT1=TEST((Q-1)*16,400-(w-1)*16):aBT2=TEST((q-1)*16,400-(w+1)*16):aBT3=TEST((q-2)*16,400-w*16):P=P+v:if p<=4 then if j=0 then P=P+1:SOUND 2,800,1:Q=Q+G:W=W+H else if p>=8 then p=0 34 if po=20 then s=2:j=0 else if (aBT and G>0) then G=-1 else if (aBT3 and G<0) then G=1 else if (aBT2 and H>0) then H=-1 else if (aBT1 and H<0) then h=1 else if po>50 and BO=1 then locate xi,yi:?" ":BO=0:po=0:s=2 else if j=1 and po<20 then s=0 35 locate Q,W:pen s:?chr$(sx):pen 3:locate x,y:?chr$(sy):t=t+1:if t=1 then sy=249:sx=207:fx=140 else if t=2 then sy=251:fx=215 else if t=3 then sy=249:sx=238:fx=140 else if t=4 then sy=250:fx=214 else if t=5 then t=0:P=0:v=1+int(sc/15):if v>4 then v=4 40 BT=TEST(x*16,400-y*16):BT1=TEST((x-1)*16,400-(y-1)*16):BT2=TEST((x-1)*16,400-(y+1)*16):BT3=TEST((x-2)*16,400-y*16): if (BT=2 or BT1=2 or BT2=2 or BT3=2) then SOUND 1,0,50,15,,,31:cls:q=x:w=y:goto 10 else goto 15