\start83\
\comment=Program file dated 10/07/97, 14:24
\name=SUMMAT
\file=J:\SUMMAT.AS3
prgmFACSU
Disp "ENTER Y\1\"
Disp "(IN QUOTES)"
Disp ""
Input "Y\1\=",Y\1\
Lbl 1
ClrHome
Disp "ENTER LOWER"
Disp "LIMIT"
Prompt K
Disp "ENTER UPPER"
Disp "LIMIT"
Prompt N
0\->\S
For(I,K,N)
S+Y\1\(I)\->\S
Disp "X = ",I
End
ClrHome
Disp "SUM = "
Disp S\>\Frac
Disp "RUN AGAIN ?"
Disp "(1) YES"
Disp "(2) NO"
Disp "ENTER 1 OR 2"
Input R
If R=1
Goto 1

\stop83\