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$¢əəəəəəə
