hp41boat_0_2.41

001*LBL "BOAT"
002 "V:0.2"
003 FIX 2
004 "SF 01 FOR SI"
005 AVIEW 
006 PSE
007 "L:OVERALL?"
008 XEQ 01
009 STO 00
010 "L:WATERLINE?"
011 XEQ 01
012 STO 01
013 "L:BEAM?"
014 XEQ 01
015 STO 02
016 "W:DISPLACEMT?"
017 XEQ 02
018 STO 03
019 64
020 /
021 STO 04
022 "W:BALAST?"
023 XEQ 02
024 STO 05
025 "L:HULL DRAFT?"
026 XEQ 02
027 STO 06
028 "A:SAIL AREA?"
029 PROMPT
030 FS? 01
031 10.764
032 FS? 01
033 *
034 STO 07
035 "HSPD,KT="
036 SF 25
037 RCL 01
038 SQRT
039 1.34
040 *
041 XEQ 00
042 "SA/D="
043 RCL 07
044 RCL 04
045 2
046 3
047 /
048 Y^X
049 /
050 XEQ 00
051 "D/L="
052 RCL 03
053 2240
054 /
055 RCL 01
056 .01
057 *
058 3
059 Y^X
060 /
061 ARCL X
062 PROMPT
063 "CSF="
064 RCL 02
065 RCL 03
066 64.2
067 /
068 3
069 1/X
070 Y^X
071 /
072 XEQ 00
073 "SSV="
074 RCL 02
075 .305
076 *
077 X^2
078 RCL 05
079 RCL 03
080 /
081 RCL 06
082 .305
083 *
084 *
085 RCL 04
086 .0283168
087 *
088 3
089 1/X
090 Y^X
091 *
092 /
093 XEQ 00
094 "A.V.STAB="
095 10
096 -
097 400
098 X<>Y
099 /
100 110
101 +
102 XEQ 00
103 "MCR="
104 RCL 01
105 X=0?
106 SF 00
107 3
108 /
109 RCL 00
110 X=0?
111 SF 00
112 .7
113 *
114 +
115 2
116 *
117 3
118 /
119 RCL 02
120 4
121 ENTER
122 3
123 /
124 Y^X
125 *
126 1/X
127 RCL 03
128 *
129 XEQ 00
130 CF 25
131 "DONE"
132 PROMPT
133 GTO "BOAT"
134*LBL 01
135 PROMPT
136 FC? 01
137 RTN
138 3.28
139 *
140 RTN
141*LBL 02
142 PROMPT
143 FC? 01
144 RTN
145 2.202
146 *
147 RTN
148*LBL 00
149 X=0?
150 SF 00
151 FC? 25
152 SF 00
153 SF 25
154 FS? 00
155 "|-???"
156 FC?C 00
157 ARCL X
158 PROMPT
159 END