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