mirror of
https://github.com/PDP-10/stacken.git
synced 2026-02-15 12:16:07 +00:00
11 lines
273 B
Plaintext
11 lines
273 B
Plaintext
.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:
|