(view source code of dec2hex.kix as plain text)
If $Dec = ""
? "Enter a decimal value: "
GetS $Dec
EndIf
$DecVal = Val( $Dec )
If "$Dec" <> "$DecVal"
? "Dec2Hex.kix, Version 1.00"
? "Convert specified decimal number to 8 digit hexadecimal"
?? "Usage: KIX32 DEC2HEX.KIX $DEC=number"
?? "Where: " + Chr(34) + "number" + Chr(34) + " is any decimal number ranging from 0..2147483647 (0x7FFFFFFF)"
?? "Written by Rob van der Woude"
? "http://www.robvanderwoude.com"
?Quit 1
EndIf
$Hex = DecToHex( $Dec )
$HLen = Len( $Hex )
While $HLen < 8
$Hex = "0" + $Hex
$HLen = Len( $Hex )
Loop
? "$Dec = 0x" + $Hex
?page last modified: 2024-04-16; loaded in 0.0056 seconds