LBL "AOS"
CLRG
3
STO 00
10
STO 01
CLST
RTN
LBL "+"
-1.2
GTO 00
LBL "-"
-2.2
GTO 00
LBL "*"
-3.1
GTO 00
LBL "/"
-4.1
GTO 00
LBL "^"
5.1
LBL 00
STO 02
FRC
X>0?
GTO 11
LBL 09
RCL IND 01
X=0?
GTO 10
FRC
X<Y?
GTO 10
X<> Z
LASTX
XEQ 06
R^
GTO 09
LBL 10
RDN
LBL 11
RDN
RCL 02
XEQ 07
ISG 00
RTN
STO IND 00
RTN
LBL "<"
0
LBL 07
ISG 01
RTN
STO IND 01
RDN
RTN
LBL ">"
XEQ 08
DSE 01
RTN
LBL "="
LBL 08
RCL IND 01
X=0?
GTO 13
XEQ 06
GTO 08
LBL 13
RDN
RTN
LBL 06
DSE 01
X<>Y
RCL IND 00
DSE 00
X<>Y
XEQ IND Z
VIEW X
RTN
LBL 01
+
RTN
LBL 02
-
RTN
LBL 03
*
RTN
LBL 04
/
RTN
LBL 05
Y^X
RTN