home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34b.dsk / HEXTODEC.txt < prev    next >
Text File  |  2023-02-26  |  290b  |  3 lines
  1. 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
  2. IF HEX$ = ""THEN PRINT "ENTER": PRINT: PRINT "     HEX$ = "CHR$(34)"7A6" CHR$(34): PRINT: PRINT "FOR EXAMPLE. THEN EXEC HEXTODEC"
  3.