'Listing 28.3 28LIST03.TXT --- Zapis do pliku i odczyt z pliku

Private Sub Command1_Click()
  CNumber = FreeFile
  Open "Print.Txt" For OutPut As #Cnumber

  For X = 1 To 5 
    Print #Cnumber, X
  Next X

  Close #CNumber

  Form1.Print "Plik Print.Txt zamknity"
End Sub

Private Sub Command2_Click()
  CNumber = FreeFile
  Open "Print.Txt" For Input As #Cnumber
  Form1.Print "Plik Print.Txt otwarty"

  For X = 1 To 5 
    Input #Cnumber, Y
    Form1.Print "Odczytano " & X & " z pliku Print.Txt"
  Next X

  Close #Number

  Form1.Print "Plik Print.Txt zamknity"
End Sub
