5 PRINT "Converts hexidecimal numbers to decimal"
10 DEFDBL A-Z
20 INPUT "Input hexidecimal number"; a$
25 a$ = UCASE$(a$)
30 b = LEN(a$)
60 c = 1
80 IF MID$(a$, c, 1) = ("A") THEN e = 10
110 IF MID$(a$, c, 1) = ("A") THEN GOTO 230
120 IF MID$(a$, c, 1) = ("B") THEN e = 11
130 IF MID$(a$, c, 1) = ("B") THEN GOTO 230
140 IF MID$(a$, c, 1) = ("C") THEN e = 12
150 IF MID$(a$, c, 1) = ("C") THEN GOTO 230
160 IF MID$(a$, c, 1) = ("D") THEN e = 13
170 IF MID$(a$, c, 1) = ("D") THEN GOTO 230
180 IF MID$(a$, c, 1) = ("E") THEN e = 14
190 IF MID$(a$, c, 1) = ("E") THEN GOTO 230
200 IF MID$(a$, c, 1) = ("F") THEN e = 15
210 IF MID$(a$, c, 1) = ("F") THEN GOTO 230
220 e = VAL(MID$(a$, c, 1))
230 f = b - c
240 g = (16 ^ f) * e
260 h = h + g
270 c = c + 1
280 IF c > b THEN GOTO 300
290 GOTO 80
300 PRINT h