%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:438
File Name:TRIPLINT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"TRIPLE INTEGRAL"
"STORE \f6(X,Y,Z) FIRST"
"1ST INTEGRAL IS FROM \f4 TO \f5"
"IS IT (1)DX, (2)DY OR(3)DZ"?\->F
"2ND INTEGRAL IS FROM \f2 TO \f3"
"IS IT (1)DX, (2)DY OR(3)DZ"?\->S
F+S\->T
"3RD INTEGRAL IS FROM"?\->A
"TO"?\->B
"NUMBER OF INTERVALS  EACH WAY="?\->N
(B-A)/N\->D
0\->I
\For 0\->J \To N-1
A+(J+.5)D\->C
T=3\=>C\->Z
T=4\=>C\->Y
T=5\=>C\->X
(\f3-\f2)/N\->E
\For 0\->K \To N-1
\f2+(K+.5)E\->G
S=1\=>G\->X
S=2\=>G\->Y
S=3\=>G\->Z
(\f5-\f4)/N\->H
\For 0\->L \To N-1
\f4+(L+.5)H\->M
F=1\=>M\->X
F=2\=>M\->Y
F=3\=>M\->Z
I+\f6DEH\->I
\Next 
\Next 
\Next 
I
%End