home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34b.dsk / DECTOHEX.txt < prev    next >
Text File  |  2023-02-26  |  335b  |  4 lines
  1. HEX$ ="":X = DEC: FOR I = 1 TO 10:X = X / 16: IF X = > 1 THEN NEXT I
  2. J = I: FOR I = 1 TO J:A =INT (16 * X):X = 16 * X - A:HEX$ = HEX$ + CHR$ (A + 48 + 7 * (A > 9)): NEXT I: IF HEX$ < > "0" THEN PRINT "     HEX$ = ";HEX$
  3. IF HEX$ = "0" THEN PRINT "ENTER": PRINT: PRINT "     DEC = 1958": PRINT : PRINT " FOR EXAMPLE. THEN EXEC DECTOHEX"
  4.