TITLE PROGRAM TO TEST TABLES                                            00000010
* EULER                                                                 00000020
* NARROW                                                                00000030
* 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,1,10,1)                                        00000080
S LE.K=TABLE(TAB1,TIME.K,1,10)                                          00000090
T TAB1=1,2,1,2                                                          00000120
PARM DT=.2                                                              00000130
PARM STOP=10                                                            00000140
PARM PLTPER=.2                                                          00000150
PLOT HL=+(0,3),LE=*                                                     00000160