SUBROUTINE PROM_LSM
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Dispatch routine for PROM_LSM
C-
C-   NOTE: This program assumes that the momentum lookup proms are being
C-   addressed with 3 bits selecting the page and 8 bits selecting the
C-   input. If it is going to be addressed with 2 bits selecting the page and 9
C-   bits selecting the input, then code needs to be changed in the routine
C-   MOMENTUM_PROM_ADDRESS to get the address bit assignments correct, and
C-   the parameter declarations for PAGE_LENGTH in GEN_ALL_PROMS and
C-   GEN_ONE_PROM need to be changed from 256 to 512.
C-
C-   Inputs :  None
C-   Outputs : None
C-
C-   Created   12-SEP-90   by MENU_MAKER
C-   Updated  12-SEP-1990   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.PARAMS'
      INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.INC'
      CHARACTER*40 COMAND
      LOGICAL GOTOP
      LOGICAL FIRST
      DATA FIRST/.TRUE./
C----------------------------------------------------------------------
C
C       Check if a file has been loaded
C
      IF ((LSM_FILE_LOADED .EQV. .FALSE.) .AND.
     &  (LSO_FILE_LOADED .EQV. .FALSE.)) THEN
        CALL OUTMSG('1Cannot proceed without a file loaded')
        CALL PFWAIT()
        GOTO 999
      ENDIF
C
      COMAND=' '
    1 CONTINUE
      IF (COMAND.NE.'EXIT'.AND..NOT.GOTOP()) THEN
        CALL MENUDO('Prom Builder Routines ','PROM_LSM',COMAND)
        IF(COMAND.EQ.'GEN_ALL') THEN
          CALL GEN_ALL_PROMS()
        ELSEIF(COMAND.EQ.'GEN_ONE') THEN
          CALL GEN_ONE_PROM()
        ELSEIF(COMAND.EQ.'VER_ALL') THEN
          CALL VER_ALL_PROMS()
        ELSEIF(COMAND.EQ.'VER_ONE') THEN
          CALL VER_ONE_PROM()
        ELSEIF(COMAND.NE.'EXIT'.AND.COMAND.NE.'BLANK') THEN
          CALL OUTMSG('0No ACTION defined for that command'//CHAR(7))
        ENDIF
        GOTO 1
      ENDIF
  999 RETURN
      END
C