7700 REM Converter HEX (0-FFh) to dec (0-255d)
7701 REM            Igi(c)2019
7705 ? "Input hex$,two char.:";:INPUT A$:S=0 
7710 IF LEFT$ (A$,1)="F" THEN S=240:GOTO 7870
7720 IF LEFT$ (A$,1)="E" THEN S=224:GOTO 7870
7730 IF LEFT$ (A$,1)="D" THEN S=208:GOTO 7870
7740 IF LEFT$ (A$,1)="C" THEN S=192:GOTO 7870
7750 IF LEFT$ (A$,1)="B" THEN S=176:GOTO 7870
7760 IF LEFT$ (A$,1)="A" THEN S=160:GOTO 7870
7770 IF LEFT$ (A$,1)="9" THEN S=144:GOTO 7870
7780 IF LEFT$ (A$,1)="8" THEN S=128:GOTO 7870
7790 IF LEFT$ (A$,1)="7" THEN S=112:GOTO 7870
7800 IF LEFT$ (A$,1)="6" THEN S=96:GOTO 7870
7810 IF LEFT$ (A$,1)="5" THEN S=80:GOTO 7870
7820 IF LEFT$ (A$,1)="4" THEN S=64:GOTO 7870
7830 IF LEFT$ (A$,1)="3" THEN S=48:GOTO 7870
7840 IF LEFT$ (A$,1)="2" THEN S=32:GOTO 7870
7850 IF LEFT$ (A$,1)="1" THEN S=16:GOTO 7870
7860 IF LEFT$ (A$,1)="0" THEN S=0
7870 IF RIGHT$ (A$,1)="F" THEN S=S+15:GOTO 8030
7880 IF RIGHT$ (A$,1)="E" THEN S=S+14:GOTO 8030
7890 IF RIGHT$ (A$,1)="D" THEN S=S+13:GOTO 8030
7900 IF RIGHT$ (A$,1)="C" THEN S=S+12:GOTO 8030
7910 IF RIGHT$ (A$,1)="B" THEN S=S+11:GOTO 8030
7920 IF RIGHT$ (A$,1)="A" THEN S=S+10:GOTO 8030
7930 IF RIGHT$ (A$,1)="9" THEN S=S+9:GOTO 8030
7940 IF RIGHT$ (A$,1)="8" THEN S=S+8:GOTO 8030
7950 IF RIGHT$ (A$,1)="7" THEN S=S+7:GOTO 8030
7960 IF RIGHT$ (A$,1)="6" THEN S=S+6:GOTO 8030
7970 IF RIGHT$ (A$,1)="5" THEN S=S+5:GOTO 8030
7980 IF RIGHT$ (A$,1)="4" THEN S=S+4:GOTO 8030
7990 IF RIGHT$ (A$,1)="3" THEN S=S+3:GOTO 8030
8000 IF RIGHT$ (A$,1)="2" THEN S=S+2:GOTO 8030
8010 IF RIGHT$ (A$,1)="1" THEN S=S+1:GOTO 8030
8020 IF RIGHT$ (A$,1)="0" THEN S=S+0
8030 ? A$;"=";S:?: GOTO 7705