; ***********************
; Surveying Library SY-21
; ***********************
; Borrow Pit Volume
; Earthwork Program

#EMULATOR c:\ti-59\sy\21\SY-21.t59
#LISTING c:\ti-59\sy\21\SY-21.lst
#AZEMULATOR c:\ti-59\sy\21\SY-21.TI

lbl e'
cms inv fix 0 adv inv stf 1 rtn

lbl e
cp prt sto 7 sum 3 ( rcl 0 - 1 ) sto 0
eq 48 rtn

( rcl 3 / 4 * rcl 1 * rcl 2 ) sto 5 gto 68

iff 1 31 ( rcl 3 / 3 * rcl 1 * rcl 2 / 2 )
sto 5 sum 6 0 rtn

lbl c
0 sto 3 inv stf 1 3 sto 0 prt rtn

lbl d
0 sto 3 stf 1 4 sto 0 prt rtn

lbl a
sto 2 prt rtn

lbl b
sto 1 prt rtn

lbl a'
rcl 2 prt rtn

lbl b'
rcl 1 prt rtn

lbl c'
rcl 6 prt adv rtn

lbl d'
rcl 5 prt adv rtn



#end
