LBL "CHARS"
132
X<>Y
CLRG
LBL 01
CLA
XTOA
1
+
XTOA
1
+
XTOA
1
+
XTOA
1
+
XTOA
1
+
XTOA
1
+
6
/
ASTO IND X
6
*
X#Y?
GTO 01
CLX
RTN
END