John,

program() can give you everything you are needing:

test1()

function test1()

test2()
return

function test2()
? program(-1)
for i = 1 to program(-1)
   ? program(i)
endfor
return

>This did it! The program() function was just giving me the control, whereas sys(16) is giving me the control AND the program name.