home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 July / 64er_Magazin_90-07_1990_Markt__Technik_de_Side_A.d64 / 61130dec (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  165b  |  4 lines
  1. 61130 rem 61130dec         uz$/uz/ua,ub,uc,ua$
  2. 61131 uz=0:ua=len(uz$):ub=2*-(ua=8)+16*-(ua<=4):forua=1tolen(uz$)
  3. 61132 ua$=mid$(uz$,ua,1):uc=asc(ua$)-48+7*(ua$>"9"):uz=ub*uz+uc:next:return
  4.