你在学校，是不听过，8421码，如下的2进制数
10101100，每4位为1组，那就能分2组，1010  1100 = 8+0+2+0  8+4+0+0=10 12=AC(16进制)
以上就是算法的过程

accept "输入一个二进制数：" to bin
dec = 0
k = 0
FOR i=LEN(bin) TO 1 STEP -1
    IF SUBSTR(bin,i,1)=="1"
        dec = dec + BITLSHIFT(1,k)
    ENDIF
    k = k + 1
ENDFOR
? "十进制数为："+TRANSFORM(dec)
? "十六进制数为："+TRANSFORM(dec,"@0")