TITLE USE OF THE STEP FUNCTION                                          00000010
* EULER                                                                 00000020
* NARROW                                                                00000030
* NOSTATS                                                               00000040
L LEVEL.K=INTGRL(RATE.JK)                                               00000050
N LEVEL=100                                                             00000060
R RATE.KL=(CON.K)(DL-LEVEL.K)/ADJTM                                     00000070
A CON.K=STEP(HT,PYEAR)                                                  00000080
C PYEAR=10                                                              00000090
C HT=1                                                                  00000100
C ADJTM=5                                                               00000110
C DL=500                                                                00000120
PARM DT=1                                                               00000130
PARM START=0                                                            00000140
PARM STOP=20                                                            00000150
PARM PRTPER=1                                                           00000160
PARM PLTPER=1                                                           00000170
NOTE OUTPUT OF STEP FUNCTION                                            00000180
PRINT CON,LEVEL,DL                                                      00000190
PLOT CON/LEVEL/DL                                                       00000200