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

LINK11
ERCM09.I77PERM
xprotb#REL
.STACK 2000
.STREAMS 1
.NAME xpr1b
.END
xpr1b#OBJ
destroy xpr1by
rename xpr1b#obj,xpr1by
alist11 xprotb#imp/l2
list l2,.lp23