* dPROG.CMD - Initial entry and setup for dPROGRAMMER
*
CLEAR
SET TALK OFF
RESTORE FROM DPROG
IF BELLON
   ELSE
   SET BELL OFF
ENDIF
IF CONFIRMON
   SET CONFIRM ON
ENDIF
IF V24
   SET DELETE ON
ENDIF
IF USEPASS
   STORE "DSPASS" TO DSFILE
   SELECT SECONDARY
   USE &SYS&DSFILE INDEX &SYS&DSFILE&ONE
   STORE "DSPWENTR" TO FMTNAME
   SET FORMAT TO &SYS&FMTNAME
   FIND zzzzz
   DO WHILE # = 0 
      STORE "          " TO PW  
      READ
      IF PW = "   "
         ERASE
         RETURN
      ENDIF
      SET EXACT ON
      FIND &PW
      SET EXACT OFF
   ENDDO
   SET FORMAT TO SCREEN
   USE
ENDIF
STORE "DSMENU" TO COMMAND
DO &SYS&COMMAND
SET TALK ON
ERASE
QUIT
RETURN