home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 July / 64er_Magazin_90-07_1990_Markt__Technik_de_Side_A.d64 / 61110hex$ (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  141b  |  4 lines
  1. 61110 rem 61110hex$        uz/uz$/ua,ub,uc
  2. 61111 uz$="":ub=0:uc=uz:forua=3to0step-1:ub=int(uc/16^ua)
  3. 61112 uz$=uz$+chr$(48+ub+7*-(ub>9)):uc=uc-ub*16^ua:next:return
  4.