* Move highlighted elm to noshow, (C) EMA 1999             LM:12.02.1999
INTERNAL
  INTEGER  ER,I,N,J,STK
  UNDEFLM  ELM
PROC 
  LOAD GUMSEL 1,4,'*SPC',5,1,1,1,STK,ER
  BLOCKIF(ER EQ 0)AND(STK NE 0)THEN
    LET J=0
    DO
      LOAD GUSPOP STK,ELM,J,ER
      LOAD GIRHLT 1,ELM,I,ER
      IF(I EQ 1)LOAD GICSHO 1,ELM,0,ER
    WHILE (J EQ 0)
  ENDIF
END