5 F=100
6 G=24
10 PRINTCHR$(11)
20 FORA=0TO30STEP.02
30 R=EXP(A/6)
35 X=F+7*R*COS(A)
36 Y=G+3*R*SIN(A)
37 X=X/2.5
39 IFX>79ORX<0ORY>71ORY<0THEN50
40 PSET(X,Y)
50 NEXT
60 GOTO60
70 REM30r=exp(a/6)
80 REM30r=a/5
90 REM30r=a*cos(a)*sin(a)
100 REM polar graphics
