CLOSE #1:CLR :DN= PEEK(769):DIM DN$(6),Z$(4),ZZ$(4):? "}Enter HEX Number to Convert.":OPEN #1,4,0,"K:"›? "œ":DN$="D1:HEX":DN$(2,2)=STR$(DN)›? "œ":FOR I=1 TO 4:GET #1,Z:IF Z>47 AND Z<58 OR Z>64 AND Z<71 THEN Z$(I,I)=CHR$(Z):? CHR$(Z);:NEXT I›? "}":CLOSE #1:ZZ$="0000":Z=LEN(Z$)›? "}":ZZ$(1+4-Z)=Z$:Z$=ZZ$(1,1):Z=0:ZZ=0›? "}":Z=Z$="F"*15+Z$="E"*14+Z$="D"*13+Z$="C"*12+Z$="B"*11+Z$="A"*10+Z$="9"*9+Z$="8"*8›? "}":Z=Z+Z$="7"*7+Z$="6"*6+Z$="5"*5+Z$="4"*4+Z$="3"*3+Z$="2"*2+Z$="1":Z=Z*4096:ZZ=ZZ+Z:Z$=ZZ$(2,2)›? "}":Z=Z$="F"*15+Z$="E"*14+Z$="D"*13+Z$="C"*12+Z$="B"*11+Z$="A"*10+Z$="9"*9+Z$="8"*8›? "}":Z=Z+Z$="7"*7+Z$="6"*6+Z$="5"*5+Z$="4"*4+Z$="3"*3+Z$="2"*2+Z$="1":Z=Z*256:ZZ=ZZ+Z:Z$=ZZ$(3,3)›? "}":Z=Z$="F"*15+Z$="E"*14+Z$="D"*13+Z$="C"*12+Z$="B"*11+Z$="A"*10+Z$="9"*9+Z$="8"*8›? "}":Z=Z+Z$="7"*7+Z$="6"*6+Z$="5"*5+Z$="4"*4+Z$="3"*3+Z$="2"*2+Z$="1":Z=Z*16:ZZ=ZZ+Z:Z$=ZZ$(4,4)›? "}":Z=Z$="F"*15+Z$="E"*14+Z$="D"*13+Z$="C"*12+Z$="B"*11+Z$="A"*10+Z$="9"*9+Z$="8"*8›? "}":Z=Z+Z$="7"*7+Z$="6"*6+Z$="5"*5+Z$="4"*4+Z$="3"*3+Z$="2"*2+Z$="1":ZZ=ZZ+Z›? "œHEX ";ZZ$;" = ";ZZ;" DECIMAL"›? "œPress SPACE BAR to continue,":? "D to Convert DECIMAL Numbers,":? "Any Other Key to Quit."›? "œ":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z=32 THEN ENTER DN$›IF Z=68 THEN DN$(4)="DEC":ENTER DN$›