- 227 - 



57050 



57100 CALL BLOCK( Icut .ang1 .maxblk.blk) 



57150 CALL BLOCK( 1cut , ang2 . maxbl k , bl k ) 



57200 CALL BLOCK( Icut . ang3 . maxbl k , bl k ) 



57250 CALL BLOCK( 1 cut . ang4 , maxbl k . b 1 k ) 



57300 



57350 Return 



57400 End 



57450 



57500 C 



