dos33fsprogs/appleiibot/falling.bas
2020-11-24 21:50:43 -05:00

8 lines
273 B
QBasic

1GR:DIMR(16):FORI=6TO15:READR(I):NEXT
2C(O)=RND(1)*15+1:X(O)=RND(1)*40:Y(O)=INT(RND(1)*40)
3FORI=0TO7:N=C(I):IF(Y(I)>30ANDY(I)<36)ORY(I)=20ORY(I)=24ORY(I)=25THENN=R(N)
6COLOR=N:IFY(I)<40THENPLOTX(I),Y(I)
7Y(I)=Y(I)+1:NEXT
8O=O+1:IFO=8THENO=0
9GOTO2:DATA2,2,0,8,0,3,4,8,4,5