;「 ; 」はコメントです、これを先頭につけておけば何を書いてもその行は無効になります

*a001	;a001 というしおりを作成 goto ○○○ と指定する事によりこの位置へ移動できる

	;一番下にある goto *a001 によりループになっています。
	;この状態で wait を入れないとCPUのパワーをごっそり持っていかれる
	;プログラムの実行を一定時間だけ中断
	wait 10

	;画面を灰色にし、初期化
	cls 1

	;gettime は時間を取得します　時間の時をh、分をm、秒をsに代入
	gettime h,4 : gettime m,5 : gettime s,6

	;文字を表示します 文字は全て""内に書き込みます、何かを代入してあるものと一緒に表示する時、
	;この場合 h,m,s は + で繋げます
	mes "現在時刻　"+h+"時"+m+"分"+s+"秒"

	;a001に移動します
	goto *a001