46 UNITED STATES NATIONAL MUSEUM BULLETIN 285 



58 CONTINUE 

 GO TO 88 



59 JJ = m+2 

 KK = M+10 



DO 60 MM = JJ,KK 



IF ( ALPHA (,-;M)-(+6H ) )60*61 »60 



60 CONTINUE 

 GO TO 88 



61 ALPHA (MM) = B( I ) 

 GO TO 88 



B 62 D = (000060600000+1 000077770000*PLGT( is, J) ))*(-( 000060600000*PLCT( K 



1 »J) ) ) 

 B E = ( 00C040400C00+1 000077770000*PLGT ( K» J )))*(-( 000040400000*PLC'T ( Is 



1 . J ) ) ) 

 R F = ( 000000310000+1 0C n 000770000*PLOT(K, J) ))*(-( 000000310000*PLOT( < 



1 .J) ) ) 

 3 G = 000C6C0C'CC0O*PLOT ( K » J ) 

 B IF(D)63»66,6 3 

 B 63 IF ( E ) 64.66,64 

 3 64 IF (F )65»66,65 

 B 65 IF(G)70.67,70 



B 66 PLOT(K.J) = ( 777700007777*PLOT( K, J) )+( 000077770000*31 I ) ) 

 GO TO 88 



67 DO 66 M = 2,266,11 



IF ( ALPHA(.m) -( +6H ))6d, 69,60 



68 CONTINUE 

 GO TO 88 



69 A = PLOT(K,J) 

 E = 1 



CALL M0VE(A,E,12,1 ) 



ALPHA (M) = E 



ALPHA ( M+l ) = 3(1) 

 3 PL0T(K,J) = ( 777700007777*PLCT( K, J ) ) +( 000077770000*ALPHA(M-1 ) ) 



GO TO 88 

 7 DO 71 M = 1,265,11 

 3 IF( (00007 77700 00*PL0T(K, J) )*(0C0077770000*(-(ALPHA(M) ) ) ) ) 71 , 72,71 

 71 CONTINUE 



GO TO 88 

 7 2 J J = M+2 



KK = M+10 



DO 73 MM = JJ,KK 



IF ( ALPHA (MM )-( +6H ) ) 73,74, 73 



73 CONTINUE 

 GO TO 88 



74 ALPHA (MM) = B( I ) 

 GO TO 88 



B 75 D = ( 00C0C0006O60+ ( 000000007777*PLOT ( K, J )))*(-( 000000006060*PLOT ( K 



1 , J) ) ) 

 B E = ( 00C000004040+( 000000007777*PLOT ( is, J )))*(-( 000000004040*PLOT ( K 



1 , J ) ) ) 

 R F = (000000000031+ (000000000077*PLOT( K,J )))*(-( Q00000000031*PLOT( K 



1 ,J) ) ) 



3 G = 000C0t006000*PLOT ( K, J) 



