TITLE VERSION 2 TABLE FUNCTIONS NDTRAN                                  00000010
* NOSTATS                                                               00000020
* EULER                                                                 00000030
* NARROW                                                                00000040
* NOWARN                                                                00000050
L LEV.K=INTGRL(TEST1.JK)                                                00000060
N LEV=1                                                                 00000070
R TEST1.KL=LEV.K*AUX.K                                                  00000080
A AUX.K=TABND(TAB1,TIME.K,3,7)                                          00000090
A AU1.K=TABHL(TAB1,TIME.K,3,7,1)                                        00000100
A AU2.K=TABFL(TAB1,TIME.K,3,7)                                          00000110
T TAB1=-5,0,1,8,27                                                      00000120
PARM DT=.1                                                              00000130
PARM START=0                                                            00000140
PARM STOP=10                                                            00000150
PARM PLTPER=.25                                                         00000160
PLOT AUX=#,AU1=*,AU2=+                                                  00000170