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