Flappy Dot

 

3 scnclr:char,16,5,"c128/c16":char,14,10,"-flappy{space}dot-":char,11,14,"control{space}cursor{space}up!"


4l=27:k=7:char,12,11,"catch{space}the{space}heart":char,14,17,"hit{space}any{space}key":do:getk$:loopuntilk$<>"


5 scnclr:t=25:x=0:y=6:o=0:u=0:r=3:print"points:";:printp;:char,28,0,"flappy{space}dot"


6 char,o,2,chr$(35):o=o+1:char,37,r,chr$(35):r=r+0.5:char,u,22,chr$(35):u=u+1:ifu<38then6


9 char,l,k,chr$(211):l=l+1:k=k+3:ifl>31then l=27:k=7:char,31,19,"{space}":goto9


90 getq$:char,x,y,"{Q}":x=x+1:y=y+3:ify>22ory=5orx=38thent=ti:do:getk$:loopuntilk$<>"":run


91 ifx=landy=kthenp=p+10:vol8:sound1,100,15:goto5


101 ifq$=chr$(145)theny=y-4


250 t=t-1:ift=1thent=25:goto90


270 goto 250:rem program by m.quante

 

 

 

 

 

 

 

 

 

 

 

 

 

Compatible to Commodore BASIC 3.5 (runs also on C16 and Plus/4)

 

 

 

 

 

This site was designed with the
.com
website builder. Create your website today.
Start Now