' BASIC Anywhere Machine program by CharlieJV
' hardly-modified version of program by "JamesD"
' found at https://atariage.com/forums/topic/218503-graphics-8-fedora-hat/?do=findComment&comment=3392254
screen 7
100 DIM RR(320)
120 FOR I=0 TO 320:RR(I)=193:NEXT I
130 XP=144:XR=4.71238905:XF=XR/XP
140 FOR ZI=64 TO -64 STEP -1
150 ZT=ZI*2.25:ZS=ZT*ZT
160 XL=INT(SQR(20736-ZS)+0.5)
170 ZX=ZI+160:ZY=90+ZI
180 FOR XI=0 TO XL
190 XT=SQR(XI*XI+ZS)*XF
200 YY=(SIN(XT)+SIN(XT*3)*0.4)*56
210 X1=int(XI+ZX):Y1=int(ZY-YY)
220 IF RR(X1)>Y1 THEN RR(X1)=Y1:pSET(X1,Y1), 14
230 X1=ZX-XI
240 IF RR(X1)>Y1 THEN RR(X1)=Y1:pSET(X1,Y1), 7
_delay 0.001
250 NEXT XI : NEXT ZI