CLS
SCREEN 7
WINDOW (-1.75, .5)-(1.75, -2.4)
COLOR (15)
PRINT "x = SIN(m) * COS(N)"
PRINT "Y = ((SIN(m)) * (((-1) + (2 / 3.141592654)) * ((SIN(N))))) -m"
FOR j = 0 TO 4.5 STEP .1
FOR K = 0 TO 50 STEP .5
N = (K * 2) * (3.141592654# / 50)
m = j * (3.14159265# / 15)
x = SIN(m) * COS(N)
Y = ((SIN(m)) * (((-1) + (2 / 3.141592654#)) * ((SIN(N))))) - (m)
PSET (x, Y)
FOR wo1 = 1 TO 1000
NEXT wo1
NEXT K
NEXT j
LOCATE 20, 18
PRINT "Cone"
SYSTEM