Open Scrn [for mode] As [#]filenum As Integer

Open Scrn [for mode] as [#]filenum

или

result = Open Scrn( [for mode] as [#]filenum )

mode
filenum

Ноль (0) возвращается, если Open Err успешно завершено, в противном случае ненулевое значение возвращается, указывающее на ошибку.

Эта команда открывает консоль для ввода и вывода в виде файла, что позволяет чтение/запись из/в него с привычными файловыми командами.

Эта команда может использовать прямой доступ к консоли для скорости в некоторых реализациях, поэтому она не должна быть использована, когда ввод/вывод должны быть перенаправлены в файл или с помощью команд операционной системы.

Привычные консольные команды, такие как Color и Locate, не работают в этом режиме, потому что они не принимают номер файла.

Предложение [For Input|Output] допускается для совместимости, но игнорируется.

filenum неиспользованный(свободный) номер файла.

Неиспользуемый(свободный) номер файла можно найти с помощью FreeFile.


Runtime ошибки:
Open Cons создает одну из следующих runtime ошибок:

(1) Illegal function call

• filenumber не является свободным. Используйте FreeFile для того, чтобы найти свободный filenumber.
  
  

Dim a As String
Open Scrn For Input  As #1
Print #1,"Please write something and press ENTER"
Line Input #1,a
Print #1, "You wrote";a
Close
Sleep

• QB использовал OPEN "SCRN:" ...
  
  

• Open
  
• Open Cons