HEX$ ="":X = DEC: FOR I = 1 TO 10:X = X / 16: IF X = > 1 THEN NEXT I
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$
IF HEX$ = "0" THEN PRINT "ENTER": PRINT: PRINT "     DEC = 1958": PRINT : PRINT " FOR EXAMPLE. THEN EXEC DECTOHEX"