Base Conversion

[Stevetuc]

Updated to allow bitwidth to be chosen as Salvomic proposed, and also allow default system bitwidth option.
More meaningful variable names than a,b have used for readability.

Code:

EXPORT Baseconv(in)
BEGIN
LOCAL base,bits;
CHOOSE(base, "Base", "System", "Binary","Octal","Decimal","Hex");
CHOOSE(bits, "Size", "System","8", "16","32","64");
IF bits > 1 THEN bits:=2^(bits+1) ELSE bits:=GETBITS(#);END;
R→B(B→R(in),bits,base-1)
END;

Steve