/src/mk2/addons/demo-anything/script.vbs

 1
 2Sub pba_Init()
 3
 4  AddOn.Hint = "Tell me what I typed"
 5  AddOn.SupportsAnything = True
 6
 7End Sub
 8
 9Function pba_Parse(Args)
10Dim sz
11Dim i
12
13  If Args.Count Then
14    For i = 1 To Args.Count
15      sz = sz & Args.Item(i)
16      If i < Args.Count Then _
17	sz = sz & " "
18
19    Next
20
21  End If
22
23  MsgBox "You typed '" & sz & "'"
24
25End Function