c 

 c 



c 

 c 



c 

 c 



c»EAO CARD 7» GENERAL CONTROL CARD 

 IF ( JPH-2) 1000«115,116 



115 WRITE(61t25) 

 60 TO 1000 



116 WHITE(6l»26) 



1000 READ ( 60 « 27) LXf(LI(L>»L=1.6).(LY(L).L=l»6).KX«KCXX»(KCX(L)tL=lt6 

 1 ) » JXX, ( JX(L) »L=1 »6) tNZZ* (NZ (L) »L*1 t6) . IST»MX 

 WHITE (61 »28) 



WRITE(6lt29)LX»(LI(L)«L=l»6)t(LY(L).L=l«6)tKX,KCXX. (KCX(L) »L*1»6) 

 WRITE (61 f30) 



WRITE(6l»31) JXXt (JX(L) tL»1.6) »NZZ» (NZ(L) ♦L=lt6) »IST»MX 

 WRITE(61»32) 



WRITE(61. 33) (LI(L)t L»1»LX) 

 WRITE (61 .33) (LY (L) .L»l »LX) 

 IF (KCXX) 135,135,120 

 120 WRITE(61»34) 



READ CARD 8, PERIODIC COSTS AND INCOMES 

 DO 130 KC=1,KCXX 



RE AD (60, 35) (NC(L,KC) ,PECO(L,KC) ,L=1 ,6) 

 130 WRITE(61»36) (NC(L,KC) , PECO ( L , KC ) , L = 1 , LX ) 



READ CARD 9, ANNUAL COSTS AND INCOMES 



135 IF (JXX) 140,140,136 



136 00 140 L«1,LX 



IF (JX(L) ) 138,138,137 



137 JXL=JX{L) 

 LIL=LI (L) 



READ (60,37) (NI<L,I2),NT(L,I2),AN(L,I2),CAN(L,I2) » 12=1 , JXL) 

 WRITE(61»38) LIL 



WRITE(61,39) (NI (L,I2) ,NT(L,I2) ,AN(L,I2) ,CAN(L,I2) ,I2«1,JXL) 

 GO '0 140 



138 WRITE(6l,40) LiL 

 140 CONTINUE 



READ CARD 10, PRODUCT EVALUATION CONTROL CARD 

 IF (KX) 200,200,150 

 150 READ(60,41)K1XX, (KIX(L) ,L=1,6) ,K2XX, (k2X(L) ♦L=l»6) ,K3XX, (K3X(L) , 

 1L=1,6) 

 WRI IE (61 ,42) 



WRITE(61»43)K1XX, (KIX(L) ,Lal,6) 

 WRITE(61,44) 



WRITE(61,43)K2XX, (K2X(L) ,L=1,6) 

 WRITE(61,45) 



WRITE(61»43)K3XX, ( K3X ( L ) , L= 1 ♦ 6 ) 



READ CARD 11, PRODUCT NAMES 

 READ (60,46) ( A ( I ) , I ■ 1 , 1 2) 

 IK (KIXX) 170,170,162 

 162 WRITE(61,47) (Ad) ,1= 1,4) 

 WRl TE (61 ,48) 



READ CARD 12, PRODUCT 1 RETURNS 

 00 165 Kl= 1,K1XX 



READ { 60 » 49) (Ni (L,K1) ,JL01 (L,Ki) ,JUAL1 (L,K1),L=1,6) 

 165 WHITE(61»50) (Ni (L,K1 ) , JLDI (L,Kl ) , JUALl (L»K1 ) , L = 1,LX) 

 170 IF(K2XX) 180»180«172 

 172 WRITE(61,47) (Ad) ,1=5,8) 



WRITE(61»48) 



2 RETURNS 



C 

 C 



READ CARD 12, PRODUCT 

 00 175 K2=1,K2XX 



READ (60,49) (N2(L,K2) ,JLD2(L,K2) ,JUAL2(L,K2) »L=1,6) 

 175 WRITE(61,50) (N2(L,K2) ,JL02(L,K2) ,JUAL2(L,K2) ,L=1,LX) 

 180 IF (K3XX) 190,190.182 

 182 WRI TE (61 .47) ( A (I ) , 1=9.12) 



WRI TE (61 .48) 



READ CARD 12, PRODUCT 3 RETURNS 

 DO 185 K3=1.K3XX 



READ (60.49) (N3{L,K3) ,JLD3(L.K3) , JUAL3(L.K3) .L=1.6) 

 185 WRITE{61,50) <N3(L,K3) ,JL03(L,K3) .JUAL3(L,K3) ,L=1,LX) 



INV1410 

 INV1420 

 INV1430 

 INV1440 

 INV1450 

 INV1460 

 INV1470 

 INV1480 

 INV1490 

 INV1500 

 INV1510 

 INV1520 

 INV1530 

 INV1540 

 INV1550 

 INV1560 

 INV1570 

 INV1580 

 INV1590 

 INV1600 

 INV1610 

 INV1620 

 INV1630 

 INV1640 

 INV1650 

 INV1660 

 INVlb70 

 INV1680 

 INV1690 

 INV1700 

 INV1710 

 INV1720 

 INV1730 

 INV1740 

 INV1750 

 INV1760 

 INV1770 

 INV1780 

 INV1790 

 INV1800 

 INV1810 

 INV1820 

 1NV1830 

 INV1840 

 INV1850 

 INV1860 

 INV1870 

 INV1880 

 INV1890 

 INV1900 

 INV1910 

 INV1920 

 INV1930 

 1NV1940 

 INV1950 

 INV1960 

 INV1970 

 INV1980 

 INV1990 

 INV2000 

 INV2010 

 INV2020 

 INV2030 

 INV2040 

 INV2050 

 INV2060 

 INV2070 

 INV2080 

 INV2090 

 1NV2100 

 INV2110 

 INV2120 

 INV2130 



71 



