0 'HEXD.BA author unknown
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
10 PRINTCHR$(12);
20 INPUT"Hex value";H$
30 IFH$="Q"ORH$="q"THENMENU
40 GOSUB100
50 PRINTH
60 PRINT:PRINT"Hit any key to continue";
70 IFINKEY$=""THEN70
80 GOTO10
100 H=0:IFLEN(H$)=0THENPRINT"Error":RETURN
140 FORLOOP=1TOLEN(H$):HD=ASC(MID$(H$,LOOP,1))
150 H=H*16+HD-48+((HD>57)*7)
160 NEXT:RETURN