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