1000 REM SPECIAL FUNCTION SEARCH (Swings and Springs)
1090 ODE% = 7                   'System is special function ^

3050    IF ODE% = 1 OR ODE% = 7 THEN L = L / EPS

3680 IF Q$ = "D" THEN D% = 1 + (D% MOD 12): T% = 1

6450 IF ODE% <> 7 THEN GOTO 6500
6460    M% = 9
6470    XNEW = X + EPS * A(1) * Y
6480    YNEW = Y + EPS * (A(2) * X + A(3) * X * X * X + A(4) * X * X * Y + A(5) * X * Y * Y + A(6) * Y + A(7) * Y * Y * Y + A(8) * SIN(Z))
6490    ZNEW = Z + EPS * (A(9) + 1.3): IF ZNEW > TWOPI THEN ZNEW = ZNEW - TWOPI
6500 RETURN