12 lines
253 B
Text
12 lines
253 B
Text
|
Open Cons For Input As #1
|
||
|
|
' Open Cons abre los flujos de entrada (stdin) o salida (stdout) estándar
|
||
|
|
' de la consola para leer o escribir.
|
||
|
|
|
||
|
|
If Err Then
|
||
|
|
Print "Input doesn't come from tt."
|
||
|
|
Else
|
||
|
|
Print "Input comes from tty."
|
||
|
|
End If
|
||
|
|
Close #1
|
||
|
|
Sleep
|