Current Help System: PC-DMIS BASIC (View Core Help)

#### Example:

Sub Main ()

Dim LWord, Msg, RWord, SpcPos, UsrInp ' Declare variables.

Msg = "Enter two words separated by a space."

UsrInp = InputBox(Msg) ' Get user input.

print UsrInp

SpcPos = InStr(1, UsrInp, " ") ' Find space.

If SpcPos Then

LWord = Left(UsrInp, SpcPos - 1) ' Get left word.

print "LWord: "; LWord

RWord = Right(UsrInp, Len(UsrInp) - SpcPos) ' Get right word.

Msg = "The first word you entered is " & LWord

Msg = Msg & "." & " The second word is "

Msg = "The first word you entered is <" & LWord & ">"

Msg = Msg & RWord & "."

Else

Msg = "You didn't enter two words."

End If

MsgBox Msg ' Display message.

MidTest = Mid("Mid Word Test", 4, 5)

Print MidTest

End Sub