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

#### Example:

Sub Main()

' demo If...Then...Else

Dim msg as String

Dim nl as String

Dim someInt as Integer

nl = Chr(10)

msg = "Less"

someInt = 4

If 5 > someInt Then msg = "Greater" : Beep

MsgBox “” & msg

If 3 > someInt Then

msg = "Greater"

Beep

Else

msg = "Less"

End If

MsgBox “” & msg

If someInt = 1 Then

msg = "Spring"

ElseIf someInt = 2 Then

msg = "Summer"

ElseIf someInt = 3 Then

msg = "Fall"

ElseIf someInt = 4 Then

msg = "Winter"

Else

msg = "Salt"

End If

MsgBox “” & msg

End Sub