! nb: source now on amdahl *************************************
EDIT x25_xprot3s,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Fast)/p1)2
E
prep t#b,xprot2#imp,f,k,clean
IMP11 xprot2#IMP/xprot2#REL,xprot2#lst

LINK11
ERCM09.I77PERM
xprot2#REL
.STACK 2000
.STREAMS 1
.NAME xpr1
.END
xpr2#OBJ
destroy xprky
rename xpr2#obj,xprky

alist11 xprot2#imp/l2
list l2,.lp23