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