Example - Open Statement

1. Sub Main ()

   1. Open "TESTFILE" For Output As #1' Open to write file.

      userData1$ = InputBox("Enter your own text here")

      userData2$ = InputBox("Enter more of your own text here")

      Write #1, "This is a test of the Write # statement."

      Write #1,userData1$, userData2

      Close #1

      Open "TESTFILE" for Input As #2' Open to read file.

      Do While Not EOF(2)

      1. Line Input #2, FileData' Read a line of data.

         PRint FileData' Construct message

      Loop

      Close #2' Close all open files.

      MsgBox "Testing Print Statement"' Display message.

      Kill "TESTFILE"' Remove file from disk.

   End Sub