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

#### Example:

Rem This is a remark, and is skipped by the compiler.

Sub Main()

Dim Answer, Msg ' Declare variables.

Do

Answer = InputBox("Enter a value from 1 to 3.")

Answer = 2

If Answer >= 1 And Answer <= 3 Then ' Check range.

Exit Do ' Exit Do...Loop.

Else

Beep ' Beep if not in range.

End If

Loop

MsgBox "You entered a value in the proper range."

End Sub