Infinity-Profan

a=10
b=20
imprimir test

proc test

    global a, b
    volver a*b

ENDPROC

mydata.test1=10
mydata.test2=20
imprimir test// zeigt 20

proc test

    global mydata
    volver mydata.test1

ENDPROC

myapp.myui.wert1="Hallo"
myapp.myui.wert2="Welt"
imprimir test

proc test

    global myapp// mehr no notwendig
    volver myapp.myui.wert1

ENDPROC

mydata.test1=10
mydata.test2=20
imprimir test// zeigt 20

proc test

    global mydata
    volver mydata.test1

ENDPROC

// g para einzelne globale Variables a Nutzung en Prozeduren
g.ganzzahl = 7
g.boolsch = true
g.zeichenkette = " Hallöchen "

algo = "abc" // se en Prozeduren no gebraucht
wert = 47.11

testoop wert

proc testoop w     // w se como Parámetro "by value" transferencia
 global g          // para todos globalen g. ... Variables
 sehrklein = 0.01  // lokale Variable en el Procedimiento
 klein = g.ganzzahl + sehrklein
 imprimir g.zeichenkette + w + " > " + klein + " es " + g.boolsch
ENDPROC