' Einfache base_convert()-Implementation

DECLARE FUNCTION BaseConvert$ (w%, b%)

DO
  INPUT "Wert"; w%
LOOP UNTIL w% >= 0
DO
  INPUT "Basis"; b%
LOOP UNTIL b% >= 2 AND b% <= 36
PRINT "Umgewandelte Zahl: "; BaseConvert$(w%, b%)

DO
  INPUT "Zeichen"; z$
LOOP UNTIL LEN(z$) = 1
PRINT "Bin„rwert: "; BaseConvert$(ASC(z$), 2)

FUNCTION BaseConvert$ (w%, b%)
  h$ = ""
  w1% = w%
  DO
    z% = w1% MOD b%
    IF z% < 10 THEN
      h$ = CHR$(48 + z%) + h$
    ELSE
      h$ = CHR$(55 + z%) + h$
    END IF
    w1% = w1% \ b%
  LOOP UNTIL w1% = 0
  BaseConvert$ = h$
END FUNCTION