.ENABLE SUBSTITUTION
FOR 'P1'
PIP TT4:='P1'.LST
PIP 'P1'.OBJ;*/DE
PIP 'P1'.LST;*/DE