30 DEFDBL A-Z
40 PRINT "Converts binary numbers to decimal"
50 PRINT "Input binary number for example 11011001"
60 INPUT a$
80 b = LEN(a$)
90 c = 0
100 c = c + 1
105 IF c > b THEN GOTO 500
110 IF MID$(a$, c, 1) = "0" THEN GOTO 100
130 e = b - c
140 f = 2 ^ e
150 g = g + f
160 GOTO 100
500 IF b = 16 THEN g = -65536 + g
510 PRINT g