' Umwandlung beliebiger Basen

DO
  INPUT "Basis"; b%
LOOP UNTIL b% >= 2 AND b% <= 36

INPUT "Zahl"; z%

u$ = ""
z1% = z%
DO
  ziffer% = z1% MOD b%
  IF ziffer% < 10 THEN
    u$ = CHR$(ASC("0") + ziffer%) + u$
  ELSE
    u$ = CHR$(ASC("A") + ziffer% - 10) + u$
  END IF
  z1% = z1% \ b%
LOOP UNTIL z1% = 0

PRINT z%; "(10) = "; u$; "("; b%; ")"