DEC = 0: IF HEX$ < > ""THEN FOR I = 1 TO LEN (HEX$):X$ = MID$ (HEX$,I,1):X = ASC(X$) - 48 - 7 * (X$ > "9"): DEC = 16 * DEC + X: NEXT I: PRINT "     DEC = ";DEC
IF HEX$ = ""THEN PRINT "ENTER": PRINT: PRINT "     HEX$ = "CHR$(34)"7A6" CHR$(34): PRINT: PRINT "FOR EXAMPLE. THEN EXEC HEXTODEC"