SECID= " " USERPASS= " " gcSTATUS= " " gcUSER= " " && Requestor Variables gcDEPT= " " lAREFLAG= " " && Accept Add or Edit Flag (Rece) FOR I=1 TO 50 && CLEAR character array caPARTNO(I)= " " ENDFOR prg2exe= "frmTABTO" && Program to Execute STORE "\vfpapps\t2\" TO SECpath && Security Path DO Form ..\t2\t2.scx WITH prg2exe,SECpath IF SECID= "ARCHIVE" ... USERPASS= " " ENDIF IF USERPASS= " " && BAD Login! (do nothing) ELSE DO MENUTOOL.MPR DO Form frmTABTO READ EVENT && read ENDIF DO CLEANUP ON SHUTDOWN ***where T2 is a model (customized login) form created from form generator