mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
8 lines
273 B
QBasic
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
|