\start83\
\comment=Program file dated 10/07/97, 14:24
\name=INTEGRAL
\file=J:\INTEGRAL.AS3
prgmFACSU
Disp "ENTER Y\1\"
Disp ""
Disp "(IN QUOTES)"
Disp ""
Input "Y\1\=",Y\1\
Lbl 1
ClrHome
Disp "ENTER LOWER"
Disp "LIMIT OF X"
Prompt L
Disp ""
Disp "ENTER UPPER"
Disp "LIMIT OF X"
Prompt U
fnInt(Y\1\,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
\stop83\