48 UNITED STATES NATIONAL MUSEUM BULLETIN 285 



9 8 MM = M-l 



NN = M+9 



WRITE OUTPUT TAPE 6 .2 ♦ ( PLOT ( K» J ) ♦ J= 1 ♦ 12 ) » ( ALPHA ( I ) , I =MM,NN ) 



GO TO 93 

 99 WRITE OUTPUT TAPE 6 i2 » ( PLOT ( K » J J , J= 1 » 12 ) 



GO TO 93 



100 WRITE OUTPUT TAPE 6,3 

 A = 0.0 



DO 101 M = 1,8 

 OUT(M) = XS+(A*DX) 



101 A = A+5.0 



WRITE OUTPUT TAPE 6 »4 » (OUT ( M ) »M=1 » 8 ) 

 WRITE OUTPUT TAPE 6,6,DX,DY 

 L = LSAV 

 N = NSAV 



102 RETURN 

 END 



* FAP 



COUNT 30 



ENTRY MOVE 



MOVE CLA 2,4 



5 T A 13 B 



CLA 4,4 



STA HERE 

 HERE CLA 



TZE RITE 



CLA 1,4 



STA AA 



CLA 3,4 



STA NEXT 

 NEXT CLA 



ARS 18 



STA NPL 

 AA CAL 

 NPL ALS 



TOV BB 



TRA BB 



RITE CLA 1,4 



STA AR 



CLA 3,4 



STA TEMP 

 TEMP CLA 



ARS *8 



STA NPRT 

 AR CAL 

 NPRT ARS 

 BB SLW 



TRA 5,4 



END 



