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