5 REM BIN_DEC.BAS
10 REM THIS PROG CONVERTS BINARY WORDS TO DECIMAL NUMBERS
20 REM AND HEXIDECIMAL NUMBERS
30 REM WRITTEN BY RUSS KINCAID 15 AUG 1988
40 REM  REVISED 5 JAN 1989
50 PRINT"Enter the binary word as a string of 0s and 1s, MSB first to"
60 PRINT"LSB last, left to right.  32 bits maximum."
70 PRINT
80 INPUT"Binary word = ";B$
90 L=LEN(B$)
100 K=L:K1=1
110 V=0 : FOR J=1 TO 4
120 C=VAL(MID$(B$,K,1))
130 K=K-1
140 V=V+C*2^(J-1)
150 IF K=0 THEN 170
160 NEXT J
170 DEC(K1)=V
180 IF V=10 THEN HX$(K1)="A" : GOTO 250
190 IF V=11 THEN HX$(K1)="B" : GOTO 250
200 IF V=12 THEN HX$(K1)="C" : GOTO 250
210  IF V=13 THEN HX$(K1)="D" : GOTO 250
220  IF V=14 THEN HX$(K1)="E" :GOTO 250
230 IF V=15 THEN HX$(K1)="F" :GOTO 250
240 HX$(K1)=RIGHT$(STR$(V),1)
250    IF K=0 THEN 270
260 K1=K1+1:GOTO 110
270 V=0
280 FOR J=1 TO K1
290 V=V+(16^(J-1))*DEC(J):NEXT J
300 PRINT : PRINT"DECIMAL NUMBER = ";
310 PRINT V
320 REM PRINT:PRINT:PRINT"HEX NUMBER = ";
330 FOR J=1 TO K1
340   PRINT HX$(J);
350   NEXT J
360 INPUT"ANOTHER",Y$
370 IF LEFT$(Y$,1)=Y OR LEFT$(Y$,1)=Y THEN 50
380 SYSTEM
400 END