Open 例子

 Dim fileNum As Integer
 Dim cdr As String
 cdr$ = Curdrive() + "/test.txt"
' Assign the lowest available file number to fileNum.
 
 
 fileNum% = Freefile()
 Open cdr$ For Append Access Write As fileNum%
 Write #fileNum%,"how old are you" , "15"
 Print #fileNum%,"how old are you" , "15"

// print 與write 的差別是print 無雙引號 write 有雙引號
 Close
 
 fileNum%=Freefile()
 Open cdr$ For Input Access Read As filenum%
 For i%=1 To 2
  Input  #filenum%, a,b 
  Print a
  Print b
 Next