title "getpath命令のテスト"
	sdim a,512
	sdim b,512
	screen 0,640,320
	mes "ファイルを開いて下さい。"
	dialog "*",16:if stat=0 : end
	a=refstr
	getpath b,a,0
	mes "すべて取り出す。"
	mes b
	getpath b,a,1
	mes "拡張子を除いた部分を取り出す。"
	mes b
	getpath b,a,2
	mes "拡張子を取り出す。"
	mes b
	getpath b,a,8
	mes "ファイル名のみ取り出す。"
	mes b
	getpath b,a,16
	mes "文字列の小文字変換を有効にする。"
	mes b
	getpath b,a,32
	mes "ディレクトリ名を取り出す。"
	mes b
	stop