74 lines
460 B
Text
74 lines
460 B
Text
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
|