.;
.;----------------------------------------------------------------------------
.;
.; CMD-program:	P U R T R U N C
.;
.; Purpose:	Purging and truncating all files in directory.
.;
.; Author:	Jan H. Belgraver
.;
.; Date:	1980
.;
.; Version:	1.2	21-Nov-84
.;
.; Modified by:	Jan H. Belgraver	28-JAN-83	JB01	V1.1
.;		For compatibility with DCL.
.;
.;		Jan H. Belgraver	21-NOV-85	JB02	V1.2
.;		1. Rename procedure from PURGTRUNC.CMD into PURTRUNC
.;		2. Disabled display to suppress @<EOF>
.;		3. Replaced PIP with SRD for purging directory
.;----------------------------------------------------------------------------
.;
.enable	 quiet								! JB01
.disable display							! JB02
	.setf	DCL							! JB01
	.if	<CLI> eq "DCL"	.sett	DCL				! JB01
.;	If current CLI is DCL reset to MCR				! JB01
	.ift	DCL	SET TERMINAL/MCR
.;
	SRD	*.*/PU/-LI/-SR						! JB02
	PIP	*.*/TR
.;
.;	If user CLI was DCL reset terminal.				! JB01
	.ift	DCL	SET /DCL=TI:
.exit