0 CLR
2 PRINT"[147]"POKE53280,6:POKE53281,6
10 INPUT"HEX";HX$
20 D=0:FORK=1TOLEN(HX$):D%=ASC(HX$):D%=D%-48+(D%>64)*7
30 HX$=MID$(HX$,2):D=16*D+D%:NEXT
40 PRINT"DEC # IS "D