home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9007a.d64 / 61130dec (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  165 b   |  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.