10 COLOR 1,15,1:SCREEN 2:DIM UB(424),LB(424)
20 XC=320:YC=115:XR=175:ZR=120:H=40:W=.043:XA=107
30 FOR S=1 TO 424:UB(S)=0:LB(S)=1000:NEXT
70 FOR Z=-ZR+1 TO ZR-1 STEP 5
80 XL=INT(XR*SQR(1-(Z*Z)/(ZR*ZR))+.5):X=-XL
100 Y=H*SIN(W*SQR(X*X+Z*Z)):X1=X+XC+Z
120 Y1=INT(199-(YC+Y+Z/2)+.5)
130 FOR X=-XL+1 TO XL-1
140 Y=H*SIN(W*SQR(X*X+Z*Z)):X2=XC+X+Z
160 Y2=INT(199-(YC+Y+Z/2)+.5)
170 IF Y2>=LB(X2-XA) THEN 210
180 LB(X2-XA)=Y2
190 IF UB(X2-XA)=0 THEN UB(X2-XA)=Y2
200 GOTO 230
210 IF Y2<=UB(X2-XA) THEN 240
220 UB(X2-XA)=Y2
230 LINE((X1-80)/2,Y1)-((X2-80)/2,Y2)
240 X1=X2:Y1=Y2
250 NEXT X,Z
350 GOTO 350