0 CLR
2 PRINT"[147]"POKE53280,6:POKE53281,6
10 INPUT"DEC";DC
20 HX$="":DC=DC/4096:FORK=1TO4:DC%=DC:HX$=HX$+CHR$(48+DC%-(DC%>9)*7)
30 DC=16*(DC-DC%):NEXT
40 PRINT"HEX IS "HX$