Function X2X$(zahl$, sys1, sys2)
	
	Local x$ = zahl$
	Local decZahl
	Local negativ
	
	Local a$, b
	
	
	If Instr(x$, "-") Then x$ = Right(x$, Len(x$) - 1) : negativ = 1
	
	
	For i = 1 To Len(x$)
		
		a$ = Upper(Mid(x$, i, 1))
		b = a$
		
		If b = 0 And a$ <> "0" Then
			b = Asc(a$) - 55
		End If
		
		decZahl = decZahl * sys1
		decZahl = decZahl + b
		
	Next
	
	
	wert = decZahl
	
	Local XZahl$
	
	Local c$, d, e
	Local fertig
	
	d = wert
	
	
	Repeat
		
		e = d Mod sys2
		d = d / sys2
		
		c$ = e
		If e => 10 Then c$ = Chr$(e + 55)
		
		XZahl$ = c$ + XZahl$
		
		
		If d = 0 Then fertig = 1
		
	Until fertig = 1
	
	
	If negativ = 1 Then XZahl$ = "-" + XZahl$
	
	
	Return XZahl$
	
End Function



Wert$ = Input("Zahl eingeben: ")
Ausgangssystem = Input("Ausgangssystem: ")
Zielsystem = Input("Zielsystem: ")

Print X2X$(Wert$, Ausgangssystem, Zielsystem)


WaitKey()
End