%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:291
File Name:RIEMANN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"RIEMANN SUM"
"STORE \f6(X) FIRST"
"INTERVAL FROM X="?\->A
"TO X="?\->B
"NUMBER OF"
"SUBINTERVALS="?\->N
(B-A)/N\->D
"(1) LEFT ENDPOINT"
"(2) RIGHT ENDPOINT"
"(3) MIDPOINT"
"(4) TRAPEZOID"
"CHOICE="?\->C
0\->S
A\->X
C=2\=>X+D\->X
C=3\=>X+.5D\->X
\For 1\->K \To N
S+\f6D\->S
X+D\->X
\Next 
\If C=4
\Then A\->X
\f6\->E
B\->X
\f6\->F
S+(F-E)D/2\->S
\IfEnd
S
%End