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

Example:

Const NumberOfFiles = 3

Sub Main ()

Dim Msg ' Declare variable.

Call MakeFiles() ' Create data files.

Msg = "Several test files have been created on your disk. You may see "

Msg = Msg & "them by switching tasks. Choose OK to remove the test files."

MsgBox Msg

For I = 1 To NumberOfFiles

Kill "TEST" & I ' Remove data files from disk.

Next I

End Sub

Sub MakeFiles ()

Dim I, FNum, FName ' Declare variables.

For I = 1 To NumberOfFiles

FNum = FreeFile ' Determine next file number.

FName = "TEST" & I

Open FName For Output As FNum ' Open file.

Print #FNum, "This is test #" & I ' Write string to file.

Print #FNum, "Here is another "; "line"; I

Next I

Close ' Close all files.

Kill FName

End Sub