1 DEFINT a-z:CALL &BC02:INK 0,0:x=17:u=316:WHILE x:MODE 0:y=10:c=319:l=10:q=158:LOCATE 8,1:PRINT s;r:WHILE c>9 AND c<629:GOSUB 2:c=c+x:l=l+y:p=TEST(c,l):GOSUB 2:x=x*(1+2*(p=2)):y=y*(1+2*(l<10 OR l>366)):WEND:r=r-(c<8):s=s-(C>539):WHILE INKEY(47):WEND:WEND
2 PLOT c,l,z:DRAWR 0,4:SOUND -(l<10 OR l>366 OR 580<c OR 60>c)+p,99-25*p,1,15:z=4-z:WHILE INKEY$>"":PLOT 540,u-q,0:DRAWR 0,50:PLOT 96,q:DRAWR 0,50:q=q+10*(INKEY(0) OR -INKEY(2)):q=MAX(0,MIN(u,q)):WEND:PLOT 540,u-q,2:DRAWR 0,50:PLOT 96,q:DRAWR 0,50:RETURN