SCREEN 7
WINDOW (-3.75, 3.75)-(3.75, -3.75)
k = 1
start:
CLS
FOR t = 0 TO 6.4 STEP .015
x = (.2 * (SIN(30 * t)) + 2) * COS(t)
y = (.1 * (SIN(30 * t)) + 3) * SIN(t) + .3 * COS(30 * t)
PSET (x, y)
LOCATE (20)
PRINT "TORUS"
NEXT t
FOR i = 0 TO 10000
NEXT i
k = k + 1
IF k > 15 THEN k = 1
COLOR (k)
GOTO start