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// shows 20

proc Test

    global mydata
    return mydata.Test1

endproc

myapp.myui.worth1="Hallo"
myapp.myui.worth2="Welt"
print Test

proc Test

    global myapp// More not necessary
    return myapp.myui.worth1

endproc

mydata.Test1=10
mydata.Test2=20
print Test// shows 20

proc Test

    global mydata
    return mydata.Test1

endproc

// g for single globale variables to Use in Procedures
g.ganzzahl = 7
g.boolsch = true
g.zeichenkette = " Hallöchen "

something = "abc" // becomes in Procedures not used
worth = 47.11

testoop worth

proc testoop w     // w becomes as Parameter "by value" transfer
 global g          // for all global g. ... variables
 sehrklein = 0.01  // local Variable in the procedure
 small = g.ganzzahl + sehrklein
 print g.zeichenkette + w + " > " + small + " is " + g.boolsch
endproc