.ERROR ? .MIC SET NO LC .LET B="UUOSYM,MONGEN," .IF ($B.[$A,1]=",") .GOTO CTL .R TECO =EW'A.CTL^[ERCOMCTL.TEC^[Y<-1-^N;A>HXYHKI'A^[MY^[^[ .SU/UNIQUE:0/TIME:0:30:0/BATLOG:SUPER 'A.CTL,LOGS: .MIC RETURN CTL::.PA=BASE: .SU/UNIQUE:0/TIME:0:30:0/BATLOG:SUPER 'A,LOGS: