;
; ------------------------------------------------------------
;
;   PureBasic - Runtime example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

; Примечание. Этот пример не имеет особого смысла в качестве автономного 
; файла, поскольку концепция runtime (времени выполнения) позволяет разрешить доступ 
; к любой процедуре, переменной и т.д. после компиляции программы 
; (например, из xml-файла в библиотеке Dialog).


Runtime Procedure RuntimeProcedure() 
  Debug "Runtime procedure"
EndProcedure


Debug "RuntimeProcedure() address: " + GetRuntimeInteger("RuntimeProcedure()")


RuntimeVariable.i = 128
Runtime RuntimeVariable
Debug "RuntimeVariable: " + GetRuntimeInteger("RuntimeVariable")
SetRuntimeInteger("RuntimeVariable", 256)

; Изменено значение внутренней переменной
;
Debug "RuntimeVariable: " + RuntimeVariable