(41) Jet fuel Density calculator

[WrongWay]

The attached program computes the fuel density of JET A fuel and compute the needed volumetric fuel uplift. This is my first time back to the 41 after a fair bit so the code I'm sure could easily be optimized and constructive feedback is always welcome. The compressed raw file is attached.

XEQ FDENSTY to run.
and follow on screen instructions. The initial prompt asks for an entry of 0 or 1 to set the desired units.

size[ 00E4 ] ( 228 bytes )

Code:


LBL "FDENSTY"
CLRG
CLST
CLA
CF 00
FIX 3
"LB: 0, KG:1"
PROMPT
X=0?
SF 00
1.013879343
STO 01
-2.987077809E-07
STO 02
-9.200271003E-04
STO 03
"OAT C?"
PROMPT
STO 00
*
X<>Y
RCL 00
X^2
*
+
+
FS? 00
GTO "L"
GTO "K"
LBL "L"
100
15
/
*
STO 01
GTO 00
LBL "K"
0.8
*
STO 01
GTO 00
LBL 00
"DEN: "
ARCL X
FS? 00
GTO 01
GTO 02
LBL 01
>"LB/GAL"
GTO 03
LBL 02
>"KG/M3"
GTO 03
LBL 03
STO 01
AVIEW
STOP
FIX 0
"FPL FUEL?"
PROMPT
"FOB?"
PROMPT
-
RCL 01
/
"NEED: "
ARCL X
FS?C 00
GTO 04
GTO 05
LBL 04
>"G"
GTO 06
LBL 05
>"L"
GTO 06
LBL 06
AVIEW
FIX 9
END