END $crednum = ""; print qq!Credit #!, $crednum ? $crednum : " (NEW)", qq!!; -print qq!\nCustomer #$custnum!; +print qq!
Customer #$custnum!; print qq!!; -print qq!\nDate: !, time2str("%D",$_date), qq!!; +print qq!
Date: !, time2str("%D",$_date), qq!!; -print qq!\nAmount \$!; +print qq!
Amount \$!; print qq!!; #print qq! Also post refund!; print qq!!; -print qq!\nReason !; +print qq!
Reason !; print <
-+ END print <