#define ctype hour(%1) %1/3600
#define ctype min(%1) %1\3600/60
#define ctype sec(%1) %1\60

	;	ctypeマクロテスト
	time=9865
	a1=hour(time):a2=min(time):a3=sec(time)
	mes ""+time+"秒="+a1+":"+a2+":"+a3

	mes "----"

	;	forマクロテスト
	for i,0,5
	mes "count down="+i
	next

	mes "----"

	;	while〜wend,do〜untilマクロのテスト
	b=0:while b<2
	a=5:do:mes "A="+a:a=a-1:until a=0:mes "OK"
	b+:wend:mes "end"

	stop