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

KompilierenMarcaSeparación
proc mytest(long a,b,c,d,e)

    volver a+b+c

ENDPROC


*bang*

Somit kann auch innerhalb de Prozeduren sin Variablensuffixe gearbeitet voluntad, incluso el Angeben de Parametern kann sin Suffixe geschehen, y en verschachtelten Prozeduren funktioniert lo. (Sichtweite -1 pro Schachtel)
KompilierenMarcaSeparación
proc test1(int i)

    proc test2

        proc test3

            imprimir i// sabe i no mehr! sei porque se en test2 (re)deklariert

        ENDPROC

        imprimir i// sabe i de aufrufender proc!

    ENDPROC

ENDPROC

imprimir test1(5)
waitkey