{LAHEADER.INC - Heading procedures used in program LA.PAS.}

PROCEDURE Show_Heading;
    Begin
        Line_Number := Line_Number + 2;
        GotoXY(01,Line_Number); Write('PRINCIPAL       = $');
        GotoXY(20,Line_Number); PrintUsing('###,###.##',Principal,Print_Or_Screen);
        GotoXY(48,Line_Number); Write('MINIMUM PAYMENT       = ');
        GotoXY(72,Line_Number); PrintUsing('#,###.##',Payment,Print_Or_Screen);
        Line_Number := Line_Number + 1;
        GotoXY(01,Line_Number); Write('INTEREST RATE   =  ');
        GotoXY(25,Line_Number); PrintUsing('##.###',Print_Interest,Print_Or_Screen);
        GotoXY(31,Line_Number); Write('%');
        GotoXY(48,Line_Number); Write('NON EQUITY AMOUNT     = ');
        GotoXY(74,Line_Number); PrintUsing('###.##',Property_Tax,Print_Or_Screen);
        Line_Number := Line_Number + 1;
        GotoXY(01,Line_Number); Write('TERM OF LOAN    =  ');
        GotoXY(27,Line_Number); PrintUsing('###',Number_Of_Payments,Print_Or_Screen);
        GotoXY(32,Line_Number); Write(Term_Name[T_Indx]);
        GotoXY(48,Line_Number); Write('EXTRA EQUITY PAYMENT  = ');
        GotoXY(74,Line_Number); PrintUsing('###.##',Extra,Print_Or_Screen);
        Line_Number := Line_Number + 1;
        GotoXY(01,Line_Number); Write('FIRST PYMNT DUE = ');
        GotoXY(23,Line_Number); Write(Print_Date);
        GotoXY(48,Line_Number); Write('TOTAL PAYMENT         = $');
        GotoXY(72,Line_Number); PrintUsing('#,###.##',Total_Payment1,Print_Or_Screen);
        If Total_Payment2 > 0 then
            Begin
                Line_Number := Line_Number + 1;
                GotoXY(01,Line_Number); Write('BEGINNING DATE  = ');
                GotoXY(23,Line_Number); Write(Print_Date2);
                GotoXY(48,Line_Number); Write('TOTAL PAYMENT (2)     = $');
                GotoXY(72,Line_Number); PrintUsing('#,###.##',Total_Payment2,Print_Or_Screen);
            end;
    end; (* Show_Heading *)

PROCEDURE Show_Header;
    Begin
        ClrScr;
        GotoXY(29,01);Write(Sign_OnA);
        GotoXY(24,02);Write(Sign_OnB);
        Line_Number := 3;
        Show_Heading;
        Line_Number := Line_Number + 1;
        GotoXY(27,Line_Number);
        If Balloon_Number > 0 then
            Write('Balloon DUE - ',Balloon_Date)
        Else
            Write('   Balloon toggle OFF');
        Line_Number := Line_Number + 2;
    end; (* Show_Header *)