\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=CMASS
\FILE=CMASS.85P
Func:FnOff 
ClLCD
Radian
Disp "ENTER FIRST"
Disp "FUNCTION"
InpST "Y=",Y
\St>Eq\(Y,y1)
ClLCD
Disp "ENTER SECOND"
Disp "FUNCTION"
InpST "Y2=",Y2
\St>Eq\(Y2,y2)
ClLCD
Lbl AA
Disp "LOWER LIMIT OF X"
Prompt XL
Disp "UPPER LIMIT OF X"
Prompt XU
Disp "# INTERVALS"
Prompt N
0\->\MX
0\->\MY
0\->\SM
(XU-XL)/N\->\W
XL\->\xMin
XU\->\xMax
XL+(W/2)\->\X
ClLCD
Disp "SCALING GRAPH"
Disp "PLEASE WAIT"
ZFit
If yMin>0
0\->\yMin
If yMax<0
0\->\yMax
DispG
For(I,1,N)
evalF(y1,x,X)\->\YP
evalF(y2,x,X)\->\P2
MX+(.5(YP+P2))(YP-P2)*W\->\MX
MY+(X)(YP-P2)*W\->\MY
SM+(YP-P2)*W\->\SM
Line(X-W/2,P2,X-W/2,YP)
Line(X-W/2,YP,X+W/2,YP)
Line(X+W/2,YP,X+W/2,P2)
Line(X+W/2,P2,X-W/2,P2)
X+W\->\X
End
MY/SM\->\CX
MX/SM\->\CY
Line(CX,yMax,CX,yMin)
Line(xMin,CY,xMax,CY)
Pause 
ClLCD
Disp "TOTAL MASS ="
Disp SM
Disp " "
Disp "HIT ENTER TO CONTINUE"
Pause 
ClLCD
Disp "X MOMENT ="
Disp MX
Disp "Y MOMENT ="
Disp MY
Disp " "
Disp "HIT ENTER TO CONTINUE"
Pause 
ClLCD
Disp "CENTER OF MASS ="
Disp "X =",CX
Disp "Y =",CY
Disp " "
Disp "HIT ENTER TO CONTINUE"
Pause 
ClLCD
Disp "RUN AGAIN ?"
Disp "YES  = 1"
Disp "NO   = 2"
Input R
If R==1
Goto AA
\STOP\