;
	;	HSPモジュール・サンプル(modtest1から呼び出されます)
	;	( このファイルをincludeすることで命令が追加されます)
	;
	;	txtload命令は、テキストファイルを指定した変数に読み込む
	;	ためのユーザー拡張命令です。
	;	「#include "modtest2.as"」を入れることで使用できます。
	;	通常のbload命令では、テキストを読み込んだ場合、以前に
	;	ロードされたテキストの一部が残ってしまう現象が起こる
	;	ことがありましたが、txtload命令はロードしたテキストの
	;	最後に文字列の終了コード(0)を自動的に入れるので、
	;	そうした問題がなくなります。
	;

#module "test"					; モジュール名"test"

#deffunc txtload str,val

	;	txtload "filename",変数   命令追加
	;
	mref fname,32				; "filename"をfnameに取得
	mref buf,25				; 変数をbufに取得
	mref res,64				; システム変数statをresに取得

	exist fname
	if strsize<0 : dialog "ファイルがありません" : goto *errend
	if strsize>32000 : dialog "テキストが大きすぎます" : goto *errend

	poke buf,strsize,0			; テキストの終了マークを書きこむ
	res=strsize				; システム変数statにサイズを代入

	bload fname,buf				; ファイルをロード
	return

*errend
	res=-1					; システム変数statを1に
	return


#global						; 最後にglobalに戻すこと