0 'BIDEC.BA author unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 PRINTCHR$(12); 20 INPUT"Binary value(8 digits)";BIN$ 30 IFBIN$="Q"ORBIN$="q"THENMENU 40 IFLEN(BIN$)<>8THEN20 50 FORI=1TO8 60 A(I)=VAL(MID$(BIN$,I,1)):NEXT 70 DEC=128*A(1)+64*A(2)+32*A(3)+16*A(4)+8*A(5)+4*A(6)+2*A(7)+A(8) 80 PRINT"Decimal=";DEC:GOTO20