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,