;  今日の曜日を表示
;	gettime命令で曜日を取得し表示する。
;

	gettime d1,0			; 年を取得
	gettime d2,1			; 月を取得
	gettime d4,3			; 日を取得
	day="日月火水木金土"		; 一週間の文字データ
	gettime d3,2			; 曜日(0〜6)を取得
	dd="??曜日"			; 文字列型変数aを初期化
	wpeek b,day,d3*2		; day文字を取得
	wpoke dd,0,b			; それを変数aにセット(2byte)
	mes "今日は、"+d1+"年"+d2+"月"+d4+"日["+dd+"] です。"	; 年、月、曜日を表示


;  現在時刻をエディットボックスに表示
;	1秒ごとに内容を更新しながら表示します。
;

	a=""				; 変数aを文字列型で初期化
	objsize 120,20
	mesbox a,160,32			; メッセージボックスを表示
					; (オブジェクトID0になります)
*tmprt
	int t1:gettime t1,4		; 時を取得
	int t2:gettime t2,5		; 分を取得
	int t3:gettime t3,6		; 秒を取得
	str t1,2:str t2,2: str t3,2	; 0を含めた２ケタの文字列に変換
	time=t1+":"+t2+":"+t3		; 文字列変数timeを設定
	objprm 0,time			; メッセージボックスの内容を更新
	wait 100			; 1秒ウエイトする
	goto *tmprt			; 無限ループ