mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-20 03:35:24 +00:00
7 lines
275 B
QBasic
7 lines
275 B
QBasic
|
1HGR:HGR2:HCOLOR=3
|
||
|
|
2POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
|
||
|
|
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)=RND(1)*280:Y(I)=RND(1)*192:Z(I)=0:GOTO7
|
||
|
|
6HPLOTA,BTOX(I),Y(I)
|
||
|
|
7NEXTI:GOTO2
|