FOR nI=1 TO 128 cPrg = PROGRAM(nI-1) IF EMPTY(PROGRAM(nI+1)) exit ENDIF ENDFOR MESSAGEBOX("The calling function was "+cPrg)