PRO CHANGE
payment=60.
purchase=55.72
return0=payment-purchase
return1=return0 MOD 20
twenty=(return0-return1)/20.
;PRINT, twenty, '  ', ten, '  ', five, '  ',one, '  ',half, '  ', $
;	quarter, '  ',dime, '  ',nickel, '  ',penny
return2=return1 MOD 10
ten=(return1-return2)/10.

return3=return2 MOD 5
five=(return2-return3)/5.

return4=return3 MOD 1
one=(return3-return4)/1.

;return5=return4 MOD .5
;half=(return4-return5)/0.5

return6=return4 MOD .25
quarter=(return4-return6)/0.25

return7=return6 MOD .1
dime=(return6-return7)/.1

return8=return7 MOD .05
nickel=(return7-return8)/0.05

return9=return8 MOD .01
penny=(return8-return9)/0.01
PRINT, twenty, '  ', ten, '  ', five, '  ',one, '  ', $
	quarter, '  ',dime, '  ',nickel, '  ',penny

END


;PRO idl_hw03_xxx
;
;PRINT, 'Please enter the purchase amount (<$200) '
;READ, purchase
;
;PRINT, 'Please enter the payment'
;READ, purchase
;
;CHANGE, payment, purchase, twenty, ten, five, one, quarter, dime, nickel, penny
;
;PRINT, 'Your change is ', CHANGE, FORMAT='(a, "$", F6.2)'
;IF twenty NE 0 THEN PRINT, ....( number of 20's), '20s'
;etc.
;
;END