Category : Pascal Source Code
Archive   : USNGTP.ZIP
Filename : LST12-02.PAS

 
Output of file : LST12-02.PAS contained in archive : USNGTP.ZIP


program Print_Amortization; { Change header from procedure to program.}

{$I STD-CTV.PAS} { Add these include directives }
{$I STD-UTIL.PAS} { following the header. }
{$I STD-INP.PAS}
{$I STD-DISP.PAS}
{$I LN-CTV.PAS}

exec_file : File; { Add to variable declaration part. }

begin { Print_Amortization }
if Ready_To_Print then
begin
Init_Variables;
Init_Output_Device;
Print_Table;
end;
Assign(exec_file,'LOAN.COM'); { Add this line. }
Execute(exec_file); { Add this line. }
end. { Print_Amortization } { Change semicolon to period following end.}

Listing. 12-2 Changes needed to convert the
Print_Amortization procedure to
a chain program.