[*]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}

myProc(string s){

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

}

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

proc MYPROC

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

endproc

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