SUBROUTINE STD.MENU.PROC(PROGRAM.ID, PROGRAM.TITLE, ELEMENTS, EXECUTES)
****
*
LastUpdated... = "Rev: 14:08 30SEP87 MIS.SNA.PROG.ATM <D4.3>DEVEL 2 Z <D4.3>DEVEL>UTILITIES>BP>STD.MENU.PROC.IBAS"
*
****
*
* Description:
*    This program will handle all the generic menu operations as for
* the development system.  (DEVEL)
*
* Files affected:
*    Inputs:
*
*    Outputs:
*
*    Both:
*
****
*                           R E V I S I O N   L O G
* PR#     WHEN     WHO        WHY
* ======= ======== ========== ==========================================
* DEVEL   11AUG87  ATM        INITIAL CODING
*
****


$INSERT SYSLIB>INSERTS>STD.SUBROUTINES.INS.IBAS
$INSERT SYSLIB>INSERTS>STDDEF.INS.IBAS
$INSERT SYSLIB>INSERTS>IODEF.INS.IBAS
     PROMPT ''
     BS = ''
     CALL @STD.MENU$(PROGRAM.ID, PROGRAM.TITLE, ELEMENTS, BS)

     NUMBER.OF.ENTRIES = COUNT(EXECUTES,@FM) + (EXECUTES NE '')
     INPUT KEYPRESS, -1
     IF NOT(KEYPRESS) THEN
        PRINT BS:
     END
     SCREEN.UP = NOT(KEYPRESS)
     RESPONSE = ''
     HELP.TEXT = ''
     HELP.TEXT<4> = 'Enter a value between 1 and ':NUMBER.OF.ENTRIES:', inclusive.'
     LOOP
        CALL @STD.INPUT$(10,21, FALSE$,'','','>= 1 <= ':NUMBER.OF.ENTRIES,
           '','',HELP.TEXT,'X', RESPONSE)
     UNTIL RESPONSE MATCH '':@VM:'X'
        IF EXECUTES<RESPONSE> NE '' THEN
           EXECUTE EXECUTES<RESPONSE>
           INPUT KEYPRESS, -1
           IF NOT(KEYPRESS) THEN
              PRINT BS:
              SCREEN.UP = TRUE$
           END ELSE
              SCREEN.UP = FALSE$
           END
        END ELSE
           IF NOT(SCREEN.UP) THEN
              PRINT BS:
              SCREEN.UP = TRUE$
           END
           PRINT @(0,23):'Entry ':RESPONSE:' not implemented yet.':
        END
     REPEAT
     PRINT @(0,23):CEOL$:
     RETURN
  END