\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=INTEGRAL
\FILE=INTEGRAL.82P
ClrHome
Disp "FIRST ENTER \Y1\"
Disp ""
Disp "THEN HIT ENTER"
Pause 
ClrHome
Func
Lbl 1
ClrHome
Disp "ENTER LOWER"
Disp "LIMIT OF X"
Prompt L
Disp ""
Disp "ENTER UPPER"
Disp "LIMIT OF X"
Prompt U
fnInt(\Y1\,X,L,U)\->\I
I/(U-L)\->\A
ClrHome
Disp "INTEGRAL ="
Disp "(DECIMAL FORM)"
Disp I
Disp ""
Disp "(FRACTION FORM)"
Disp I\>Frac\
Disp "HIT ENTER"
Pause 
ClrHome
Disp "AVERAGE VALUE"
Disp "ON INTERVAL ="
Disp ""
Disp A
Disp ""
Disp "HIT ENTER"
Pause 
ClrHome
Disp "RUN AGAIN?"
Disp ""
Disp "(1) YES"
Disp "(2) NO"
Disp ""
Input "ENTER 1 OR 2 ",C
If C=1
Goto 1
ClrHome
\STOP82\