attach "money.oac"
invoiceamt = 0.00
put at 10,7 'Enter an Invoice Amount: '
get invoiceamt width 8 precision 2 
put do clear screen 
correctamt = 0.00
correctamt = call("rndmoney",invoiceamt)
dollaramt = 0.00
dollaramt = call("dollars",invoiceamt)
centamt = 0 
centamt = call("cents",invoiceamt)
put at 10,3 ' Original Invoice: ', invoiceamt width 10 precision 2 left 
put at 10,5 'Corrected Invoice: ', correctamt width 10 precision 2 left 
put at 10,7 '     Dollars Only: ', dollaramt width 10 precision 2 left 
put at 10,9 '       Cents Only: ', centamt width 2
put at 10,11 
ok = true
get ok 
detach "money.oac" 
