44 UNITED STATES NATIONAL MUSEUM BULLETIN 285 



= 071007100710 



= 0711C7110711 



= 100010001000 



= 100110011001 



= 100210021002 



= 100 3 100 3 IOC 3 



= 100410041004 



= 10Q5100510C5 



= 100610061C06 



= 100710071007 



= 101010101010 



= 101110111011 

 =110011001100 



= 110111011101 



= 110211021102 



= 110311031103 



= 110 411041104 



= 110511051105 



= 110611061106 

 =110711071107 



= 111011101110 



= 111111111111 



IF (NXAXIS) 32,32,17 



17 DO 31 I = 1, NXAXIS 

 IF( XA( I )-XS) 31»18» 18 



18 I F( XA( I )-XL ) 19, 19.31 



19 DIFX = XA( I )-XS 

 DELX = DX 

 J = 1 



20 IPOS = 1 



21 IF(DIFX-Dc:LX)24,22,22 



22 DELX = DELX+DX 

 IPOS = IPOS+2 

 IF ( IPOS-5 (21,21,23 



23 J = J+l 

 GO TO 20 



24 GO TO (25,25,27,27,29,29) , IPOS 

 2 5 DO 2 6 K = 1,50 



26 PLOT(K,J) = (+6H I ) 

 GO TO 31 



27 DO 28 K = 1,50 



28 PL0T(K,J) = (+6H I ) 

 GO TO 31 



29 DO 3 K = 1,50 



30 PLOT ( K» J ) = (+6H I ) 



31 CONTINUE 



32 IF (NYAXI S)41 ,41 ,33 



33 DO 40 I = 1»NYAXIS 

 IF ( YA( I )-YS 140,34,34 



34 IF ( YA( I )-YL ) 35,35 ,40 



