﻿1L=1»3) 
  

  

  88 
  FORMAT 
  (4l3»9X,4I3t9Xt4l3) 
  

   WRITE(61t999) 
  

  

  999 
  FORMAT 
  (lH017X»4HKlXX»3(2Xt3HKlX) 
  t 
  1 
  X 
  t4HK2XX 
  » 
  3 
  <2X 
  ♦ 
  3HK2X 
  ) 
  »1X»4HK3XX» 
  

   13(2X»3HK3X) 
  ) 
  

  

  WRITE<61»5)K1XX» 
  (K1X(L) 
  tL=l»3> 
  tK2XX» 
  (K2X(D 
  »L«1»3> 
  tK3XX» 
  (K3X(L) 
  » 
  

   1L=1»3> 
  

  

  5 
  FORMAT 
  (17HMCONTROL 
  CARD 
  7 
  tl2(2Xtl3>) 
  

  

  C 
  

   C 
  

  

  C 
  READ 
  CARD 
  6, 
  PRODUCT 
  NAMES 
  

   READ 
  (60* 
  4) 
  (A 
  ( 
  I 
  ) 
  i 
  1 
  = 
  1 
  ♦ 
  12) 
  

   4 
  FORMAT 
  ( 
  14A5) 
  

  

  IF 
  (LZ-2) 
  145tl46»U7 
  

  

  145 
  WRITE(61»23) 
  

  

  23 
  FORMAT 
  (73H0 
  ROTATI 
  

   ION 
  LENGTH 
  IN 
  YEARS) 
  

  

  60 
  TO 
  149 
  

  

  146 
  MRITE(61*24) 
  

  

  24 
  FORMAT 
  (70H0 
  SIT 
  

   IE 
  INDEX 
  IN 
  FEET) 
  

  

  60 
  TO 
  149 
  

  

  147 
  WRITE<61»25) 
  

  

  25 
  FORMAT 
  (69H0 
  PRO 
  

   1DUCTI0N 
  SYSTEM) 
  

  

  149 
  WRITE(61» 
  26) 
  (LI(D» 
  L»1»LX) 
  

  

  26 
  FORMAT 
  (7X»A4»2(16X»A4) 
  ) 
  

   IF 
  (KCXX) 
  160»160»152 
  

  

  152 
  WRITE(61t27) 
  

  

  27 
  FORMAT 
  (l7Ho 
  PERIOOIC 
  C0STS*/115H 
  YEAR 
  COST 
  YEAR 
  C 
  

   lOST 
  YEAR 
  COST 
  YEA» 
  COST 
  YEAR 
  COST 
  

  

  2 
  YEAR 
  COST) 
  

  

  C 
  

  

  C 
  READ 
  CARDS 
  7» 
  PERIODIC 
  COSTS 
  

   DO 
  155 
  KC=1»KCXX 
  

  

  READ(6o«13> 
  (NC(L»KO 
  »PECO(L*KC) 
  »L=l»3) 
  

  

  13 
  F0RMAT<3<I3»F9.2) 
  ) 
  

  

  155 
  WRITE(61»29) 
  (NC(L»KC) 
  » 
  PECO(L»KC) 
  tL*l 
  »LX) 
  

  

  29 
  FORMAT 
  ( 
  I6*F9.2* 
  2 
  ( 
  1 
  1 
  1 
  *F9»2) 
  ) 
  

   160 
  IF 
  (K1XX) 
  170»170»162 
  

  

  162 
  WRITE(61»30) 
  <A(I) 
  »I= 
  l»4) 
  

  

  30 
  FORMAT 
  (25Ho 
  PERIODIC 
  RETURNS 
  FROM 
  ♦ 
  4A5) 
  

   WRITE(61»31) 
  

  

  31 
  FORMAT 
  (H8H 
  YEAR 
  YIELD 
  QUAL 
  YEAR 
  YIELD 
  QUAL 
  YEAR 
  YIELD 
  

   1 
  QUAL 
  YEAR 
  YIELD 
  QUAL 
  YEAR 
  YIELD 
  QUAL 
  YEAR 
  YIELD 
  QUAL) 
  

  

  C 
  

  

  C 
  READ 
  CARDS 
  8t 
  PRODUCT 
  1 
  RETURNS 
  

   DO 
  165 
  Kls 
  1»K1XX 
  

  

  READ 
  ( 
  60 
  » 
  1*) 
  (Nl 
  (L»K1) 
  » 
  JLD1 
  (L»KD 
  . 
  JUAL1 
  (L»K1) 
  »L*1»3) 
  

  

  14 
  FORMAT 
  (3(I3»I5»I4) 
  ) 
  

  

  165 
  WRITE(61»32) 
  (Nl 
  (L»K1 
  ) 
  ♦ 
  JLD1 
  (L»K1 
  ) 
  ♦ 
  JUAL1 
  (L»K1 
  ) 
  • 
  

   1L=1»LX) 
  

  

  32 
  FORMAT 
  (3I6»2(I8»2I6) 
  ) 
  

   170 
  IF(K2XX) 
  180»180»172 
  

   172 
  WRITE(61»30) 
  (A(I) 
  »I=5»8) 
  

  

  WRITE(6l»31) 
  

  

  C 
  

  

  C 
  READ 
  CARDS 
  8, 
  PRODUCT 
  2 
  RETURNS 
  

   DO 
  175 
  K2=1,K2XX 
  

  

  READ 
  (60 
  » 
  14) 
  (N2(L»K2) 
  »JLD2(L*K2) 
  »JUAL2<L»K2) 
  »L=1»3) 
  

   175 
  WRITE 
  (61 
  »32) 
  (N2 
  (L»K2) 
  * 
  JLD2 
  (LtK2) 
  »JUAL2 
  (LtK2) 
  »L=1 
  »LX) 
  

   180 
  IF 
  (K3XX) 
  190tl90tl82 
  

   182 
  WRITE 
  (61 
  »30) 
  (All) 
  • 
  I*9»12> 
  

  

  WRlTt 
  (61 
  i31D 
  

  

  C 
  

  

  C 
  READ 
  CARDS 
  8* 
  PRODUCT 
  3 
  RETURNS 
  

   DO 
  185 
  K3=1»K3XX 
  

  

  READ(60»14) 
  (N3(L*K3) 
  »JLD3(L»K3> 
  »JUAL3(LfK3) 
  *L=1»3) 
  

   185 
  WRITE 
  (61 
  » 
  32) 
  (N3(L»K3) 
  »JLD3(L»K3> 
  »JUAL3(L»K3> 
  »L=1»LX) 
  

   12 
  FORMAT 
  (8F9.3) 
  

  

  C 
  

  

  C 
  READ 
  CARD 
  9» 
  ANNUAL 
  COSTS 
  

  

  190 
  READ(60»12) 
  (ANC 
  ( 
  J) 
  ♦ 
  CANC 
  < 
  J) 
  » 
  J=l 
  ♦ 
  JX) 
  

  

  35 
  

  

  