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
end

print xpseVersionString
print xpseCompileTimestampString
print xpseNumSourceCodeLinesLong
waitkey

include on.pcu = on.
include ScrollArea.Inc
include scintilla.ph

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
end

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

endproc

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

    return a+b+c

endproc

proc test1(int i)

    proc test2

        proc test3

            print i// kennt i nicht mehr! sei denn wird in test2 (re)deklariert

        endproc

        print i// kennt i aus aufrufender proc!

    endproc

endproc

print test1(5)
waitkey