5 PRINT"[147]":POKE53280,14:POKE53281,6:POKE646,14
10 H$="0123456789ABCDEF":B=16:B1=2^B:REM B IS NUMBER OF BITS
20 PRINT"CONVERT A DECIMAL NUMBER INTO":PRINT"ITS HEXADECIMAL EQUIVALENT"
30 INPUT"ENTER DECIMAL VALUE";N:IFABS(N)>B1-1THEN30
40 N$="":IFN<0THENN=B1+N
50 FORI=1TOB/4:T=N-(INT(N/16)*16):N$=MID$(H$,T+1,1)+N$:N=N/16:NEXTI:PRINTN$