start tok64 d64-HFjn5Z 0 REM sv oberoende computer #1/1988 10 INPUT"ursprungsbas (2-36):";b1:INPUT"destinationsbas (2-36):";b2 20 t$="":y=.:INPUT"tal:";t$:IFt$=""THEN10 30 x=LEN(t$):FORi=.TOx-1:j=ASC(MID$(t$,x-i,1)):IFj>47ANDj=b1THENPRINT"{down}tecken"i+1"fr]n h ger ej acceptabelt!!":GOTO20 50 y=y+j*b1^i:NEXT:t$="" 60 j=INT(y/b2):i=y-j*b2:y=j:i$=CHR$(i+48+(i>9)*-7):i$=i$+t$:t$=i$:IFy<>.THEN60 70 PRINT"svar:"t$"{down}":GOTO20 stop tok64 (bastext 1.0)