10 HOME : INPUT "ENTER A DECIMAL NUMBER BETWEEN 0 AND 65535: ";DD$:DEC = VAL(DD$): GOSUB 62010: PRINT : PRINT "THE HEXADECIMAL EQUIVALENT IS $"HEX$: PRINT
20 INPUT "ENTER A HEX NUMBER BETWEEN $0000 AND $FFFF :$";HEX$: GOSUB 63010: PRINT : PRINT "THE DECIMAL EQUIVALENT IS "DEC