input""a$
?right$("0000"+bin$(dec(left$(a$,8),2)*dec(mid$(a$,10),2)),8)