$B"+A0$X(B $B $B5!G=JL#Q!u#A(B $B $B=(4]%(%G%#%?#Q!u#A=8%H%C%W(B

[HMM0080A]

$B!|(B16$B?J?tI=5-J8;zNs$r

Q. $B=(4]$G(B16$B?J?tI=5-J8;zNs$r

A. $B=(4](B ver.3.14$B$+$i$O(Bhex$B4X?t$,$"$j$^$9$N$G$=$l$rMxMQ$7$^$9!#(B

ver.3.13$B0J2<$G$O!"0J2<$NNc$N$h$&$K$7$^$9!#(B


// $B%F%9%H%^%/%m!J$3$3$+$i!K(B
// $B%+!<%=%k0LCV$NJ8;z%3!<%I$r(B16$B?J?tI=5-$7$^$9!#(B
#Code = code;
call ChangeToHex #Code;
message $$return;
endmacro;

ChangeToHex:

##Wk = ##1;
$$Str = "";
while( 1 ) {
##Wk2 = ##Wk % 16;
$$Str = midstr("0123456789ABCDEF",##Wk2,1) + $$Str;
##Wk = ##Wk / 16;
if( ##Wk < 1 ) break;
}
return $$Str;
// $B%F%9%H%^%/%m!J$3$3$^$G!K(B


$B"+A0$X(B $B $B5!G=JL#Q!u#A(B $B $B=(4]%(%G%#%?#Q!u#A=8%H%C%W(B