Listing of file='PURGEX.BAS;01' on disk='vmedia/utility-sector.ccvf'
3080 REM : DELETED FILES V 14.10 3100 CLEAR 1000 3120 PLOT 12,14,3,25,3,6,52:PRINT " FILE PURGER ":PRINT :PLOT 6,3,15 3140 PRINT "YOU MAY INSERT YOUR OTHER DISKETTE NOW " 3160 PRINT :INPUT "AND HIT RETURN TO CONTINUE > ";C$:IF C$< > "" GOTO 3140 3180 PLOT 27,4:PRINT "DIR":PLOT 27,27:PRINT 3200 PRINT :INPUT "ENTER FILE TYPE > ";F$ 3220 REM : 3240 PRINT :INPUT "HOW MANY FILES TO BE DELETED ? > ";A 3260 DIM X(A),X$(A),V$(A),B$(A) 3280 PRINT :PRINT :PRINT 3300 FOR M= 1 TO A 3320 PRINT "FILE # ";M,:INPUT " NAME ,VERSION > ";X$(M),V$(M) 3340 NEXT M 3360 REM : 3380 FF$= "."+ F$+ ";" 3400 FOR J= 1TO A:B$(J)= X$(J) 3420 X$(J)= "DEL "+ X$(J)+ FF$+ V$(J) 3440 NEXT J:PRINT :INPUT "DO YOU WISH TO REVISE ANY ENTRY (Y/N)? ";A$:IF A$= "Y" GOTO 3280 3460 PRINT :PRINT :INPUT " HIT RETURN TO DELETE FILES > ";Z$:IF Z$< > "" GOTO 3460 3480 FOR K= 1TO A 3500 PLOT 27,4 3520 PRINT X$(K) 3540 PLOT 27,27 3560 PRINT " ";F$;" FILE > ";B$(K);" NOW DELETED ":PRINT 3580 FOR I= 1TO 250:NEXT I 3600 NEXT K 3620 PRINT " ";A;" FILES HAVE BEEN DELETED":PRINT 3640 FOR K= 1TO A:PRINT " ";K;" ";B$(K);" VERSION ";V$(K):PRINT :NEXT 3660 PLOT 3,0,30:INPUT "DO YOU WISH TO CONTINUE (Y/N) ? ";A$:IF A$= "Y" GOTO 3080 3680 END