APPENDIX 2 



Program Title: Noi^mal Drag on Mooring 









CODE 



BR PT 



Step 



Instruction 



MIL 



Remarks 







000 



Keset 



024 







001 



1 



001 







002 



Print X 



026 







003 



Halt 



401 



Enter V, velocity, ft/sec 





004 



Print X 



026 







005 



a" 



074 







006 



2 



002 







007 



= 



020 







010 



ST 1 



440 



V= 





Oil 



2 



002 







012 



Print X 



026 







013 



Halt 



401 



Enter Cd, drag coeffieient 





014 



Print X 



026 







015 



ST 2 



441 







016 











017 



Halt 



401 





1 



020 



3 



003 







021 



PE 



026 







022 



Halt 



401 



Enter d, diameter, ft 





023 



Print X 



026 







024 



ST 3 



442 







025 



4 



004 







026 



Print X 



026 







027 



Halt 



401 



Enter i, length, ft 





030 



Print X 



026 







031 



ST 4 



443 







032 



5 



005 







033 



Print X 



026 







034 











035 











036 











037 









2 



040 



Eel 1 



460 







041 



X 



070 







042 



Eel 2 



461 







043 



X 



070 







044 



Eel 3 



462 





23 



