input""a$
b=instr(a$,",")
?right$("0000"+bin$(dec(left$(a$,b-1),2)*dec(mid$(a$,b+1),2)),8)