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
?