61130 REM 61130DEC         UZ$/UZ/UA,UB,UC,UA$
61131 UZ=0:UA=LEN(UZ$):UB=2*-(UA=8)+16*-(UA<=4):FORUA=1TOLEN(UZ$)
61132 UA$=MID$(UZ$,UA,1):UC=ASC(UA$)-48+7*(UA$>"9"):UZ=UB*UZ+UC:NEXT:RETURN