%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:293
File Name:DBLINT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"DOUBLE INTEGRAL"
"STORE \f6(X,Y) FIRST"
"1ST INTEGRAL IS FROM \f4 TO \f5"
"IS IT (1)DX OR (2)DY"?\->O
"2ND INTEGRAL IS FROM"?\->A
"TO"?\->B
"NUMBER OF INTERVALS  EACH WAY="?\->N
(B-A)/N\->D
0\->S
\For 0\->J \To N-1
O=1\=>A+(J+.5)D\->Y
O=2\=>A+(J+.5)D\->X
(\f5-\f4)/N\->C
\For 0\->K \To N-1
O=1\=>\f4+(K+.5)C\->X
O=2\=>\f4+(K+.5)C\->Y
S+\f6CD\->S
\Next 
\Next 
S
%End