import "./init.txt"

'100msC^[oŌĂяo
@interval
	'QbɈ exec֐s
	if count>20 then
		count=1
		exec
	else
		count=count+1
	endif
_@

'SQLs
@exec args
	'PsƂɏ֐ݒ肷
	callback="@exec_work"
	'tB[ȟݒ
	fieldlen=4
	'SQLݒ
	this="select field1,field2,field3,field4 from table1"

	'Lꍇɂ͂ɂ
	if args<>0 then
		this=this+" where " +args
	endif
_@

@exec_work
	'tB[h̒lǂݏoĉZۑ
	'zdata[x]̒lύX邱ƂɂΉtB[hύXB
	for i=1 to 4
		val data[i]
		data[i]=data[i]+1
		str data[i]
	next i
_@

