500 ! PURGE.BAS
600 !	PURGES/DELETES EXCESS FILES IN CERTAIN ACCOUNTS
700 !	(MOSTLY HOSTILE USER ACCOUNTS)
800 S=0
900 CALL "SPAWNB"("SDV DP1:",S)
1000 CALL "SPAWNB"("PIP [40,42]*.*/PU/NM",S)			! DEBRA
1100 CALL "SPAWNB"("PIP [102,5]POLOG.*/PU/NM",S)		! POLOG
1200 CALL "SPAWNB"("PIP [102,6]POLOG.*/PU/NM",S)		! POLOG
1300 CALL "SPAWNB"("PIP [102,7]ADDRESS.DAT/PU/NM",S)		! PO
1400 CALL "SPAWNB"("PIP [150,150]*.*/PU/NM",S)			! DECMATE
1500 CALL "SPAWNB"("PIP LB0:[200,11]STORAGE.TMP;*/DE/NM",S)	! HARVEY
1600 CALL "SPAWNB"("PIP DP1:[200,11]TEMP.DAT;*/DE/NM",S)	! HARVEY
1700 CALL "SPAWNB"("PIP DP1:[200,11]FOR001.DAT;*/DE/NM",S)	! HARVEY
1800 CALL "SPAWNB"("PIP [200,11]*.RNO,*.DOC/PU/NM",S)		! HARVEY
1900 CALL "SPAWNB"("PIP [200,13]*.RNO,*.DOC/PU/NM",S)		! RENATE
2000 CALL "SPAWNB"("PIP [200,22]*.RNO,*.DOC/PU/NM",S)		! SUE
2100 CALL "SPAWNB"("PIP [200,23]*.*/PU/NM",S)			! STATS
2200 CALL "SPAWNB"("PIP [200,24]*.RNO,*.DOC/PU/NM",S)		! EVELYN
2300 CALL "SPAWNB"("PIP [200,26]POLOG.*/PU/NM",S)		! RO POLOG
3000 CALL "SPAWNB"("PIP [200,27]*.RNO,*.DOC/PU/NM",S)		! ANTHEA
3200 CALL "SPAWNB"("PIP [200,33]*.RNO,*.DOC/PU/NM",S)		! D. EVANS
3300 CALL "SPAWNB"("PIP [200,50]*.RPT/PU/NM",S)			! ROSA
3500 CALL "SPAWNB"("PIP [212,100]*.*/PU/NM",S)			! KEITH
3600 CALL "SPAWNB"("PIP [212,214]*.*/PU/NM",S)			! MIKE W.
3700 CALL "SPAWNB"("PIP [213,100]TEMPNAME.TMP;*/DE/NM",S)	! OPHTHA
3800 CALL "SPAWNB"("PIP [231,100]*.*/PU/NM",S)			! NUCMED
3900 CALL "SPAWNB"("PIP [231,101]*.*/PU/NM",S)			! NUCLAB
5000 CALL "SPAWNB"("PIP [231,102]TEMPNAME.TMP;*/DE/NM",S)	! NUCSCN
5100 CALL "SPAWNB"("PIP [231,102]*.DAT;*/DE/NM",S)		! NUCSCN
5200 CALL "SPAWNB"("PIP [240,100]*.TMP/PU/NM",S)		! INFDIS
5300 CALL "SPAWNB"("PIP [240,100]*.SRT/PU/NM",S)		! INFDIS
5400 CALL "SPAWNB"("PIP [240,100]*.STP/PU/NM",S)		! INFDIS
7800 ! GOTO 9000
7900 DA=DCEN(DAT$(0)) : WE=DA-INT(DA/7)*7			! DAY OF WEEK
								! 0=SUNDAY ...
8000 IF WE=6 THEN
	CALL "SPAWNB"("PIP [200,15]LEVEL123.DAT;*/DE/NM",S)	! RADONC
8100 IF WE=6 THEN
	CALL "SPAWNB"("PIP [240,100]*.PRT;*/DE/NM",S)		! INFDIS
9000 EXIT
