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\$