* Erase element, (C) EMA 1997                              LM:01.01.1997
INTERNAL 
  INTEGER  ER,N,J,STK
  CHAR*35  MSG0 INIT '       Erase elements, (C) Ema 1997'
  CHAR*35  MSG1 INIT 'MULTI-SEL ELEMENT // YES:END       '
  UNDEFLM  ELM
  CHAR*35  STRING,ERRMSG
PROC 
LABEL AGAIN
  SELECT MSG1//MSG0 ELM,KEY,STRING,YES,NO
  IF(KODE EQ YES)EXIT
  BLOCKIF(KODE EQ NO)THEN
    REFUSE
    MSGCNTL 'OPERATION REFUSED'
    BRANCH AGAIN
  ELSE
    ACCEPT
  ENDIF
  BLOCKIF(KODE EQ KEY)THEN
    EXEC EMASEL1 STRING,MSG0,ERRMSG,STK,N,ER
    BLOCKIF(ER EQ 0)AND(N NE 0)THEN
      LET J=0
      DO
        LOAD GUSPOP STK,ELM,J,ER
        ERASE ELM
      WHILE (J EQ 0)
      MSGCNTL 'ELEMENT(S) ERASED'
    ELSE
      BEEP
      MSGCNTL ERRMSG
    ENDIF
  ELSE
    ERASE ELM
    MSGCNTL 'ELEMENT ERASED'
  ENDIF
  BRANCH AGAIN
END