TITLE A PROGRAM TO TEST THE PULSE FUNCTION                              00000010
* EULER                                                                 00000020
* NARROW                                                                00000030
* NOSTATS                                                               00000040
L LEVEL.K=INTGRL(R.JK)                                                  00000050
N LEVEL=0                                                               00000060
R R.KL=LEVEL.K*.06+PULSE(4,1,5,5)                                       00000070
PARM DT=1                                                               00000080
PARM START=0                                                            00000090
PARM STOP=20                                                            00000100
PARM PLTPER=1                                                           00000110
PARM PRTPER=1                                                           00000120
NOTE DELAYED LEVEL VARIABLE                                             00000130
PRINT LEVEL                                                             00000140
NOTE DELAYED LEVEL VARIABLE                                             00000150
PLOT LEVEL                                                              00000160