Sorry, I fixed bugs....

LOCAL lii
LOCAL ARRAY laStack(1)
liMaxLevel=ProgramStack(@laStack)
FOR lii=1 TO liMaxLevel
    ?laStack(lii,1),laStack(lii,2)
NEXT

PROCEDURE ProgramStack(laProg)
LOCAL lii
DIME laProg(PROGRAM(-1)-1,2)
FOR lii=ALEN(laProg,1) TO 1 STEP -1
    STORE PROGRAM(lii) TO laProg(lii,1)
    STORE SYS(16,lii) TO laProg(lii,2)
NEXT
RETURN ALEN(laProg,1)

>Martin,
>
>Can you explain this to me. When I call the procedure what parameter do I pass? Passing no parameter returs a number not a program name.