DIM pal(255, 3)
a = 64
SCREEN 13
FOR b = 1 TO 63
pal(b, 1) = b
pal(b + 63, 1) = 63
pal(b + 63, 2) = b
pal(b + 126, 1) = 63
pal(b + 126, 2) = a - b
pal(b + 189, 1) = a - b
NEXT b

FOR a = 1 TO 255
OUT 968, a
OUT 969, pal(a, 1)
OUT 969, pal(a, 2)
OUT 969, pal(a, 3)
NEXT a

n% = 90
ht% = 120
start:
f3:
FOR x = -60 TO n% STEP .5: x2 = x * x'1: x2 = x * x
COLOR x + 80
FOR y = -100 TO ht%
GOSUB l3
ny = y - x * .5 + 150: nz = z + x * .7 + 120
LINE (ny, nz)-(ny, 199), 0
IF y = -100 THEN
PSET (ny, nz)
ELSE
LINE (py, pz)-(ny, nz)
END IF
py = ny: pz = nz
       NEXT y
   NEXT x
GOTO 12
l3:
d = SQR(x2 + y * y)
IF d = 0 THEN z = -60 ELSE z = -300 * SIN(d / 5) / (d)
RETURN
12 :

PALETTE 1, 63 * 65536 + 63 * 256 + 63
COLOR 1
LOCATE 1, 1
PRINT "DONE...PRESS A KEY TO QUIT"
DO
LOOP UNTIL INKEY$ <> ""