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

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

//strings?
string a,b,c,d,e
//schon sind a,b,c,d und e vom typ String!
//oder gleich mit Zuweisung?
string a="lol",b="bla",c,d,e="huch?"
//ein paar longs deklarieren?
long i,o,p
//oder mit zuweisung - aber als int?
int meinint=20,bla=30
//das alles klappt a) global, und b lokal in procs.
//procs haben aber parameter - diese müssten ja dann doch wieder mit suffixen angegeben werden.
//sei denn man schreib:

proc test(int i,o,p)

endproc

//geht auch:

proc test

    parameters int i,o,p

endproc

//geht auch:

proc test (int i,long h,long v,z,p,string s1,s2,s3)

endproc

mem a,b,c
oder gleich mit Dimensionierung
mem myheader=50,myfile=30

int fh:=assign("file")
print #fh,"lol"
close #fh