LBL "BASE"
LBL 00
255
AND
STO "WORD"
CLMENU
"ASCII"
KEY 1 XEQ 01
"HEX"
KEY 2 XEQ 02
"DEC"
KEY 3 XEQ 03
"BIN"
KEY 4 XEQ 04
KEY 9 GTO 09
" "
XTOA
10
X<>Y
X=Y?
"LF"
├"  "
256
+
HEXM
ARCL ST X
├"  "
744
+
AIP
├"  "
LASTX
-
BINM
ARCL ST X
4
AROT
ATOX
4
AROT
ATOX
5
AROT
ATOX
8
AROT
AVIEW
MENU
RCL "WORD"
STOP
GTO 00
LBL 01
CLA
RCL "WORD"
XTOA
AON
STOP
AOFF
ATOX
RTN
LBL 02
HEXM
GTO 05
LBL 03
DECM
GTO 05
LBL 04
BINM
LBL 05
INPUT "WORD"
RTN
LBL 09
EXITALL
END