10  SCREEN1:GCLS:PAUSE 10:INK4
20  ZERO(40,0)
30  REM SCALE 0.6,0.6
40  DEF FNA(Z)=20*SIN(Z/5)
50  K=5:R=100
60  FOR X=-R TO R
70   L=0
80   Y1=K*INT(SQR(R*R-X*X)/K)
90  FOR Y=Y1 TO -Y1 STEP -K
100   Z1=80+(FNA(SQR(X*X+Y*Y))-Y)*0.70106
110   IF Z1<L THEN GOTO 140
120   L=Z1
130   PSET(X+128,Z1),1
140  NEXT Y
150 NEXT X
160 PSET(85,0),0
170 INK6
180 LABEL"Z9001 - GRAFIK":PAUSE:INK3:SCREEN0