Declare h&,hd&,ende&,b_send&,b_send1&,hFileMap&,zielfenster&
 
 declare bereich#
 dim bereich#,255
 
 Proc Prozess
    parameters hd&
    declare ende&, hFileMap&
 
    declare bereich_p#
    dim bereich_p#,255
 
    windowtitle "empfang"
    window 10,10 - 350, 200
 
    hFileMap& = Create("FileMap", "Test", 300)
    hFileMap& = FileMap("Open", "Test")
 
    ende& = 0
    UserMessages $1000
    whilenot ende&
       waitinput
 
       If %UMessage = $1000
         bereich_p# = FileMap("Map", hFileMap&)
         WhileLoop 1,254,1
           print byte (bereich_p#,&Loop)
           settext hd&,str$(byte (bereich_p#,&Loop))
        endwhile
      EndIf
    endwhile
 
    FileMap("Close", hFileMap&)
    Dispose bereich_p#
  endproc
 
 proc senden
   bereich# = FileMap("Map", hFileMap&)
   PostMessage(ZielFenster&, $1000, 0, 0)
 endproc
 
 windowtitle "send"
 window 10,300-200,200
 hd& = create("Text", %hWnd, "", 20, 10, 60, 20)
 
 b_send& = Create("Button",%hWnd,"plus", 10, 65, 80, 24)
 b_send1& = Create("Button",%hWnd,"minus", 10, 90, 80, 24)
 
 h&=pExec("|Prozess",hd&)
 sleep 200
 ZielFenster& = FindWindow("empfang")
 
 hFileMap& = Create("FileMap", "Test", 300)
 hFileMap& = FileMap("Open", "Test")
 bereich# = FileMap("Map", hFileMap&)
 
 ende& = 0
 UserMessages $1000
 whilenot ende&
     waitinput
 
     If Clicked(b_send&)
       WhileLoop 1,254,1
         byte bereich#,&Loop=&loop
       endwhile
       senden
     endif
 
     If Clicked(b_send1&)
       WhileLoop 1,254,1
         byte bereich#,&loop=254-&loop
       endwhile
       senden
     endif
 EndWhile
 
 Dispose bereich#
 end