* Delete history from surfaces, (C) EMA 1997-1999          LM:17.02.1999
INTERNAL 
  INTEGER  ER,STK,END
  SUR      SUR
PROC 
  LOAD GUMSEL 1,4,'*SUR',4,0,0,0,STK,ER
  IF(ER NE 0)OR(STK EQ 0)THEN EOE
  MSGCNTL 'Delete SURF2 history ...'
  DO
    LOAD GUSPOP STK,SUR,END,ER
    LOAD GCWSIP 1,SUR,ER 
  WHILE(END EQ 0)
LABEL EOE
  BEEP
END