XProfan

declare ProfVar1% Shared'Nur globale Variablen! Keine Strings, Arrays, Bereichs- und Hashvariablen!
pbPROC TestProc()
ProfVar1%=ProfVar1%+1'die globale XProfan-Variable "ProfVar1%" ist direkt in der pbPROC verfügbar; sie wird direkt manipuliert, d.h. Änderungen sind im XProfan-Programm sichtbar

ENDPROC

ProfVar1%=1
TestProc()
print ProfVar1%'ergibt 2

pbPROC StringTest(*in,*out)
  Protected MeinString$
  MeinString$=PeekS(*in,-1,#PB_ASCII)
  PokeS(*out,"Teststring",-1,#PB_ASCII) ;Rückgabe
ENDPROC

declare s1$,s2$,s3$,uebergabe$,back#

pbPROC StringTest(*uebergabe,*out)
  Protected s1$,s2$,s3$,uebergabe$,s4$
  uebergabe$=PeekS(*uebergabe,-1,#PB_ASCII)
  s1$=PeekS(val(StringField(uebergabe$,1,"|")),-1,#PB_ASCII)
  s2$=PeekS(val(StringField(uebergabe$,2,"|")),-1,#PB_ASCII)
  s3$=PeekS(val(StringField(uebergabe$,3,"|")),-1,#PB_ASCII)
  s4$=s1$+" "+s2$+" "+s3$
  PokeS(*out,s4$,-1,#PB_ASCII)
ENDPROC

cls
s1$="String 1"
s2$="String 2"
s3$="String 3"
uebergabe$=@str$(@addr(s1$))+"|"
uebergabe$=uebergabe$+@str$(@addr(s2$))+"|"
uebergabe$=uebergabe$+@str$(@addr(s3$))
dim back#,1000 'grande genug machen
StringTest(@addr(uebergabe$),back#)
print @string$(back#,0)
dispose back#
waitinput
end

declare _Name$,_Alter%

PBGLOBAL
  Global _Name$,_Alter.i
ENDPBGLOBAL

pbPROC GetGlobalVars(*name,alter.i)
  _Name$=PeekS(*name,-1,#PB_ASCII)
  _Alter=alter
ENDPROC

pbPROC pbPROC1()
  MessageBox_(0,"pbPROC1:"+chr(13)+_Name$,str(_Alter),0)
ENDPROC

pbPROC pbPROC2()
  MessageBox_(0,"pbPROC2:"+chr(13)+_Name$,str(_Alter),0)
ENDPROC

cls
_Name$="Max Mustermann"
_Alter%="55"
GetGlobalVars(@addr(_Name$),_Alter%)
pbPROC1()
pbPROC2()
waitinput
end