TITLE           GRAPH OF A SPIRAL                                       00000010
* SOURCE                                                                00000020
* NOWARN                                                                00000030
* NARROW                                                                00000035
* NOSTATS                                                               00000040
L LEV=INTGRL(RATE)                                                      00000060
N LEV=0                                                                 00000070
R RATE=0                                                                00000080
A X=COEFF*COS(OMEGA*TIME+PHI)                                           00000090
A Y=COEFF*SIN(OMEGA*TIME+PHI)                                           00000100
A COEFF=TIME                                                            00000110
C PHI=0                                                                 00000120
A OMEGA=1                                                               00000130
PLOT Y=*//X                                                             00000140
PARM DT=.05                                                             00000150
PARM START=0                                                            00000160
PARM STOP=12.54                                                         00000170
PARM PLTPER=.1                                                          00000180