added LSL2 stored procedures

LSL2/STPROC/WO_VERIFY_COMM.txt

@@ -0,0 +1,27 @@
+compile function wo_verify_comm(Branch)
+begin condition
+pre:
+post:
+end condition
+
+ReturnVar = 0
+declare function set_property, get_property, msg
+
+Branches = 'STATUS_CHECK'
+convert ',' to @fm in Branches
+locate Branch in Branches using @fm setting Bpos then
+   on Bpos gosub StatusCheck
+end else
+   Void = msg( '', 'Invalid Branch ':Bpos:' passed to wo_verify_comm' )
+end
+return ReturnVar
+*===========================================================================*
+StatusCheck:
+	TechSig = get_property( @window:'.TECH_SIG', 'TEXT' )
+	if ( TechSig <> '' ) then
+	   Void = set_property( @window:'.STATUS', 'VALUE', 'C' )
+	end
+return
+
+*============================================================================*
+