1PAGE 1    A PROGRAM TO TEST THE PULSE FUNCTION              (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE A PROGRAM TO TEST THE PULSE FUNCTION                              
     0002  * EULER                                                                 
     0003  * NARROW                                                                
     0004  * NOSTATS                                                               
     0005  L LEVEL.K=INTGRL(R.JK)                                                  
     0006  N LEVEL=0                                                               
     0007  R R.KL=LEVEL.K*.06+PULSE(4,1,5,5)                                       
     0008  PARM DT=1                                                               
     0009  PARM START=0                                                            
     0010  PARM STOP=20                                                            
     0011  PARM PLTPER=1                                                           
     0012  PARM PRTPER=1                                                           
     0013  NOTE DELAYED LEVEL VARIABLE                                             
     0014  PRINT LEVEL                                                             
     0015  NOTE DELAYED LEVEL VARIABLE                                             
     0016  PLOT LEVEL                                                              
1PAGE 2    A PROGRAM TO TEST THE PULSE FUNCTION - DELAYED L  (C) 1978 UND
 
        TIME     LEVEL    
                                                                                                                   
        0.000     0.000   
        1.000     0.000   
        2.000     0.000   
        3.000     0.000   
        4.000     0.000   
        5.000     0.000   
        6.000     4.000   
        7.000     4.240   
        8.000     4.494   
        9.000     4.764   
       10.000     5.050   
       11.000     5.353   
       12.000     9.674   
       13.000    10.255   
       14.000    10.870   
       15.000    11.522   
       16.000    12.213   
       17.000    12.946   
       18.000    17.723   
       19.000    18.786   
       20.000    19.913   
1PAGE 3    A PROGRAM TO TEST THE PULSE FUNCTION - DELAYED L  (C) 1978 UND
 
      L=LEVEL     
 
     L  0             5             10            15            20            
     0  L . . . . . . . . . . . . . . . . . . . . . . . . . . . .        
        L             .             .             .             .        
        L             .             .             .             .        
 T      L             .             .             .             .        
 I      L             .             .             .             .        
 M      L             .             .             .             .        
 E      .          L  .             .             .             .        
        .           L .             .             .             .        
        .            L.             .             .             .        
        .            L.             .             .             .        
    10  . . . . . . . L . . . . . . . . . . . . . . . . . . . . .        
        .             .L            .             .             .        
        .             .            L.             .             .        
        .             .             .L            .             .        
        .             .             . L           .             .        
        .             .             .   L         .             .        
        .             .             .     L       .             .        
        .             .             .       L     .             .        
        .             .             .             .       L     .        
        .             .             .             .          L  .        
    20  . . . . . . . . . . . . . . . . . . . . . . . . . . . . L