TITLE TEST OF DELAY PROCEDURES 00000010 * EULER 00000020 * NARROW 00000030 * NOSTATS 00000040 L LEVEL.K=INTGRL(RATE.JK) 00000050 R RATE.KL=(DLVL-LEVEL.K)/CON 00000060 C DLVL=500 00000070 N LEVEL=100 00000080 C CON=5 00000090 L LEVEL2.K=INTGRL(RATE2.JK) 00000100 N LEVEL2=100 00000110 R RATE2.KL=(DLVL-OUT.K)/CON 00000120 EXPND DLINF1(OUT,LEVEL2,TRX) 00000130 C TRX=5 00000140 PARM DT=1 00000150 PARM START=0 00000160 PARM STOP=50 00000170 PARM PLTPER=2 00000180 PLOT LEVEL(0,1000),LEVEL2=2,DLVL 00000190