0 'DHEX.BA author unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 PRINTCHR$(12);:HEX$="" 50 INPUT"Decimal value";N 60 N%=CINT(N/16):GOSUB200 70 N%=N-N%*16:GOSUB200 80 PRINTSPACE$(4)"$"HEX$ 90 PRINT:PRINT"Hit any key to continue or 'q' to quit"; 100 A$=INPUT$(1) 110 IFA$<>"Q"ANDA$<>"q"THEN10ELSEMENU 200 HEX$=HEX$+CHR$(48+N%+7*ABS(N%>9)) 240 RETURN