#Include "bipipe.bi"

const CrLf as string = Chr(13,10)

Dim As String g, zeitvor, cmd

cmd = "./bipipeempf"
Dim As BiPipe Ptr be1 = new BiPipe(cmd)

cmd = "./bipipeempf2"
Dim As BiPipe Ptr be2 = new BiPipe(cmd)


? be1->read();"< Programm 1"
? be2->read();"< Programm 2"

be1->write("irgendwas"&CrLf)
be2->write("nochmal"&CrLf)

? be1->read();"< Programm 1"
? be2->read();"< Programm 2"

be1->write("was ****** anderes")
be2->write("nochmal ########## was" & CrLf)

? be1->read();"< Programm 1"
? be2->read();"< Programm 2"
? be1->read();"< Programm 1"
? be2->read();"< Programm 2"

Dim As Double zeitmerken = Timer
Do
   If Time <> zeitvor Then
      ? Time;"     ";
      be1->write(Time & CrLf)
      be2->write(Time & CrLf)

      g = be1->read() + "<"
      ? g;"#"

      g = be2->read()
      ? g

      zeitvor = Time
   EndIf

Loop Until Timer > zeitmerken + 10
? be1->write("+" + Chr(10))
? be1->read()

delete be1
delete be2

?"ok"

Sleep