XPSE

Ganz ohne jede Headerfileangabe einfach alle APIs nutzen:
Print gdi32
declare h&
h&=create("window",%desktop,"",10,10,100,100)
SetParent(h&,%hwnd)
waitinput
e

print xpseVersionString
print xpseCompileTimestampString
print xpseNumSourceCodeLinesLong
waitkey<

include on.pcu = on.
include ScrollArea.Inc
include scintilla.phre>

class undo = undo@,method1@

proc undo::undo

    print "Class qUNDOq initialized."

endproc

proc undo::method1(h&,mode&)

    print "Method1 proceed. ",h&," ",mode&

endproc

var myUndo:=new(undo)
myUndo::method1(hwnd,1)
dispose myUndo
waitkey
end

class undo = undo@,method1@,method2@

proc undo::undo(h&,mode&)

    print "Class qUNDOq initialized."
    this->method1(h&,mode&)

endproc

proc undo::method1(h&,mode&)

    print "Method1 proceed. ",h&," ",mode&
    print this->method2()

endproc

proc undo::method2

    print "Method2 proceed."
    return "Done"

endproc

cls
var myUndo:=new(undo,hwnd,1)
dispose myUndo
waitkey
end

int a=10,b=20
float d=50+a*b
print d
print b
print a
string meinstring,deinstring
meinstring:=deinstring+" jupp"
string unserstring=str$(d)+" "+meinstring
print unserstring,meinstring
waitkey

proc test(long a,b,c,d,e,string s)

    string h="argh!"

    proc luma(int a,b,c)

        int h=a*b*c
        return str$(h+b+c)+s

    endproc

    s=str$(gettickcount)
    print a,b,c
    print "Tick:",s

CompileMarkSeparation
proc mytest(long a,b,c,d,e)

    return a+b+c

endproc


*bang*

accordingly can also within Procedures without Variablensuffixe worked go, even the indicate of Parameters can without Suffixe happen, and with verschachtelten Procedures functions it. (Sichtweite -1 per box)
CompileMarkSeparation
proc Test1(int i)

    proc Test2

        proc Test3

            print i// knows i not any more! be because becomes in Test2 (re)declared

        endproc

        print i// knows i from aufrufender proc!

    endproc

endproc

print Test1(5)
waitkey