1PAGE 1    TEST OF DELAY PROCEDURES                          (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE TEST OF DELAY PROCEDURES                                          
     0002  * EULER                                                                 
     0003  * NARROW                                                                
     0004  * NOSTATS                                                               
     0005  L LEVEL.K=INTGRL(RATE.JK)                                               
     0006  R RATE.KL=(DLVL-LEVEL.K)/CON                                            
     0007  C DLVL=500                                                              
     0008  N LEVEL=100                                                             
     0009  C CON=5                                                                 
     0010  L LEVEL2.K=INTGRL(RATE2.JK)                                             
     0011  N LEVEL2=100                                                            
     0012  R RATE2.KL=(DLVL-OUT.K)/CON                                             
     0013  EXPND DLINF1(OUT,LEVEL2,TRX)                                            
     0014+ R $R11.KL=(LEVEL2.K-$L11.K)/TRX                                         
     0015+ L $L11.K=INTGRL($R11.JK)                                                
     0016+ N $L11=LEVEL2                                                           
     0017+ A OUT.K=$L11.K                                                          
     0018+ MEND                                                                    
     0019  C TRX=5                                                                 
     0020  PARM DT=1                                                               
     0021  PARM START=0                                                            
     0022  PARM STOP=50                                                            
     0023  PARM PLTPER=2                                                           
     0024  PLOT LEVEL(0,1000),LEVEL2=2,DLVL                                        
1PAGE 2    TEST OF DELAY PROCEDURES                          (C) 1978 UND
 
      L=LEVEL     2=LEVEL2    D=DLVL      
 
   D2L  0             250           500           750           1000          
     0  . . . L . . . . . . . . . . D . . . . . . . . . . . . . .  L2    
        .             L2            D             .             .        
        .             .    L   2    D             .             .        
 T      .             .       L     D2            .             .        
 I      .             .         L   D     2       .             .        
 M      .             .           L D       2     .             .        
 E      .             .           L D        2    .             .        
        .             .            LD       2     .             .        
        .             .            LD     2       .             .        
        .             .             L   2         .             .  LD    
    20  . . . . . . . . . . . . . . L 2 . . . . . . . . . . . . .  LD    
        .             .             L             .             .  L2D   
        .             .            2L             .             .  LD    
        .             .           2 L             .             .  LD    
        .             .           2 L             .             .  LD    
        .             .           2 L             .             .  LD    
        .             .           2 L             .             .  LD    
        .             .            2L             .             .  LD    
        .             .            2L             .             .  LD    
        .             .             L             .             .  L2D   
    40  . . . . . . . . . . . . . . L . . . . . . . . . . . . . .  L2D   
        .             .             L             .             .  L2D   
        .             .             L             .             .  L2D   
        .             .             L             .             .  L2D   
        .             .             L             .             .  L2D   
    50  . . . . . . . . . . . . . . L . . . . . . . . . . . . . .  L2D