vtest1.hsp

sample\hspda\vtest1.hsp » Plain Format

#include "hspda.as"
#define varfile	"vtest_data.var"

	;	vload,vsaveサンプル
	;
	onexit *owari

	sdim buf,4096			; テキストのバッファを確保

	vload varfile			; すべての変数をファイルから読み込み

	cls 4
	sysfont 17
	syscolor 15
	boxf

	flg=1				; 0=編集不可/1=編集可能
	mesbox buf,636,446,flg+4,0	; 最大サイズ編集許可

	color 0,0,0
	pos 8,452:mes "終了してもテキストエリアの内容が常に保持されるエディタです。"
	objsize 76,24
	pos 548,450:button "END",*owari

	stop

*owari
	vsave varfile			; すべての変数をファイルに保存
	end