• Ichigojam
• mobileB2

10 'FLYNGbIRD
20 CLV:X=8:V=-1:CLS
30 @IN
40 LC0,0:?"S:";S
50 IFP=15 LCX,Y:?" ";:Y=Y+1:P=0
60 IFY>7O=1
70 IFP%10=0LCX,Y:?" ";:X=X+V
80 IFX<0X=14
90 IFX>14X=0
100 K=INKEY()
110 IFK=32IFY>0:U=U+1
115 IFK=70V=-V
120 IFU>3LCX,Y:?" ";:Y=Y-1:X=X+V:U=0:BEEP80
130 G=VPEEK(X,Y):IFG=36:O=1
140 IFOLC0,4:PLAY"T600CRCR2CRF1":END
150 IFG=37S=S+1:BEEP:[1]=15
160 IFK=0P=P+1
170 IFY=0U=0
180 @OUT
190 LCX,Y:IFV=1?">";ELSE?"<";
200 FORI=0TO1
210 IF[I]=15[I]=RND(15):[I+2]=0
220 IF[I+2]>6LC[I],[I+2]:?" ";:[I]=15:GOTO@WED
230 IFRND(20)=0LC[I],[I+2]:?" ":[I+2]=[I+2]+1
240 LC[I],[I+2]:?CHR$(36+I);
250 @WED
260 NEXT
270 GOTO@IN

Pagetop