mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 01:06:33 +00:00
7 lines
280 B
QBasic
7 lines
280 B
QBasic
0HGR2:FORR=0TO49:HPLOTRND(1)*280,RND(1)*99:NEXT
|
|
1X=X+1-(X*X/2600):Y=99-SQR(R*R-X*X):A=99+X/2-RND(1)*X:HCOLOR=3:HPLOT99-X,YTOA,Y:HCOLOR=1:HPLOTA,YTO99+X,Y
|
|
3IFX<49.9THEN1
|
|
4FORI=1TO7:X=0:T=I*I*I/4:Y=97+T
|
|
5HCOLOR=5*C:C=NOTC:Q=5+RND(1)*T:IFX+Q>279THENNEXT
|
|
6HPLOTX,YTOX+Q,Y:X=X+Q:GOTO5
|