WAIT CLEAR CLEAR TYPEAHEAD DEFINE POPUP DF MESSAGE "Select Data Folder" ; PROMPT FIELD cName + " " + cExtra + STR(iID, 10) SCROLL DEFINE WINDOW DF AT 6, 6 SIZE 10, 74 NONE NOCLOSE NOFLOAT NOGROW NOZOOM ACTIVATE WINDOW DF lcPrompt = cName + " " + cExtra + STR(iID, 10) @ 0, 0 GET lcPrompt FUNCTION "&T" POPUP DF SIZE 9, 64 READ MODAL RELEASE WINDOW DF RELEASE POPUP DF