;１〜２０までを表示する
	repeat 20,1		;１から２０回繰り返す
		mes cnt		;cntが変化する
	loop
	stop

;カウントダウンする
#define MAX 10		;最初の数
	repeat MAX+1
		a=MAX-cnt
		mes a		;cntが変化する
		await 1000	;１秒待つ
	loop
	stop

;ウィンドウを動かす
	width ,,0,0 : wait 100				;左上
	width ,,0,dispy-winy : wait 100			;左下
	width ,,dispx-winx,dispy-winy : wait 100	;右下
	width ,,dispx-winx,0 : wait 100			;右上
;ヘルプ：プログラムガイドのシステム変数をみましょう

;ウィンドウを消す
	dialog "ウィンドウが消えます"
	gsel 0,-1
	wait 100
	gsel 0,1
	stop

;九九の表を表示する
	repeat 9,1
		retu=""
		a=cnt			;かけられる数
		repeat 9,1
			b=cnt		;かける数
			c=a*b
			str c,2
			retu=retu+" "+c	;間にスペースがないと？？
		loop
		mes retu
	loop
	stop

;いろいろな文字の表示
	mes "ふつう"
	color 255,0,0 : mes "色が付いた！！"
	font "ＭＳ 明朝",17 : mes "さらに、明朝体になった"
	font "ＭＳ 明朝",30 : mes "さらに、大きくなった"
	font "ＭＳ 明朝",30,1 : mes "今度は太く！！"
	font "ＭＳ 明朝",30,2 : mes "今度は斜体　"	;よけいなスペースがないと？？
	color 0,0,0 : sysfont : mes "ふつうに戻った・・・"
	stop

;タイトルを書き換えよう
	title "なににしよう・・・" : wait 100
	title "どうしよう・・・" : wait 100
	title "あれ？勝手に書き変わってる" : wait 100
	title "便利だなぁー" : wait 100
	stop

;YESかNOか聞いてみよう
	dialog "あなたは大人ですか？",2
	if stat=6 : mes "わーい、大人だ！！"	;YES
	if stat=7 : mes "勉強してるか？？"	;NO
	stop

;今の時間を表示する
	gettime m,1		;月
	gettime d,3		;日
	gettime h,4		;時
	gettime min,5		;分
	mes ""+m+"月"+d+"日"+h+"時"+min+"分"	;最初の""がないと？
	stop

;クリックした場所に表示
	repeat
		stick a,,1		;最後の１は必要？？
		if a&256 {		;＆ではなく＝だと同時押しのとき？？
			pos mousex,mousey
			mes "こんにちは"
		}
		wait 10
	loop