Declare Sub Reset ( )
Declare Sub Reset ( ByVal streamno As Integer )

Reset
или
Reset( streamno )

streamno

Reset, когда вызывается без аргументов, закрывает все файлы на диске.

Reset, когда вызывается с аргументом streamno, сбросит перенаправленные потоки или потоки пайпов, ассоциированные с stdin (0), или stdout (1).

Runtime ошибки:
Reset(streamno) может задать одну из следующих runtime ошибок:

(1) Illegal function call

• streamno не 0 , и не 1
  
  

(3) File I/O error

• Сброс stdin или stdout потерпел неудачу
  
  

Open "test.txt" For Output As #1
Print #1, "testing 123"
Reset

Dim x As String

'' Чтение из потока STDIN из ввода пайпа
Open Cons For Input As #1
While EOF(1) = 0
  Input #1, x
  Print """"; x; """"
Wend
Close #1

'' Сброс чтения с клавиатуры
Reset(0)

Print "Enter some text:"
Input x

'' Чтение из потока STDIN (теперь из keyboard)
Open Cons For Input As #1
While EOF(1) = 0
  Input #1, x
  Print """"; x; """"
Wend
Close #1

• Нет для Reset().
  
• Использование Reset(streamno) является новым в FreeBASIC.
  
  

• Close
  
• Open
  
• Open Cons