Bereichsvariable an einen Process übergeben?

Declare hd&,ende&,b_text&,wert&,zielfenster&
Declare speicher#
Dim speicher#, 255


Proc Prozess
parameters hd&
declare ende&,text$,speicher#
window 100,100 - 200,200
windowtitle "bereich"


ende& = 0
UserMessages $1000
whilenot ende&
waitinput 10
If %UMessage = $1000
locate 3,5
print "        "
locate 3,5
text$=gettext$(hd&)
speicher#=val(text$)
Print Byte(speicher#,1)
endif
endwhile
endproc


windowtitle "Statusfenster"
window 100,300-200,200


b_text& = Create("Button", %hWnd,"text", 10, 50, 80, 24)


hd& = create("Text", %hWnd, "", 20, 20, 100, 20)


pExec("|Prozess", hd&)
sleep 200
ZielFenster& = FindWindow("bereich")


ende& = 0
whilenot ende&
waitinput
If Clicked(b_text&)
Byte speicher#,1 = 251
settext hd&,str$(addr(speicher#))
PostMessage(ZielFenster&, $1000, 0, 0)
EndIf
endwhile


end

Declare h&,hd&,ende&,b_send&,b_send1&,hFileMap&,zielfenster&


declare bereich#
dim bereich#,255


Proc Prozess
parameters win&, hd&
declare ende&, hFileMap&


declare bereich_p#
dim bereich_p#,255


windowtitle "empfang"
window 10,10 - 350, 200
ende& = 0


UserMessages $1000
whilenot ende&
Case GetText$(win&) = "" : ende& = 1
waitinput


If %UMessage = $1000
hFileMap& = FileMap("Open", "Test")
If hFileMap&
bereich_p# = FileMap("Map", hFileMap&)
WhileLoop 1,254,1
print byte (bereich_p#,&Loop)
settext hd&,str$(byte (bereich_p#,&Loop))
endwhile
FileMap("Close", hFileMap&)
EndIf
EndIf
endwhile


Dispose bereich_p#
endproc


proc senden
hFileMap& = FileMap("Open", "Test")
If hFileMap&
bereich# = FileMap("Map", hFileMap&)
FileMap("Close", hFileMap&)
PostMessage(ZielFenster&, $1000, 0, 0)
EndIf
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)


hFileMap& = Create("FileMap", "Test", 265)
h&=pExec("|Prozess",%HWnd, hd&)
sleep 200
ZielFenster& = FindWindow("empfang")


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