.ENABLE SUBSTITUTION
MAC ,'P1'/-SP='P1'
VFC TT4:0
PIP TT4:='P1'.LST
PIP 'P1'.LST;*/DE