mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-05-28 17:41:29 +00:00
ba9d287fb2
apparently this all came from the Acorn User's January 1989 issue, an article by Peter Voke, called 'A World Of Your Own' (page 85)
7 lines
278 B
QBasic
7 lines
278 B
QBasic
0GR:COLOR=7:FORR=0TO24:PLOTRND(1)*40,RND(1)*24:NEXT
|
|
1FORX=0TO10STEP.1:Y=R-1.75*SQR(100-X*X):A=12+X/2-RND(1)*X:COLOR=13:HLIN12-X,AATY:COLOR=12:HLINA,12+XATY:NEXT
|
|
4COLOR=9:FORI=1TO7:X=0:T=I*I*I/24:Y=23+T
|
|
5C=NOTC:Q=2+RND(1)*T:IFX+Q>39THENNEXT:END
|
|
6IFCTHENHLINX,X+QATY
|
|
7X=X+Q:GOTO5
|