1PAGE 1    USE OF MACRO CAPABILITY                           (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE USE OF MACRO CAPABILITY                                           
     0002  * NARROW                                                                
     0003  * NOSTATS                                                               
     0004  MACRO MAIN(POS,VEL,CONST)                                               
     0005  L POS.K=INTGRL(VEL.JK)                                                  
     0006  N POS=0                                                                 
     0007  R VEL.KL=CONST*TIME.K                                                   
     0008  MEND                                                                    
     0009  EXPND MAIN(POS1,VEL1,)                                                  
     0010+ MEND  MAIN(POS1,VEL1,)                                                  
     0011  C CONST1=2                                                              
             $                                                                             
            1) *****   W A R N I N G    *****          ND0588
 
     0012  EXPND MAIN(POS2,VEL2,CONST2)                                            
     0013+ L POS2.K=INTGRL(VEL2.JK)                                                
     0014+ N POS2=0                                                                
     0015+ R VEL2.KL=CONST2*TIME.K                                                 
     0016+ MEND                                                                    
     0017  C CONST2=3                                                              
     0018  PARM DT=1                                                               
     0019  PARM START=0                                                            
     0020  PARM STOP=20                                                            
     0021  PARM PLTPER=1                                                           
     0022  PLOT POS2=2,POS1=1                                                      
                       $                                                                   
            1) *****  C R I T I C A L   *****          ND0516