-67- 



169 FEAHE=SVFEAH 



GOTO 260 

 173 IF (FRiHE.NE-« POINT* -AND. FBAflE. HE. 'PLOT') GOTO 1U0 



IF{FBAHE. EQ. 'POINT') S AHHTD= 'B. A. F. • 



IF(FEAaE-EQ. 'PLOT') SABJITD=' PLOT SIZE' 

 HAVE USER SPECIFY BAF OB PLOT SIZE 



HBITE(5,180) SAHHTD 

 180 FOBHATCOENTEB ' , A9) 



READ(5,*) BAF 

 ASK USEE IF HEIGHTS ABE IN LOGS 

 190 HBITE (5,200) 



200 FOaaAT('0ARE HEIGHTS IN FEET OB SIXTEEN FT. LOGS?'/ 

 1' TYPE FEET OE LOGS') 



BEAD(5,210) LOSANS 

 210 FOBHAT(A(t) 



IF(LOGANS.NE. 'FEET'. AND.LOGANS.NE. 'LOGS') GOTO 190 

 ASK OSES IF HEIGHTS ABE HEBCHANTABLE OE TOTAL 

 220 WBITE(5,230) 



230 FOBHAT('0ARE HEIGHTS TOTAL OE MEfiCH ANTABLE?'/ 

 1' TYPE TOTAL, HEBCH, OB flIXED') 



EEAD(5,240) TOPANS 

 2U0 F0BBAT(A5) 



IF (LOGANS. EQ. 'FEET') H0LT=1 



IF(LOGAHS.EQ. 'LOGS') JJ0LT=16 



IF (TOPANS- NE. ' TOT AL' . AND. TOPANS- NE. • HEECH' . AND. TOPANS. NE. 'MIXED') 

 1 GOTO 220 

 ASK OSES IF BEGBESSION BOOTIBE IS NEEDED 

 250 HEITE(5,260) 

 260 FOBBATCOHEBE THE HEIGHTS OF ALL TOLOBE TBEES BEASOEED?') 



BEAD(5,270) BEGANS 

 270 F0EHAT(A3) 



IF (BEGANS. NE. 'YES' .AND. EEGANS- NE. • NO') GOTO 250 

 ASK USEE FOB ACBEAGE 

 280 HBITE(5,290) 

 290 FOBHATCOENTEB ACBEAGE OF TEACT. ' ) 



BEAD(5,*) ACEES 



IF NEEDED BON THE HEIGHT BEGBESSION BOOTINE 



*** **4>4< ****«**•«««**** ******««4i**4i 41 4<*** ****** *4>*4<4i****4>*4i*4i« 



IF(BEGANS. E0.'HO') CALL LIHEEG (IFILE, TOPANS) 



****************************************** 



BEAD IN TBEE DATA AND PBOCESS 

 ****************************************** 



300 CALL GUTS 



********************************** 

 CALL THE OOTPOT EOOTINE 

 ********************************** 



CALL 00TP1 



**************************************** 



ACCOHOLATE TOTALS FBOB EACH STBATA 

 **************************************** 



IFIISTBAT.GT. 1) CALL STBAT (ACEES, CLASIZ) 



310 CONTINUE 



END PEOGRAB CONTROL LOOP 



************************************* 

 CALCULATE COHBINED STEATA STATISTICS 

 ************************************* 



IF(ISTEAT. GT. 1) CALL STBAT2 



******************************** 

 OOTPOT STBATA COBBINED TOTALS 

 ******************************** 



IF(ISTEAr.GT. 1) CALL O0TP2 



EHD 



BAIN0790 

 HAIN0800 

 BAINOBIO 

 HAIN0820 

 flAIN0830 

 BAINOSltO 

 HAIN0850 

 BAINOSSO 

 aAIN0870 

 HAIN0880 

 flAIN0890 

 HAIN0900 

 BAIN0910 

 BAIN0920 

 BAIN0930 

 BAIN09ltO 

 HAIN0950 

 BAIN09Sa 

 HAIN0970 

 HAIN0980 

 BAIN099a 

 HAIN1000 

 BAIHIOIO 

 HAIN1020 

 HAIN1030 

 BAIN10II0 

 BAINIOSO 

 HAINIOSO 

 HAIN1070 

 BAIN1080 

 HAIN1090 

 HAIN1100 

 BAIN1110 

 HAIN1120 

 BAIN1130 

 HAINIIUO 

 HAIN1150 

 BAIN1160 

 BAIN1170 

 HAIN11S0 

 flAINl190 

 aAIHl200 

 flAIN1210 

 HAIN1220 

 BAIN123Q 

 BAIN1240 

 BAIN1250 

 BAIN125Q 

 HAIN1270 

 HAIN1280 

 aAIN1290 

 BAIN1300 

 BAIN1310 

 aAINl320 

 aAIN1330 

 aAIN13l»0 

 BAINISSO 

 BAIN1360 

 aAIN1370 

 aRIH1380 

 aAIN1390 

 BAIN1430 

 BAINKtlO 

 HAIN1420 

 BAXNIItSO 

 BAINItlO 

 BAIN1450 

 flAIN1460 

 aAIN1<«70 

 BAIN11130 

 BAIN1490 

 HAIN1500 

 BAINISIO 

 aAIN1520 

 UAIN1530 

 UAIN1540 

 BAIN1550 

 HAIN1560 



