home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 June
/
1993-06.d64
/
dec2hex.fb
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
154b
|
7 lines
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$