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
7720 IF LEFT$ (A$,1)="E" THEN S=224
7730 IF LEFT$ (A$,1)="D" THEN S=208
7740 IF LEFT$ (A$,1)="C" THEN S=192
7750 IF LEFT$ (A$,1)="B" THEN S=176
7760 IF LEFT$ (A$,1)="A" THEN S=160
7770 IF LEFT$ (A$,1)="9" THEN S=144
7780 IF LEFT$ (A$,1)="8" THEN S=128
7790 IF LEFT$ (A$,1)="7" THEN S=112
7800 IF LEFT$ (A$,1)="6" THEN S=96
7810 IF LEFT$ (A$,1)="5" THEN S=80
7820 IF LEFT$ (A$,1)="4" THEN S=64
7830 IF LEFT$ (A$,1)="3" THEN S=48
7840 IF LEFT$ (A$,1)="2" THEN S=32
7850 IF LEFT$ (A$,1)="1" THEN S=16
7860 IF LEFT$ (A$,1)="0" THEN S=0
7870 IF RIGHT$ (A$,1)="F" THEN S=S+15
7880 IF RIGHT$ (A$,1)="E" THEN S=S+14
7890 IF RIGHT$ (A$,1)="D" THEN S=S+13
7900 IF RIGHT$ (A$,1)="C" THEN S=S+12
7910 IF RIGHT$ (A$,1)="B" THEN S=S+11
7920 IF RIGHT$ (A$,1)="A" THEN S=S+10
7930 IF RIGHT$ (A$,1)="9" THEN S=S+9
7940 IF RIGHT$ (A$,1)="8" THEN S=S+8
7950 IF RIGHT$ (A$,1)="7" THEN S=S+7
7960 IF RIGHT$ (A$,1)="6" THEN S=S+6
7970 IF RIGHT$ (A$,1)="5" THEN S=S+5
7980 IF RIGHT$ (A$,1)="4" THEN S=S+4
7990 IF RIGHT$ (A$,1)="3" THEN S=S+3
8000 IF RIGHT$ (A$,1)="2" THEN S=S+2
8010 IF RIGHT$ (A$,1)="1" THEN S=S+1
8020 IF RIGHT$ (A$,1)="0" THEN S=S+0
8030 ? A$;"=";S:?: GOTO 7705