10 REM ›20 REM HEX TO DEC CONVERSION PROGRAM ›30 REM ›40 REM THE FAST WAY›50 REM DON'T USE MATH›60 REM ›70 DIM H$(40),A$(40)›80 REM ›90 PRINT ›100 PRINT ›110 PRINT ›120 PRINT "HEX TO DECIMAL CONVERSION"›130 PRINT ›140 PRINT "H) HEX TO DEC"›150 PRINT "D) DEC TO HEX"›160 PRINT ›180 INPUT A$›190 IF A$="H" THEN 220›200 IF A$="D" THEN 400›210 GOTO 100›220 REM ›230 REM CONVERT HEX TO DECIMAL›240 REM ›250 PRINT "ENTER HEX NUMBER";›260 INPUT H$›270 REM ›280 D=0›290 S=1:REM POSITIONAL MULTIPLIER›295 REM GO THROUGH THE STRING›300 FOR L=LEN(H$) TO 1 STEP -1›310 A$=H$(L,L)›320 REM ›330 REM CONVERT "0"-"F" TO 0-15›340 N=ASC(A$)-48:IF N>9 THEN N=N-7›345 IF N<0 OR N>15 THEN 90›350 D=D+N*S›360 S=S*16›370 NEXT L›380 PRINT "HEX ";H$;"= DEC ";D›390 GOTO 90›400 REM ›410 REM CONVERT DECIMAL TO HEX›420 REM ›430 PRINT "ENTER DECIMAL TO CONVERT"›440 INPUT D›450 REM ›460 REM FIRST FIND THE HIGHEST DIGIT›470 REM ›480 S=16›490 X=2›500 IF S<D THEN X=X+1:S=S*16:GOTO 500›505 PRINT "DECIMAL ";D;" = HEX ";›510 T=D›520 FOR L=X TO 1 STEP -1›530 N=INT(T/S)›540 PRINT CHR$(48+N+7*(N>9));:REM CONVERT DEC TO HEX 0-F›550 T=T-N*S:S=S/16›560 NEXT L›570 PRINT ›580 GOTO 90››