a="Console HSP Test"
	mes "["+a+"]"

	mes "カレントディレクトリの内容を、"
	mes "「dir.txt」にセーブしました。"
	dirlist buf,"*.*"
	notesel buf
	notesave "dir.txt"
	stop