TITLE PROGRAM TO TEST TABLES                                            00000010
* EULER                                                                 00000020
* NOSTATS                                                               00000040
L LEVEL.K=INTGRL(RATE.JK)                                               00000050
R RATE.KL=LEVEL.K                                                       00000060
N LEVEL=0                                                               00000070
S HL.K=TABHL(TAB1,TIME.K,2,8,2)                                         00000080
S LE.K=TABLE(TAB1,TIME.K,2,8)                                           00000090
S FL.K=TABFL(TAB1,TIME.K,2,8)                                           00000100
S ND.K=TABND(TAB1,TIME.K,2,8)                                           00000110
T TAB1=1,2,1,2                                                          00000120
PARM DT=.2                                                              00000130
PARM STOP=10                                                            00000140
PARM PLTPER=.2                                                          00000150
PLOT HL(.5,2.5),LE,FL,ND                                                00000160