[HMM0069A]$B!|%^%/%m=hM}Cf$K%@%$%"%m%0%\%C%/%9$r=P$9J}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

[HMM0069A]

$B!|%^%/%m=hM}Cf$K%@%$%"%m%0%\%C%/%9$r=P$9J}K!(B

$B%^%/%m=hM}Cf$K%@%$%"%m%0%\%C%/%9$r=P$7$F!"!V=hM}Cf$G$9!W$HI=<($5$;$?$$$N$G$9$,!)!#(B

$BA4$F$N>l9g$K$D$$$F$G$-$k$o$1$G$O$J$$$G$9$,!"(Bwhile $B%k!<%W$+$J$s$+$G=hM}$r$9$k$h$&$J>l9g$K$D$$$F$O!V=($^$k$*$N%^%/%m%5!<%P!W$r;H$C$F0J2<$NMM$J46$8$G2?$H$+$J$k$s$8$c$J$$$G$7$g$&$+!)(B

$B0J2<$NNc$G$O!"(B"0"$B!A(B"9"$B$NJ8;z$r7+$jJV$7(B1000$B8D$^$GI=<($5$;$^$9!#!VCf;_!W%\%?%s$r%/%j%C%/$9$k$H=hM}$rCfCG$7$^$9!#(B

// $B%^%/%m%5!<%P$G>o$K%@%$%"%m%0$rI=<($5$;$k%5%s%W%k(B
run "macserv.exe";
ddeinitiate "HideMacroServer", "AllService";
ddepoke "newdialog", "20,$B=(4]%^%/%m(B";
ddepoke "newcontrol", "text,,$B=hM}Cf$G$9(B";
ddepoke "newcontrol", "defbutton,,$BCf;_(B";
ddepoke "notify", "10";
$item = "";
ddestartadvice "dlgresult", $item;
ddeexecute "dialog lastactiveparent";
while( 1 ){
ddewaitadvice $item, 10;
// $B!VCf;_!W%\%?%s$,2!$5$l$?$i=*N;$9$k(B
if( $item != "" ) break;
// $B85!9$N%3!<%INc!'$3$3$+$i(B
// $B=*$o$C$?$i(B break $B$G%k!<%W$rH4$1$k(B
#n = #n + 1;
#m = #m + 1;
if (#n > 9) #n = 0;
insert str(#n);
if (#m > 1000) break;
// $B85!9$N%3!<%INc!'$3$3$^$G(B
}
ddeexecute "enddialog";
ddestopadvice "dlgresult";
ddeexecute "exit";
endmacro;
// $B!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