1PAGE 1              GRAPH OF A SPIRAL                       (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE           GRAPH OF A SPIRAL                                       
     0002  * SOURCE                                                                
     0003  * NOWARN                                                                
     0004  * NARROW                                                                
     0005  * NOSTATS                                                               
     0006  L LEV=INTGRL(RATE)                                                      
     0007  N LEV=0                                                                 
     0008  R RATE=0                                                                
     0009  A X=COEFF*COS(OMEGA*TIME+PHI)                                           
     0010  A Y=COEFF*SIN(OMEGA*TIME+PHI)                                           
     0011  A COEFF=TIME                                                            
     0012  C PHI=0                                                                 
     0013  A OMEGA=1                                                               
     0014  PLOT Y=*//X                                                             
     0015  PARM DT=.05                                                             
     0016  PARM START=0                                                            
     0017  PARM STOP=12.54                                                         
     0018  PARM PLTPER=.1                                                          
1PAGE 2              GRAPH OF A SPIRAL                       (C) 1978 UND
 
      *=Y         
 
       *  -12           -7            -2            3             8             
    -9.5  . . . . . . . . . . .*. * * .*. * * .*.*. . . . . . . . .      
          .             .   *         .             * *           .      
          .             . *           .             .   *         .      
          .             *             .             .     *       .      
   X      .          *  .             .             .       *     .      
          .             .             .             .             .      
          .        *    .             .             .        *    .      
          .       *     .             .             .          *  .      
          .             .             .             .           * .      
          .     *       .             .             .             .      
  -3.875  . . . . . . . . . . . . . . .*****. . . . . . . . . . .*.      
          .    *        .           ***     ***     .            *.      
          .   *         .         **  .       **    .             .      
          .             .        *    .         *   .             *      
          .  *          .       *     .         **  .             *      
          .             .      *      .          *  .             .      
          .  *          .     *       .     *   **  .             *      
          .             .     *       .     *****   .            *.      
          .  *          .     *       .             .            *.      
          .             .     *       .             .             .      
    1.75  . .*. . . . . . . . * . . . . . . . . . . . . . . . . * .      
          .             .      *      .             .          *  .      
          .  *          .      *      .             .         *   .      
          .             .       **    .             .        *    .      
          .   *         .         *   .             .       *     .      
          .             .          *  .             .     *       .      
          .    *        .           **.             .   *         .      
          .             .             .**          *.* *          .      
          .      *      .             .   * * * **  .             .      
          .             .             .             .             .      
   7.375  . . . . .*. . . . . . . . . . . . . . . . . . . . . . . .      
          .             .             .             .             .      
          .          *  .             .             .             .      
          .            *.             .             .             .      
          .             .             .             .             .      
          .             . *           .             .             .      
          .             .   *         .             .             .      
          .             .      *      .             .             .      
          .             .          *  .             .             .      
          .             .             *  *          .             .      
      13  . . . . . . . . . . . . . . . . . . . . . . . . . . . . .