5 REM ** BINARY-DECIMAL CONVERSION **›7 REM ** BIN2DEC.BAS **›10 DIM BN$(9),BIT(8),T$(1)›20 GRAPHICS 0›25 ? :? "BINARY-DECIMAL CONVERSION"›30 ? :? "ENTER AN 8-BIT BINARY NUMBER:":? :INPUT BN$›35 IF LEN(BN$)<>8 THEN 30›40 FOR L=1 TO 8›50 T$=BN$(L)›55 IF T$<>"0" AND T$<>"1" THEN 30›60 BIT(L)=VAL(T$)›70 NEXT L›75 ANS=0›80 M=256›90 FOR X=1 TO 8›100 M=M/2:ANS=ANS+BIT(X)*M›110 NEXT X›140 ? "DECIMAL: ";ANS›150 GOTO 30››