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