741 



610 



IF (LEV .EO. LEVEL(JJ)) GO TO 640 



742 



6s0 



IF (LEV .G1. LEVEL(JJ)) GO TO 660 



743 





GO TO 670 



744 



660 



II = LEVEL(Jd) 



745 





GO TO 680 



746 



670 



II = LEV 



747 



680 



JdJ = 124 - 3*JJ 



748 





COL(JdJ) = d SMBL( II) 



749 





LEVEL(dJ) = LEV 



750 



640 



CONTINUE 



751 





C0L(1) = 1HI 



752 





PRINT 261, (C0L(I1), 11 = 1,119) 



753 



716 



DO 690 Jd = 1 ,120 



754 



690 



COL(dd) = 1H 



755 





ICTR = ICTR + 1 



756 





IF (ICTR .EO. 10) GO TO 700 



757 





GO TO 714 



758 



700 



TEMP = (RANGE + 1.) / 10000. 



759 





IND = TEMP 



760 





C0L(2) = ING( IND+1 ) 



761 





TEMPI = IND 



762 





TFMP = (TPMD - TEMPI) * 10. 



763 





IND = TEMP 



764 





C0L(3) = ING( IND+1) 



765 





TEMPI = IND 



766 





IND = (TEMP - TEMPI ) ♦ 10. 



767 





C0L(5) = ING( IND+1 ) 



768 





C0L(4)=1H. 



769 





C0L(6)=1HK 



770 





C0L(7)=1HY 



771 





C0L(8)=1HD 



772 





C0L(9) = 1HS 



773 





ICTR=0 



774 



714 



GO TO (710, 712), K2 



775 



710 



C0L(31)=1HI 



776 





C0L(61 )=1HI 



777 





C0L(91 )=1HI 



778 





DO 720 dJ = 1 ,40 



779 





TEMP = LEVEL(dd) 



780 





TEMPI = 0. 



781 



830 



IF (LEVEL(dd) .GT. LEVEL(dd+1)) GO TO 730 



782 





GO TO 740 



783 



730 



II = LEVEL(dd) - 1 



784 





KK = 1 



785 



860 



EX = (CONTR(II) - R LOS (dd) )/ (RLOS (Jd- 



786 





DO 760 LL = 1,3 



787 





IF (EX .LT. TEST(LL)) GO TO 800 



788 



760 



CONTINUE 



789 





LL = 4 



790 



800 



ddLL = 125 - 3*dd - LL 



791 





COL(ddLL) = d SMBL(II) 



792 





GO TO (810,820) , KK 



793 



810 



LEVEL(dd) = LEVEL(Jd) - 1 



794 





GO TO 830 



795 



740 



IF (LEVEL(dd) .LT. LEVEL(dd+1)) GO TO 840 



796 





GO TO 720 



797 



840 



II = LEVEL(dd) 



CONTR(II)) 



57 



