pro d2h,num x=indgen(100)*0 for ii=0,99 do begin if(num ne 0) then begin x[ii]=num mod 2 num=num/2 endif else goto,aaa endfor aaa:y='' for jj=0,24 do begin tmp=x[3+jj*4]*8+x[2+jj*4]*4+x[1+jj*4]*2+x[0+jj*4] y=strmid('0123456789ABCDEF',tmp,1)+y endfor bbb: if(strmid(y,0,1) eq '0') then begin y=strmid(y,1,strlen(y)-1) goto,bbb endif xx='' for kk=0,--ii do xx=strtrim(string(x[kk]),2)+xx print,'binary: ', xx print,'hexadecimal: ',y ;return,y end