EDIT x25.xprot3s,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Mon)(BigB)/p1)2
E
prep t#b,xprot2#imp,q,i,b,clean
dIMP11 xprot2#IMP/xprot2#REL,xprot2#lst
dLINK11
xprot2#REL
.STACK 2000
.STREAMS 1
.NAME xpr1
.stackseg 6
.END
xpr2#OBJ
destroy xprby
rename xpr2#obj,xprby

dalist11 xprot2#imp/l2
list l2,.lp23