#//=============================================================================
#//Sample.batŎsꂽɎg\B
Usage
		Usage				goto
						PrintStr			"USAGE: dSnrSeqS.exe Sample.txt Sample.tcl ?-v? ?tableName? ?trigName?"
						PrintStr			"       or"
						PrintStr			"       dSnrSeqS.exe Sample.bin Sample.tcl ?-v? ?tableName? ?trigName?"
		end
end
#//=============================================================================
#//}`Xe[gg̃Tv
MultiStmt;	set		.set;		end
.set;		PrintStr	"ok";		end
#//=============================================================================
#//'def'߂̃Tv
#//Tvł̂݁A'def'ȗȂ܂B
#//TvȊOł́ASāA'def'ȗĂ܂B
Def
		Trg1				goto				.Trg1								#//V[PX.[Jxgp
		Trg2				goto				.Trg2								#//
		Trg3				goto				Def_Trg3							#//V[PXɃO[oxgp
		Trg4				goto				Def_Trg4							#//
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
def		.Trg1																#//'def'ȗ.[JxgpăV[PX`
		SnrSeqCh_SetTblNo		1,table Def_Tbl1
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg2																		#//'def'ȗ.[JxgpăV[PX`
		SnrSeqCh_SetTblNo		1,table Def_Tbl2
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
def		Def_Trg3															#//'def'ȗɃO[oxgpăV[PX`
		SnrSeqCh_SetTblNo		1,table Def_Tbl3
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Def_Trg4																	#//'def'ȗăO[oxgpăV[PX`
		SnrSeqCh_SetTblNo		1,table Def_Tbl4
end
#//-----------------------------------------------------------------------------
def		Def_Tbl1															#//'def'ȗɃe[u`
		set				goto
						PrintStr			"ok"
		end
end
#//-----------------------------------------------------------------------------
Def_Tbl2																	#//'def'ȗăe[u`
		set				goto
						PrintStr			"ok"
		end
end
#//-----------------------------------------------------------------------------
def		@@																#//'def'ȗ@[JxgpăV[PX`
		PrintStr			"@@ above Def_Tbl3 called"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Def_Tbl3
		set				goto
						call				@F								#//@[JxŒ`ꂽV[PXĂяo
		end
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
@@																		#//'def'ȗ@[JxgpăV[PX`
		PrintStr			"@@ between Def_Tbl3 and Def_Tbl4 called"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Def_Tbl4
		set				goto
						call				@B								#//@[JxŒ`ꂽV[PXĂяo
						call				@F								#//@[JxŒ`ꂽV[PXĂяo
		end
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
@@																		#//'def'ȗ@[JxgpăV[PX`
		PrintStr			"@@ below Def_Tbl4 called"
end
#//=============================================================================
#//'end'߂̃Tv
#//End
#//'end'߂̌ʃeXg͗L܂B
#//=============================================================================
#//'on goto'߂̃Tv
OnGoto
		Trg1								.Trg1								#//e[uOŃV[PX`
		Trg2				goto												#//e[uŃV[PX`Bgoto͏ȗsB
						PrintStr			"ok"
		end
	on	Trg3				goto				.Trg3								#//e[uOŃV[PX`BonȗȂB
	on	Trg4				goto												#//e[uŃV[PX`BonȗȂB
						PrintStr			"ok"
		end
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1
		PrintStr			"ok"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg3
		PrintStr			"ok"
end
#//=============================================================================
#//'on exec'߂̃Tv
OnExec
		Trg1				exec				.Trg1								#//e[uOŃV[PX`
		Trg2				exec												#//e[uŃV[PX`B
						PrintStr			"ok"
		end
	on	Trg3				exec				.Trg3								#//e[uOŃV[PX`BonȗȂB
	on	Trg4				exec												#//e[uŃV[PX`BonȗȂB
						PrintStr			"ok"
		end
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1
		PrintStr			"ok"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg3
		PrintStr			"ok"
end
#//=============================================================================
#//'lock','unlock'߂̃Tv(gotoo[W)
Lock1
		#//hCo[B(NĉB)
		Trg1				goto
						SnrSeqCh_SetTblNo		1,table Lock1
						#//Pȗ
						PrintStr			"---"
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_2							#//bN܂(10-1)t[x.Trg1_2JnB
						wait				100
						#//AbNtV[PXN̗
						PrintStr			"---"
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_3							#//unlocktĂ̂ŋIɃAbNđ.Trg1_3JnB
						wait				100
						#//AbN݂̂̃gK̗
						PrintStr			"---"
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_4							#//IɃAbN݂̂sB
						SnrSeqCh_SendTrig		1,trig Trg1_2							#//ɃAbNĂ̂ő.Trg1_2JnB
						#//
						PrintStr			"---"
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//(10-1)t[xĊJnAV10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_2							#//(10-1)t[xĊJnB
		end
		#//eXgpB(ڋNȂŉB)
		Trg1_1a				goto				.Trg1_1				lock	10			#//lockȗȂB	ǂłB
		Trg1_1b				goto				.Trg1_1					10			#//lockȗ鏑B		
		Trg1_2				goto				.Trg1_2
		Trg1_3		unlock		goto				.Trg1_3
		Trg1_4		unlock
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		PrintStr			".Trg1_1 called"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_2
		PrintStr			".Trg1_2 called"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_3
		PrintStr			".Trg1_3 called"
end
#//=============================================================================
#//'lock','unlock'߂̃Tv(execo[W)
Lock2
		#//hCo[B(NĉB)
		Trg1				exec
						SnrSeqCh_SetTblNo		1,table Lock2
						#//Pȗ
						PrintStr			"---"
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_2							#//bN܂(10-1)t[x.Trg1_2JnB
						wait				100
						#//AbNtV[PXN̗
						PrintStr			"---"
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_3							#//unlocktĂ̂ŋIɃAbNđ.Trg1_3JnB
						wait				100
						#//AbN݂̂̃gK̗
						PrintStr			"---"
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_4							#//IɃAbN݂̂sB
						SnrSeqCh_SendTrig		1,trig Trg1_2							#//ɃAbNĂ̂ő.Trg1_2JnB
						#//
						PrintStr			"---"
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_1a							#//(10-1)t[xĊJnAV10t[bNB
						wait
						SnrSeqCh_SendTrig		1,trig Trg1_2							#//(10-1)t[xĊJnB
		end
		#//eXgpB(ڋNȂŉB)
		Trg1_1a				exec				.Trg1_1				lock	10			#//lockȗȂB	ǂłB
		Trg1_1b				exec				.Trg1_1					10			#//lockȗ鏑B		
		Trg1_2				exec				.Trg1_2
		Trg1_3		unlock		exec				.Trg1_3
		Trg1_4		unlock
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		PrintStr			".Trg1_1 called"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_2
		PrintStr			".Trg1_2 called"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_3
		PrintStr			".Trg1_3 called"
end
#//=============================================================================
#//'exit'߂̃Tv
Exit
		Trg1								.Trg1
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1
		PrintStr			"before .Trg1_1"										#//s܂B
		call				.Trg1_1
		PrintStr			"after  .Trg1_1"										#//s܂B
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		PrintStr			"before .Trg1_2"										#//s܂B
		call				.Trg1_2
		PrintStr			"after  .Trg1_2"										#//s܂B
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_2
		PrintStr			"before exit"											#//s܂B
		exit
		PrintStr			"after  exit"											#//s܂B
end
#//=============================================================================
#//'escape'߂̃Tv
Escape
		#//hCo[B(NĉB)
		Trg1				goto
						SnrSeqCh_SetTblNo		1,table Escape
						SnrSeqCh_SendTrig		1,trig Trg1_1
						wait				15
						SnrSeqCh_Stop			1
		end
		#//eXgpB(ڋNȂŉB)
		Trg1_1								.Trg1_1
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		PrintStr			"A"				ensure								#//
		wait				10												#//Ag~bN
		PrintStr			"B"				ensure								#//
		escape
		PrintStr			"C"				ensure								#//
		wait				10												#//Ag~bN		#//̃^C~OŒ~ƁA
		PrintStr			"D"				ensure								#//
		escape																			#//܂ŎsďI܂Bescape΍Ō܂Ŏs܂B
		PrintStr			"E"				ensure								#//
		wait				10												#//Ag~bN
		PrintStr			"F"				ensure								#//
end
#//=============================================================================
#//'wait'߂̃Tv
#//Wait
#//'wait'߂̌ʃeXg͗L܂B
#//=============================================================================
#//'wait for'߂̃Tv
WaitFor
		#//hCo[B(NĉB)
		Trg1				goto
						SnrSeqCh_SetTblNo		1,table WaitFor
						SetVar				"Foo",0
						SnrSeqCh_SendTrig		1,trig Trg1_1
						wait				10
						SetVar				"Foo",1
						wait				100
						SnrSeqCh_SendTrig		1,trig Trg1_2
						wait				10
						SetVar				"Foo",0
		end
		#//eXgpB(ڋNȂŉB)
		Trg1_1								.Trg1_1
		Trg1_2								.Trg1_2
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		wait				GetVar("Foo")											#//uwait for GetVar("Foo")vƏĂłB֐Ɉꍇ́u()vĂȂĂ\܂B
		PrintStr			".Trg1_1 ok"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_2
		wait				not GetVar("Foo")										#//uwait for not GetVar("Foo")vƏĂłB
		PrintStr			".Trg1_2 ok"
end
#//=============================================================================
#//'fork','join'߂̃Tv
Fork
		#//hCo[B(NĉB)
		Trg1				goto
						SnrSeqCh_SetTblNo		1,table Fork
						SnrSeqCh_SendTrig		1,trig Trg1_1
		end
		#//eXgpB(ڋNȂŉB)
		Trg1_1								.Trg1_1
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		fork
						fork
										repeat				5
														PrintStr				"              Child2"
														wait					30
										end
						end
						repeat				5
										PrintStr				"       Child1"
										wait					20
						end
		end
		repeat				5
						PrintStr				"Parent"
						wait					10
		end
		join
		PrintStr			"ok"
end
#//=============================================================================
#//'hide'߂̃Tv
Hide
		#//hCo[B(NĉB)
		Trg1				goto
						SnrSeqCh_SetTblNo		1,table Hide
						SnrSeqCh_SendTrig		1,trig Trg1_1
						wait				not SnrSeqCh_GetStat(1)
						PrintStr			"ok"
						wait				100
		end
		#//eXgpB(ڋNȂŉB)
		Trg1_1								.Trg1_1
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		repeat				5
						PrintStr			"pre hide"
						wait				10
		end
		hide
		wait
		repeat				5
						PrintStr			"post hide"
						wait				10
		end
end
#//=============================================================================
#//'goto'߂̃Tv
Goto
		Trg1				.Trg1
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1
		PrintStr			"before call"
		call				.Trg1_1												#//Ăяogoto߂X^bNZbĝŁAcall͖߂܂B
		PrintStr			"after  call"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		PrintStr			"before goto"
		goto				.Trg1_2
		PrintStr			"after  goto"											#//ɂ͗܂B
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_2
		PrintStr			"ok"
end
#//=============================================================================
#//'call'߂̃Tv
Call
		Trg1				.Trg1
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1
		PrintStr			"before call 1"
		call				.Trg1_1
		PrintStr			"after  call 1"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		PrintStr			"before call 2"
		call				.Trg1_2
		PrintStr			"after  call 2"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_2
		PrintStr			"ok"
end
#//=============================================================================
#//'if'߂̃Tv
If
		Trg1				goto
						SetVar				"Foo1",1
						SetVar				"Foo2",1
						SetVar				"Foo3",1
						SetVar				"Bar",0
						call				.Trg1_1
						SetVar				"Foo1",0
						call				.Trg1_1
						SetVar				"Foo2",0
						call				.Trg1_1
						SetVar				"Foo3",0
						call				.Trg1_1
		end
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		if				GetVar("Foo1")
						PrintStr			"Foo1"
		elif				GetVar("Foo2")											#//elifubN͖Ă\܂B
						PrintStr			"Foo2"
		elif				GetVar("Foo3")
						PrintStr			"Foo3"
						if				GetVar("Bar")							#//lXg̗
										PrintStr		"Bar is true"
						else
										PrintStr		"Bar is false"
						end
		else																#//elseubN͖Ă\܂B
						PrintStr			"No match"
		end
end
#//=============================================================================
#//'if not'߂̃Tv
IfNot
		Trg1				goto
						SetVar				"Foo1",0
						SetVar				"Foo2",0
						SetVar				"Foo3",0
						SetVar				"Bar",1
						call				.Trg1_1
						SetVar				"Foo1",1
						call				.Trg1_1
						SetVar				"Foo2",1
						call				.Trg1_1
						SetVar				"Foo3",1
						call				.Trg1_1
		end
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		if				not GetVar("Foo1")
						PrintStr			"Foo1"
		elif				not GetVar("Foo2")										#//elifubN͖Ă\܂B
						PrintStr			"Foo2"
		elif				not GetVar("Foo3")
						PrintStr			"Foo3"
						if				not GetVar("Bar")						#//lXg̗
										PrintStr		"Bar is false"
						else
										PrintStr		"Bar is true"
						end
		else																#//elseubN͖Ă\܂B
						PrintStr			"No match"
		end
end
#//=============================================================================
#//'unless'߂̃Tv
#//̗ł͎܂񂪁A'unless not'\łB
Unless
		Trg1				goto
						SetVar				"Foo",0
						SetVar				"Bar",1
						call				.Trg1_1
						SetVar				"Foo",1
						call				.Trg1_1
		end
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		unless				GetVar("Foo")
						PrintStr			"Foo"
		else																#//elseubN͖Ă\܂B
						PrintStr			"No match"
						unless				GetVar("Bar")							#//lXg̗
										PrintStr		"Bar is false"
						else
										PrintStr		"Bar is true"
						end
		end
end
#//=============================================================================
#//'case of'߂̃Tv
CaseOf
		Trg1				goto
						SetVar				"Foo",1
						SetVar				"Bar",1
						call				.Trg1_1
						SetVar				"Foo",2
						call				.Trg1_1
						SetVar				"Foo",3
						call				.Trg1_1
		end
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		case				GetVar("Foo")											#//ucase GetVar("Foo") ofvƏĂłB
		1
						PrintStr			"Foo is 1"
		2
						PrintStr			"Foo is 2"
						case				GetVar("Bar")							#//lXg̗
						1
										PrintStr			"Bar is 1"
						2
										PrintStr			"Bar is 2"
						else
										PrintStr			"No match"
						end
		else
						PrintStr			"No match"
		end
end
#//=============================================================================
#//'repeat','break'߂̃Tv
Repeat
		#//hCo[B(NĉB)
		Trg1				goto
						SnrSeqCh_SetTblNo		1,table Repeat
						#//repeat̃eXg
						SnrSeqCh_SendTrig		1,trig Trg1_1
						wait				10
						SnrSeqCh_Stop			1								#//~
						wait				100
						#//ibreak̃eXg
						SnrSeqCh_SendTrig		1,trig Trg1_2
						wait				not SnrSeqCh_GetStat(1)
						wait				100
						#//ibreak̃eXg
						SnrSeqCh_SendTrig		1,trig Trg1_3
						wait				not SnrSeqCh_GetStat(1)
						#//callłbreak̃eXg
						SnrSeqCh_SendTrig		1,trig Trg1_4
						wait				not SnrSeqCh_GetStat(1)
						#//Lrepeat̃eXg
						SnrSeqCh_SendTrig		1,trig Trg1_4
						wait				not SnrSeqCh_GetStat(1)
		end
		#//eXgpB(ڋNȂŉB)
		Trg1_1								.Trg1_1
		Trg1_2								.Trg1_2
		Trg1_3								.Trg1_3
		Trg1_4								.Trg1_4
		Trg1_5								.Trg1_5
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		PrintStr			".Trg1_1 start"
		repeat
						wait
		end
		PrintStr			".Trg1_1 end"											#//ɂ͗܂B
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_2
		PrintStr			".Trg1_2 start"
		SetVar				"Foo",10
		repeat
						unless				GetVar("Foo")
										break								#//ibreak̗Bubreak 1vƏĂłB
						end
						AddVar				"Foo",-1 & 255
						wait
		end
		PrintStr			".Trg1_2 end"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_3
		PrintStr			".Trg1_3 start"
		SetVar				"Foo",10
		repeat
						repeat
										unless				GetVar("Foo")
														break 2				#//ibreak̗B̗łrepeatX^bNiȂ̂Łubreak 3v̓G[ɂȂ܂B
										end
										AddVar				"Foo",-1 & 255
										wait
						end
		end
		PrintStr			".Trg1_3 end"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_4
		PrintStr			".Trg1_4 start"
		SetVar				"Foo",10
		repeat
						call				.Trg1_4_1
						AddVar				"Foo",-1 & 255
						wait
		end
		PrintStr			".Trg1_4 end"
end
.Trg1_4_1
		unless				GetVar("Foo")
						break												#//callłbreak̗Bbreak߂repeatX^bN𐔂̂callł֌WL܂B̗͈ibreakłibreakłlłB
		end
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_5
		PrintStr			".Trg1_5 start"
		repeat				10												#//̗ł͎܂񂪁ALrepeatɑ΂Ăbreak߂́Arepeat̗ƓlɎgpo܂B
						wait
		end
		PrintStr			".Trg1_5 end"
end
#//=============================================================================
#//'while','while not','until','until not'߂̃Tv
While
		#//hCo[B(NĉB)
		Trg1				goto
						SnrSeqCh_SetTblNo		1,table While
						SetVar				"Foo",1
						SnrSeqCh_SendTrig		1,trig Trg1_1
						#//while߂̃eXg
						wait				10
						SetVar				"Foo",0
						#//while not߂̃eXg
						wait				10
						SetVar				"Foo",1
						#//until not߂̃eXg
						wait				10
						SetVar				"Foo",0
						#//until߂̃eXg
						wait				10
						SetVar				"Foo",1
		end
		#//eXgpB(ڋNȂŉB)
		Trg1_1								.Trg1_1
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		while				GetVar("Foo")
						wait
		end
		PrintStr			"while ok"
		while				not GetVar("Foo")
						wait
		end
		PrintStr			"while not ok"
		until				not GetVar("Foo")
						wait
		end
		PrintStr			"until not ok"
		until				GetVar("Foo")
						wait
		end
		PrintStr			"until ok"
end
#//=============================================================================
#//'act'߂̃Tv
Act
		#//hCo[B(NĉB)
		Trg1				goto
						SnrSeqCh_SetTblNo		1,table Act
						#//̃gKŊ荞ޗB
						SnrSeqCh_SendTrig		1,trig Trg1_1
						wait				5
						SnrSeqCh_SendTrig		1,trig Trg1_2
						wait				not SnrSeqCh_GetStat(1)
						#//IȒ~Ŋ荞ޗB
						SnrSeqCh_SendTrig		1,trig Trg1_1
						wait				5
						SnrSeqCh_Stop			1
						wait				not SnrSeqCh_GetStat(1)
						#//clrgKŊ荞ޗB
						SnrSeqCh_SendTrig		1,trig Trg1_1
						wait				5
						SnrSeqCh_SetTbl			1,"NULL"
						wait				not SnrSeqCh_GetStat(1)
						#//
						SnrSeqCh_SetTblNo		1,table Act
						#//~repeat𔲂B
						SnrSeqCh_SendTrig		1,trig Trg1_3
						wait				5
						SnrSeqCh_SendTrig		1,trig Trg1_2
						wait				not SnrSeqCh_GetStat(1)
						#//~while𔲂B
						SnrSeqCh_SendTrig		1,trig Trg1_4
						wait				5
						SnrSeqCh_SendTrig		1,trig Trg1_2
						wait				not SnrSeqCh_GetStat(1)
						#//~wait for𔲂B
						SnrSeqCh_SendTrig		1,trig Trg1_5
						wait				5
						SnrSeqCh_SendTrig		1,trig Trg1_2
						wait				not SnrSeqCh_GetStat(1)
						#//actŌĂяo֐̖߂lwaitƂȂ鎖B
						SnrSeqCh_SendTrig		1,trig Trg1_6
						wait				not SnrSeqCh_GetStat(1)
		end
		#//eXgpB(ڋNȂŉB)
		Trg1_1								.Trg1_1
		Trg1_2								.Trg1_2
		clr								.Trg1_2
		Trg1_3								.Trg1_3
		Trg1_4								.Trg1_4
		Trg1_5								.Trg1_5
		Trg1_6								.Trg1_6
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_1
		act				PrintStr(".Trg1_1 ok")										#//ǂłłBꍇ́u()vĂȂĂ\܂B
		PrintStr			".Trg1_1 ok"											#//
		wait				10
		PrintStr			"A"
		wait				10												#//̓rŗLȃgKMAV[PX؂ւÃ݂V[PX~ĂEEE
		PrintStr			"B"				ensure								#//Ō܂(ɂescape܂)A̓rɂensuret߂͎s܂B
		wait				10
		PrintStr			"C"
		wait				10
		PrintStr			"D"				ensure
		wait				10
		PrintStr			"E"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_2
		PrintStr			".Trg1_2 ok"
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_3
		PrintStr			".Trg1_3 start"			ensure
		repeat				100												#//5ڂŊ荞܂ĔB
						PrintStr			"in repeat"			ensure
						wait
		end
		PrintStr			".Trg1_3 end"			ensure
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_4
		PrintStr			".Trg1_4 start"			ensure
		SetVar				"Foo",1
		while				GetVar("Foo")											#//5ڂŊ荞܂ĔB
						PrintStr			"in repeat"			ensure
						wait
		end
		PrintStr			".Trg1_4 end"			ensure
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_5
		PrintStr			".Trg1_5 start"			ensure
		SetVar				"Foo",1
		wait				not GetVar("Foo")										#//5t[Ŋ荞܂ĔB
		PrintStr			".Trg1_5 end"			ensure
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
.Trg1_6
		SetVar				"Foo",0
		PrintStr			"before return 0"
		GetVar				"Foo"												#//߂l0Ȃ̂wait 0ƂȂB
		PrintStr			"after  return 0"
		SetVar				"Foo",1
		PrintStr			"before return 1"
		GetVar				"Foo"												#//߂l1Ȃ̂wait 1ƂȂB
		PrintStr			"after  return 1"
		SetVar				"Foo",10
		PrintStr			"before return 10"
		GetVar				"Foo"												#//߂l10Ȃ̂wait 10ƂȂB
		PrintStr			"after  return 10"
		act				SetVar("Foo",10)
		act				PrintStr("before return 10")
		act				GetVar("Foo")											#//߂l10Ȃ̂wait 10ƂȂB(actȗĂȂĂɈႢ͗L܂B)
		act				PrintStr("after  return 10")
end
