[*]Profan

Proc Test(t1$,r&,z%)

    proc test(string t1,t2,t3,long r,int z)oder auch

        test(string t1,t2,t3,long r,int z){return blub}

string t1,t2,t3
oder auch
string t1="hallo",t2=t1,t3

myProc(string s){

    longs myRetVals
    myRetVals[0]=getTickCount
    myRetVals[1]=len(s)
    return myRetVals

}

longs myBackVals=myProc("smilie")
print myBackVals[0]
print myBackVals[1]

proc MYPROC

    PARAMETERS S$
    DECLARE MYRETVALS&[]
    MYRETVALS&[0]=&GETTICKCOUNT
    MYRETVALS&[1]=LEN(S$)
    RETURN MYRETVALS&[]

endproc

DECLARE MYBACKVALS&[]
MYBACKVALS&[]=MYPROC("smilie")
PRINT MYBACKVALS&[0]
PRINT MYBACKVALS&[1]