Infinity-Profan

a=10
b=20
print test

proc test

    global a, b
    return a*b

endproc

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

proc test

    global mydata
    return mydata.test1

endproc

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

proc test

    global myapp// mehr nicht notwendig
    return myapp.myui.wert1

endproc

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

proc test

    global mydata
    return mydata.test1

endproc

// g per einzelne globale Variablen zur Nutzung in Prozeduren
g.ganzzahl = 7
g.boolsch = true
g.zeichenkette = " Hallöchen "

irgendwas = "abc" // wird in Prozeduren nicht gebraucht
wert = 47.11

testoop wert

proc testoop w     // w wird als Parameter "by value" trasferimento
 global g          // per alle globalen g. ... Variablen
 sehrklein = 0.01  // lokale Variable in der Prozedur
 klein = g.ganzzahl + sehrklein
 print g.zeichenkette + w + " > " + klein + " ist " + g.boolsch
endproc