LBL SWR
STO 03
STO 04
5
STO 01
+
1
-
STO 02
0.65432
STO 00
5
1
LBL 01
STO IND Y
1
ST+ Z
+
DSE 04
GTO 01
RCL 03
STO 04
LBL 02
R03=0?
RTN
XEQ 03
RCL 03
*
RCL 01
ST+ Y
DSE 03
NOP
RCL 03
+
RCL IND X
X<> IND Z
STO IND Y
BEEP
GTO 02
LBL 03
RCL 00
9821
*
0.211327
+
FRC
STO 00
RTN

