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

#### Example:

Sub Main ()

Dim Answer, Msg, NL ' Declare variables.

NL = Chr(10) ' Define newline.

CurPath = CurDir() ' Get current path.

ChDir "\"

Msg = "The current directory has been changed to "

Msg = Msg & CurDir() & NL & NL & "Press OK to change back "

Msg = Msg & "to your previous default directory."

Answer = MsgBox(Msg) ' Get user response.

ChDir CurPath ' Change back to user default.

Msg = "Directory changed back to " & CurPath & "."

MsgBox Msg ' Display results.

End Sub