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