home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 March
/
1994-03b.d64
/
convert
< prev
next >
Wrap
Text File
|
2022-09-20
|
331b
|
20 lines
'
'hex/decimal converter
'
]d0
poke49155,abs(left$("[1",1)="$")
]t [a>00 :]g hex
za=[1/4096:zb$=""
forzc=1to4:zd%=za:zb$=zb$+chr$(48+zd%-(zd%>9)*7):za=16*(za-zd%):next
print" $";zb$]d1
]o0 91 91
]e
@hex
za$=mid$("[1",2):zb=0
forzc=1to4:zd%=asc(za$):zd%=zd%-48+(zd%>64)*7:za$=mid$(za$,2):zb=16*zb+zd%:next
printzb]d1
]o0 91 91
]e