CLOSE #1:CLR :DN=PEEK(769)›DIM DN$(6),ZZ$(16),Z$(5),Z(4):OPEN #1,4,0,"K:":? "}Enter Decimal Number up to 65535"›? "œ":DN$="D1:DEC":DN$(2,2)=STR$(DN)›? "œ":FOR I=1 TO 4:Z(I)=0:NEXT I:ZZ$="0123456789ABCDEF"›? "œ":FOR I=1 TO 5:GET #1,Z:IF Z>47 AND Z<59 THEN ? CHR$(Z);:Z$(I,I)=CHR$(Z):NEXT I:CLOSE #1›? "}":Z=VAL(Z$):FOR I=1 TO 4:Z(I)=0:NEXT I›? "}":ZZ=INT(Z/4096):IF ZZ>0 THEN Z(1)=ZZ:Z=Z-4096*ZZ›? "}":ZZ=INT(Z/256):IF ZZ>0 THEN Z(2)=ZZ:Z=Z-256*ZZ›? "}":ZZ=INT(Z/16):IF ZZ>0 THEN Z(3)=ZZ:Z=Z-16*ZZ›? "}":Z(4)=Z›? "œDECIMAL ";Z$;" = ";:FOR I=1 TO 4:? ZZ$(Z(I)+1,Z(I)+1);:NEXT I:? " HEX"›? "œPress SPACE BAR to Continue,":? "H to Convert HEX Numbers,":? "Any other Key to Quit.":CLOSE #1›? "œ":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z=72 THEN DN$(4)="HEX":ENTER DN$›IF Z=32 THEN ENTER DN$›