mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
7 lines
264 B
QBasic
7 lines
264 B
QBasic
1HGR:HGR2:HCOLOR=3
|
|
2POKE230,32+32*P:P=NOTP:POKE49236+P,0
|
|
3FORI=1TO10:A=X(I):B=Y(I):C=Z(I)*.1:X(I)=A+(A-140)*C:Y(I)=B+(B-96)*C:Z(I)=Z(I)+.1
|
|
5IFX(I)<0ORX(I)>279ORY(I)<0ORY(I)>191THENX(I)=70+RND(1)*140:Y(I)=48+RND(1)*96:Z(I)=0:GOTO7
|
|
6HPLOTA,BTOX(I),Y(I)
|
|
7NEXTI:GOTO2
|