EDIT x25_XPROTs,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Slow)/p1)2
E
prep t#b,xprot#imp,Q
IMP11 XPROT#IMP/XPROT#REL,xprot#lst

LINK11
ERCM09.I77PERM
XPROT#REL
.STACK 2000
.STREAMS 0
.NAME XPR1
.END
XPR1#OBJ
destroy xpr1sy
rename xpr1#obj,xpr1sy

alist11 xprot#imp/.lp23