DROP.BA

0 CLS:POKE-902,PEEK(63795):F=.25+RND(1)/4:W=-.25+RND(1)/2:X=0:Y=1:B%=5+25*RND(1)
1 C=0:PRINT@280+B%,CHR$(27)"Vý"SPACE$(9-E)"û":PRINT@200,"S:"S:PRINT"L:"5-L:PRINTUSING"W:#.#";W
2 C=C+F:PRINT@C," íè":IFX<>0THENPRINT@OX+40*OY%," ":OX=X:OY%=Y:Y=Y+.3:X=X+W:GOTO6
4 IFINKEY$=" "ANDX=0THENX=C+2:F=F*2:OX=0:OY%=0
5 IFC>=37THENPRINT@37,"    ":C=0:GOTO2ELSE2
6 IFY<7.01THENPRINT@X+40*FIX(Y),"†":GOTO4
7 IFX>=B%+1ANDX<=B%+10-ETHENPRINT@98,"Hit!":CALL4811:S=S+10*(E+1):E=E-(E<8):GOTO0
8 L=L+1:IFL<5THENPRINT@98,"MISS!":CALL4811:GOTO0ELSEPRINT@95,"Game over":END