code = ""
code = code & "<#Module=mdlMain>" & vbCrLf
code = code & "Sub Load(cmdLine)" & vbCrLf
code = code & "    form.width = 2000" & vbCrLf
code = code & "    form.height = 2000" & vbCrLf
code = code & "    form.caption = ""Форма""" & vbCrLf
code = code & "    form.add ""text"", 1" & vbCrLf
code = code & "    form.text(1).move 15, 20, 100, 25" & vbCrLf
code = code & "    form.add ""command"", 1" & vbCrLf
code = code & "    form.command(1).move 15, 65, 100, 25" & vbCrLf
code = code & "    form.command(1).caption = ""О'кей!""" & vbCrLf
code = code & "    form.show vbModal" & vbCrLf
code = code & "End Sub" & vbCrLf
code = code & "<#Module>" & vbCrLf
code = code & "<#Form=form>" & vbCrLf
code = code & "Sub Command1_Click()" & vbCrLf
code = code & "    dict.Add ""text1"", form.text(1).Text" & vbCrLf
code = code & "    endmf" & vbCrLf
code = code & "End Sub" & vbCrLf
code = code & "Sub Form_Unload()" & vbCrLf
code = code & "    endmf" & vbCrLf
code = code & "End Sub" & vbCrLf
code = code & "<#Form>" & vbCrLf

Set LMF = CreateObject("Atomix.LangMF")
Set res = CreateObject("Scripting.Dictionary")
LMF.AddObject res, "dict"
LMF.Command code
WScript.Echo res.Item("text1")