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 / ENTERPRS / CPM / UTILS / A / AMORTIZE.LBR / AMORT1.IZC / AMORT1.INC
Text File  |  2000-06-30  |  2KB  |  80 lines
  1. procedure New_Position;
  2.  
  3. begin
  4.  
  5.   if FIELD > 4 then
  6.     FIELD := 1;
  7.   if FIELD < 1 then
  8.     FIELD := 4;
  9.   INPUT[FIELD] := '';
  10.   gotoxy(COLUMN_POSITION,ROW_OFFSET+FIELD);
  11.   COLUMN := COLUMN_POSITION;
  12.  
  13. end;
  14.  
  15. procedure Bad_Data;
  16.  
  17. begin
  18.  
  19.   gotoxy(6,23);
  20.   write('ERROR - bad input format...please reenter.          ');
  21.  
  22. end;
  23.  
  24. procedure Set_Field;
  25.  
  26. var ERROR_CODE : integer;
  27.     REAL_MONTHS : real;
  28.  
  29. begin
  30.  
  31.   if ACTIVE then begin
  32.     ERROR_CODE := 0;
  33.     case FIELD of
  34.     1 :
  35.       begin
  36.         val(INPUT[FIELD],AMOUNT,ERROR_CODE);
  37.         if ERROR_CODE > 0 then
  38.           Bad_Data
  39.         else begin
  40.           gotoxy(COLUMN_POSITION-12,ROW_OFFSET+FIELD);
  41.           write(AMOUNT:9:2,'           ');
  42.         end;
  43.       end;
  44.     2 :
  45.       begin
  46.         val(INPUT[FIELD],REAL_MONTHS,ERROR_CODE);
  47.         MONTHS := trunc(REAL_MONTHS);
  48.         if ERROR_CODE > 0 then
  49.           Bad_Data
  50.         else begin
  51.           gotoxy(COLUMN_POSITION-12,ROW_OFFSET+FIELD);
  52.           write(MONTHS:9,'           ');
  53.         end;
  54.       end;
  55.     3 :
  56.       begin
  57.         val(INPUT[FIELD],RATE,ERROR_CODE);
  58.         if ERROR_CODE > 0 then
  59.           Bad_Data
  60.         else begin
  61.           gotoxy(COLUMN_POSITION-12,ROW_OFFSET+FIELD);
  62.           write(RATE:9:2,'           ');
  63.         end;
  64.       end;
  65.     4 :
  66.       begin
  67.         val(INPUT[FIELD],PAYMENT,ERROR_CODE);
  68.         if ERROR_CODE > 0 then
  69.           Bad_Data
  70.         else begin
  71.           gotoxy(COLUMN_POSITION-12,ROW_OFFSET+FIELD);
  72.           write(PAYMENT:9:2,'           ');
  73.         end;
  74.       end;
  75.     end; { case }
  76.     ACTIVE := false;
  77.   end; { if }
  78.  
  79. end;
  80.