SCREEN 7
WINDOW (-30, 30)-(30, -30)
begin:
PRINT "Input number of twists in mobius !!"
PRINT "Number must be even!!"
PRINT "Try 1428"
INPUT e
w = e / 2
FOR x = -3.1426 TO 3.141596 STEP .00055
y = (((COS(w * x)) / 2) - ((SIN(w * x)) / 1))
a = 15 * (COS(x))
b = (15 * (SIN(y))) * 1
FOR c = .7 TO 1 STEP .07
K = K + 1
IF K > 15 THEN K = 1
COLOR (K)
PSET (a, b * c)
NEXT c
NEXT x