First page
Back
Continue
Last page
Overview
Graphics
The implementation (Cont’d)
$^ = 'HEAD'; $~ = 'LINE'; while ( ($acct, $desc, $deb, $crd) = ... ) { write; $tot_deb += $deb; $tot_crd += $crd; } $~ = 'TOTAL'; write;