XPSE

' Hauptprogramm

Declare hFileMap&
Declare Austauschpuffer#
Dim Austauschpuffer#, 1000

' the Tauschpuffer becomes under the names "Tauscher" already to whom Prozessen laid out.
hFileMap& = Create("FileMap", "Tauscher", 1000)
' Austauschdatei with Puffer contact
Austauschpuffer# = FileMap("Map", hFileMap&)
' data into
String Austauschpuffer#,0 = "Init"
' and To
FileMap("Close", hFileMap&)


' then go processes launched, also nProcs imply can
Shell "processes.exe  -p1"
'Shell "processes.exe  -p2 -p3"

' then becomes a Loop aufgebaut and therein the Send and receive gesteuert.
Cls


While 1
   Case Abbruchkriterium% : BREAK
   If DatenEmpfangen%
      hFileMap& = FileMap("Open", "Tauscher")
      Austauschpuffer# = FileMap("Map", hFileMap&)
      Print "receptions: "; String$(Austauschpuffer#,0)
      FileMap("Close", hFileMap&)
   EndIf
   If DatenSenden%
      hFileMap& = FileMap("Open", "Tauscher")
      Austauschpuffer# = FileMap("Map", hFileMap&)
      String Austauschpuffer#,0 = "Init"
      FileMap("Close", hFileMap&)
   EndIf
EndWhile
Dispose Austauschpuffer#
End

' processes

' The Parameter process
Declare p$, p1%, p2%, p3%
p1% = 0
p2% = 0
p3% = 0
WhileLoop 0, %ParCount
   p$ = Par$(&Loop)
   Case Upper(p$) = "-P1" : p1% = 1
   Case Upper(p$) = "-P2" : p2% = 1
   Case Upper(p$) = "-P3" : p3% = 1
EndWhile

' ........example only with a Process........

' a Puffer set up
Declare hFM&
Declare Puffer#
Dim Puffer#, 1000

Declare data$

hFM& = FileMap("Open", "Tauscher")
Puffer# = FileMap("Map", hFM&)
// While 1
//    If Abbruchkriterium% : BREAK
//    ' data take in
//    String Puffer#,0 = nProc1() 'data to that Send
// EndWhile

If p1%
   data$ = nProc1()
ElseIf p2%
   data$ = nProc2()
ElseIf p3%
   data$ = nProc3()
Else
   data$ = "If you none Process angibst, get' too no data."
ENDPROC
String Puffer#,0 = data$   ' data to that Send
FileMap("Close", hFM&)

nProc proz1
' ...
ENDPROC

nProc proz2
' ...
ENDPROC

nProc proz3
' ...
ENDPROC

Dispose Puffer#
End