
       module deposit_pay ( amt = deposit , pay = pay, surplus = surplus)
       star jopay 0
       prev = pc_calc(pc_star(#))
       if(gt(amt,pay)) then
           star +deposit_pay1 pc_calc(amt-pay) - *refund_pay=() *refund_pay2=pc_calc(surplus,f.2) *refund_pay1
           star +deposit_pay2 pc_calc(pay)
           star +deposit_pay3 0
       else
           star +deposit_pay3 pc_calc(amt)
           star -deposit_pay3 pc_calc(amt) *refund_pay
       endif
       i=nint(pc_star(&misc.target)*100)
       j=nint((pc_star(#)-prev)*2600/12)
       if(gt(j,i)) then
           print "%pstar - &misc should be increased by     pc_calc((j-i)/100,f10.2)"
       else if(lt(j,i)) then
           print "%pstar - &misc should be decreased by     pc_calc((j-i)/100,f10.2)"
       else
           goto next
       endif
       print "       - the new value of &misc should be pc_calc(j/100,f10.2)"
       print "                 - deflated.pay should be pc_calc(j/100*12/26,f10.2)"
       label next
       if(le(pc_star(*ltcapital),0)) return
       if(ge(pc_star(#dpay),0)) then
           print "*LTCAPITAL has pc_calc(pc_star(*ltcapital)),F.2)"
       else if(le(pc_star(#dpay),-pc_star(*ltcapital))) then
           star ltcapital pc_calc(-pc_star(*ltcapital))
           star ltdebt pc_calc(pc_star(#dpay)+pc_star(*ltcapital))
       else
           star ltcapital pc_star(#dpay)
           print "*LTCAPITAL has pc_calc(pc_star(*ltcapital)+pc_star(#dpay)),F.2)"
       endif
       return

       end
