&STACK GET &1 BCPL D
&STACK TOP
&BEGSTACK
C;//<3032;/*<3032; *
&END
&STACK FILE
XEDIT &1 &2 &3
&EXIT &RETCODE