FORMAT (1H017X,4HK2XX«6 (2X»3HK2X) ) 

 FORMAT { 1H017X.4HK3XX»6 (2X,3HK3X) ) 

 F0RMAT(14A5) 



FORMAT (23H0PERIODIC RETURNS FROM .4A5) 

 FORMAT ( 1H0,?X ,6 ( 15HYEAR YIELD QUAL.SX)) 

 FORMAT (6(I3«I5»U)) 

 FORMAT ( 17, 16 » 15*5 (I9»I6» 15) ) 

 FORMAT (16H0 PRODUCT PRICES) 



FORMAT (l4Xtl2HPR00UCT NO. 1 » 1 4X t 1 2HPR0DUCT NO . 2 « 1 *X 1 2HPR0DUCT N0.3* 

 1/) 



53 FORMAT (6 (F9. 3) ) 



F0RMAT(1H0( 8X, lH$,F9.3»2X,2HCHfF7.3) ) 

 FORMAT ( 1H07X»6 (9X,9HALT-PLAN , 12) ) 



FORMAT ( 1H036HOISCOUNTEO NET WORTH OF FUTURE CROPS) 

 FORMAT ( 1H139HC0NTR0L CARDS 7* FOR PRESENT STAND**'**) 

 FORMAT ( 1H048HDISCOUNTED NET WORTH OF PRESENT AND FUTURE CROPS) 

 FORMAT (IHl . 12HPR0BLEM NO. .19A4./) 



FORMAT (1H0»37HINTERNAL RATE OF RETURN FOR SCHEDULE »A4«12H IS BET 

 IWEEN .F5.1»5H AND »F5.1/1H .23HWITH PRESENT WORTHS OF »F6.2»5H AND 

 2 fF6.2,15H RESPECTIVELY. ) 



67 FORMAT ( 1H0» 37HINTERNAL RATE OF RETURN FOR SCHEDULE .A4»32H IS NOT 

 IINCLUDEO IN The PROBLEM.) 



68 FORMAT ( 1H0»37HINTERNAL RATE OF RETURN FOR SCHEDULE .A4t4H IS .F7. 

 11/) 



69 FORMAT ( 1H02X»67HPRESENT DISCOUNTED NET WORTH aT GIVEN ALTERNATIVE 

 IRATES OF INTEREST) 



70 FORMAT (8H0 RATE » 6 ( 6X » 1 OH ( ROT AT ION ,I3.1H))/) 

 72 FORMAT (IH .F7.1.6F20.2) 



75 FORMAT ( 1H036HDISCOUNTED NET WORTH — FIRST TSI PLAN) 



76 FORMAT ( 1H141HC0NTR0L CARDS 7* FOR SECOND TSI PLAN*****) 



77 FORMAT ( 1H037HDISCOUNTED NET WORTH — SECOND TSI PLAN) 



78 FORMAT ( 1H044HDISCOUNTED NET WORTH OF ADDED TSI INVESTMENT) 

 99 FORMAT (23H0 ERROR IN INPUT CARDS ) 



610 FORMAT(lHl) 



44 



45 

 46 



47 

 48 

 49 



50 

 51 

 52 



54 



55 

 58 

 59 

 60 

 65 

 66 



C 

 C 



c 

 c 



c 

 c 



c 

 c 



ORGANIZATION 



READ NAME OF NATIONAL FOREST OR 

 1 READ (60tl0) (NAMEID »I=1»8) 

 WRITE (61*11) (NAMEtl) »I=1»8) 



READ NAME OF UNIT 



READ(60»10) (NAME (I) tlsliS) 

 WRITE (61 •12) (NAME(I) » 1 = 1*8) 



READ NAME OF USER 



READ (60»10) (NAME(I) tl=l*a) 

 WRITE (61 » 13) (NAME ( I ) * 1*1 »8) 

 WRITE (61.14) 



READ CARD 4« PROBLEM TITLE 

 100 HEAD (60fl5) (NAME(I) tlalil9) ,ID 

 GO TO (910,105)EOFCKF(60) 



105 IF (NAME ( 1 ) .EQ.4HNEW )1.106 



106 WRITE (61, 16) (nAmE(I) ,1=1,19) , ID 



READ CARD 5, PROBLEM DESCRIPTION CARDS 

 IF(!D.GT. 0)107, 110 



107 On 109 Jrl.IO 



READ (60, 17) ( IDEN ( I ) , 1 = 1 ,20) 



109 WRITE(61, 18) (lOEN(I) ,1 = 1,20) 



CONTROL CARD 6, INTEREST RATES AnO PROGRAM OPTION 



110 READ (60, 19) (RINT(I),I=1,3) , JPR 

 IF (JPR-2) 111,112,113 



111 WHITE(61,20) 

 GO TO 114 



112 WRITE (61 ,21 ) 

 60 TO lU 



113 WRITE(61,22) 



114 WRITE(61,23) 



WRITE (61 ,24) (RINT ( I ) , 1=1 ,3) , JPR 



INV 690 

 INV 700 

 INV 710 

 INV 720 

 INV 730 

 INV 740 

 INV 750 

 INV 760 

 INV 770 

 INV 780 

 INV 790 

 INV 800 

 INV 810 

 INV 820 

 INV 830 

 INV 840 

 INV 850 

 INV 860 

 INV 870 

 INV 880 

 INV 890 

 INV 900 

 INV 910 

 INV 920 

 INV 930 

 INV 940 

 INV 950 

 INV 960 

 INV 970 

 INV 980 

 INV 990 

 INVIOOO 

 INVlOlO 

 INV1020 

 INV1030 

 INV1040 

 INV1050 

 INV1060 

 INV1070 

 INV1080 

 INV1090 

 INVllOO 

 INVlllO 

 INVl 120 

 INV1130 

 INV1140 

 INV1150 

 INV1160 

 INV1170 

 INV1180 

 INV1190 

 INV1200 

 INV1210 

 INV1220 

 INV1230 

 INV1240 

 INV1250 

 INV1260 

 INV1270 



INV1280 

 INV1290 



INV1300 

 INV1310 

 INV1320 

 INV1330 

 INV1340 

 INV1350 

 INV1360 

 INV1370 

 INV1380 

 INV1390 

 INV1400 



70 



