CLS
SCREEN 7
WINDOW (-1.75, 1.4)-(1.75, -1.4)
COLOR (15)
PRINT "x = COS(N)"
PRINT "Y = ((SIN(m)) * (((-1) + (2 / 3.141592654)) * ((SIN(N))))) + COS(m)"
FOR j = 1.5 TO 13.5 STEP .3
FOR K = 0 TO 50 STEP .3
N = (K * 2) * (3.141592654# / 50)
M = j * (3.141596 / 15)
x = COS(N)
Y = ((SIN(M)) * (((-1) + (2 / 3.141592654#)) * ((SIN(N))))) + COS(M)
PSET (x, Y)
FOR wo1 = 1 TO 1000
NEXT wo1
NEXT K
NEXT j
LOCATE 23, 18
PRINT "Cylinder"
SYSTEM