home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-LA1.LBR / LAHEADER.IQC / LAHEADER.INC
Text File  |  2000-06-30  |  3KB  |  51 lines
  1. {LAHEADER.INC - Heading procedures used in program LA.PAS.}
  2.  
  3. PROCEDURE Show_Heading;
  4.     Begin
  5.         Line_Number := Line_Number + 2;
  6.         GotoXY(01,Line_Number); Write('PRINCIPAL       = $');
  7.         GotoXY(20,Line_Number); PrintUsing('###,###.##',Principal,Print_Or_Screen);
  8.         GotoXY(48,Line_Number); Write('MINIMUM PAYMENT       = ');
  9.         GotoXY(72,Line_Number); PrintUsing('#,###.##',Payment,Print_Or_Screen);
  10.         Line_Number := Line_Number + 1;
  11.         GotoXY(01,Line_Number); Write('INTEREST RATE   =  ');
  12.         GotoXY(25,Line_Number); PrintUsing('##.###',Print_Interest,Print_Or_Screen);
  13.         GotoXY(31,Line_Number); Write('%');
  14.         GotoXY(48,Line_Number); Write('NON EQUITY AMOUNT     = ');
  15.         GotoXY(74,Line_Number); PrintUsing('###.##',Property_Tax,Print_Or_Screen);
  16.         Line_Number := Line_Number + 1;
  17.         GotoXY(01,Line_Number); Write('TERM OF LOAN    =  ');
  18.         GotoXY(27,Line_Number); PrintUsing('###',Number_Of_Payments,Print_Or_Screen);
  19.         GotoXY(32,Line_Number); Write(Term_Name[T_Indx]);
  20.         GotoXY(48,Line_Number); Write('EXTRA EQUITY PAYMENT  = ');
  21.         GotoXY(74,Line_Number); PrintUsing('###.##',Extra,Print_Or_Screen);
  22.         Line_Number := Line_Number + 1;
  23.         GotoXY(01,Line_Number); Write('FIRST PYMNT DUE = ');
  24.         GotoXY(23,Line_Number); Write(Print_Date);
  25.         GotoXY(48,Line_Number); Write('TOTAL PAYMENT         = $');
  26.         GotoXY(72,Line_Number); PrintUsing('#,###.##',Total_Payment1,Print_Or_Screen);
  27.         If Total_Payment2 > 0 then
  28.             Begin
  29.                 Line_Number := Line_Number + 1;
  30.                 GotoXY(01,Line_Number); Write('BEGINNING DATE  = ');
  31.                 GotoXY(23,Line_Number); Write(Print_Date2);
  32.                 GotoXY(48,Line_Number); Write('TOTAL PAYMENT (2)     = $');
  33.                 GotoXY(72,Line_Number); PrintUsing('#,###.##',Total_Payment2,Print_Or_Screen);
  34.             end;
  35.     end; (* Show_Heading *)
  36.  
  37. PROCEDURE Show_Header;
  38.     Begin
  39.         ClrScr;
  40.         GotoXY(29,01);Write(Sign_OnA);
  41.         GotoXY(24,02);Write(Sign_OnB);
  42.         Line_Number := 3;
  43.         Show_Heading;
  44.         Line_Number := Line_Number + 1;
  45.         GotoXY(27,Line_Number);
  46.         If Balloon_Number > 0 then
  47.             Write('Balloon DUE - ',Balloon_Date)
  48.         Else
  49.             Write('   Balloon toggle OFF');
  50.         Line_Number := Line_Number + 2;
  51.     end; (* Show_Header *)