'..............................................................................
' Summary A simple hello world - an introduction to JScript language.
' Copyright (c) 2003 by Altium Limited
'..............................................................................

'..............................................................................
sub HelloWorld
    ShowMessage("Hello world!")
end sub
'..............................................................................

'..............................................................................
sub ShowAParametricMessage(S)
dim DefaultMessage

    DefaultMessage = "Hello World!"

    If S = "" Then
        ShowMessage(DefaultMessage)
    Else
        ShowMessage(S)
    End If
end sub
'..............................................................................

'..............................................................................