2 x1 = 400:x2 = x1 * x1:y1 = 256:y2 = 192:t = 14
10 FOR x = 1 TO x1
40 x4 = x * x: a = SQR(x2 - x4)
60 FOR i = -a TO a STEP 5
70 r = SQR(x4 + i * i) / x1: f = (r - 1) * COS((t) * r)
90 y = i / 3 + f * y2
95 IF i = -a THEN m = y: m1 = y: y = y1 + y: GOTO 120
100 IF y >= m THEN 160
110 m = y: y = y1 + y
120 PLOT 69,((x1 - x) * 1.5), (480 - y * 2)
130 PLOT 69,((x1 + x) * 1.5), (480 - y * 2)
140 NEXT i: NEXT x: GOTO 200
160 IF y <= m1 THEN 140
170 m1 = y: y = y1 + y: GOTO 120
