home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / hex2dec.fb (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  149b  |  7 lines
  1. 0 clr
  2. 2 print"[147]"poke53280,6:poke53281,6
  3. 10 input"hex";hx$
  4. 20 d=0:fork=1tolen(hx$):d%=asc(hx$):d%=d%-48+(d%>64)*7
  5. 30 hx$=mid$(hx$,2):d=16*d+d%:next
  6. 40 print"dec # is "d
  7.