dos33fsprogs/basic/appleiibot/planet.bas
Vince Weaver f974330b0d basic: planet in 280 bytes
this is a stripped down implementation of a much cooler BBC Basic
program by Kweepa
2022-07-09 01:21:22 -04:00

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