Sub Main()
	Out=Param1
	State=Param2
		
	Select Case Out
	Case 0
		MsgBox "not output 0 avaliable"
	Case 1
		Outp = Output1
	Case 2
		Outp = Output2
	Case 3
		Outp = Output3
	Case 4
		Outp = Output4
	Case 5
		Outp = Output5
	Case 6
		Outp = Output6
	Case 7
		Outp = Output7
	Case 8
		Outp = Output8
	Case 9
		Outp = Output9
	Case 10
		Outp = Output10
	Case 11
		Outp = Output11
	Case 12
		Outp = Output12
	Case 13
		Outp = Output13
	Case 14
		Outp = Output14
	Case 15
		Outp = Output15
	Case 16
		Outp = Output16
	Case 17
		Outp = Output17
	Case 18
		Outp = Output18
	Case 19
		Outp = Output19
	Case 20
		Outp = Output20
	Case Else
		MsgBox "Output must be 1-20"
	End Select
	
	If State=1 Then
		ActivateSignal(Outp)
	Else
		DeActivateSignal(Outp)
	End If
End Sub