798 





KK = 2 



799 





UU lU BbU 



800 



820 



LEVEL(JJ) = LEVEL(JJ) + 1 



801 





GO TO 740 



802 



720 



LEVEL(JJ) = TEMP 



803 





C0L(1) = 1HI 



804 



750 



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



805 



261 



FORMAT (IX, 119A1) 



806 





GO TO 581 



807 



C PRINT DB LOSSES 



808 



770 



PRINT 580, RANGE, (R LOSS(K), 



809 





LL = LL + 1 



810 





IF (LL .GT. 25) LL = 1 



811 



580 



FORMAT (F9.0, 2X , 18F6.1) 



812 



581 



RANGE = RANGE + STEP R 



813 





IF (KB .NE. 3) GO TO 560 



814 





PUNCH 980, (LOSS(I), 1= I.NR) 



815 



980 



FORMAT (2613) 



816 





GO TO 560 



817 



999 



STOP 



618 





END 



K = 1 ,NR) 



58 



