Conoscere in tempo reale il file-device "pts" dell'ultimo Terminale appena aperto

Per conoscere in tempo reale il file-device "pts" dell'ultimo Terminale appena aperto, ci serviremo di un ciclo:

Public Sub Main()

 Dim fl As File
 Dim b As Byte
 Dim s As String
 
' Verifichiamo innanzitutto quanti file 'pts' ono presenti in '/dev/pts':
  b = Dir("/dev/pts", Null, gb.Device).Count

  Do
    Wait 0.01
  Loop Until b < Dir("/dev/pts", Null, gb.Device).Count
 
' L'ultimo file 'pts' creato è posizionato nel 1° elemento del vettore generato dalla funzione "Dir()":
  s = Dir("/dev/pts", Null, gb.Device)[0]

  Print "Il file-speciale 'pts' del Terminale appena aperto è: "; s

' Scriviamo qualcosa nel Terminale che è stato appena aperto:
  fl = Open "/dev/pts" &/ s For Write
  
  Write #fl, "Questa è\nuna prova !\n"
      
  fl.Close
  
End