Errhandler: ' needed for ser.open% (ser$)

errorNum = Err: Resume Next



Function ser.open% (ser$)

  On Error GoTo Errhandler

  Open ser$ + ",N,8,1,BIN,CS0,DS0,RB8192" For Random As #88

  If errorNum = 0 Then serBytes$ = ser.read$

  On Error GoTo 0

  ser.open% = errorNum

End Function



Function ser.close$ ()

  ser.close$ = ser.read$

  Close #88

End Function



Sub ser.send (bytes$)

  Dim b As String * 1

  For i% = 1 To Len(bytes$)

    b = Mid$(bytes$, i%, 1)

    Put #88, , b

  Next i%

End Sub



Function ser.read$ ()

  Dim b As String * 1: resp$ = ""

  Do While Loc(88)

    Get #88, , b: resp$ = resp$ + b

  Loop

  ser.read$ = resp$

End Function 

(03-05-2024, 03:01 AM)Willi Grundmann Wrote: The version of Inform, which I used before only allowed to set up one window. For my hobby project, I would need several windows. Can the latest version of Inform do more than one window? If not then I would like to exchange data between the programs of several windows  either via files on the HDD or a RAM disk. Any reply and advice on this topic is greatly appreciated.