REM - QUICKIE - ODD JOB CACHE FILE MAINT PROGRAM
	FILE.NAME$="CACHE.FIL"
	FILE FILE.NAME$(128)
	INPUT"STARTING, ENDING RECORD";STARTING,ENDING
	FOR I=STARTING TO ENDING
	READ #1,I;FLAG
	IF FLAG=0 THEN 100
	READ #1,I;FLAG,SO$,NA$,OR$,ST$,CI$,ZI$,PH$,CO$,PA$,TY$
	IF PA$<>"7606" THEN 100
	PRINT "DELETED ";NA$;" ";PA$
	FLAG=0
	PRINT #1,I;FLAG,SO$,NA$,OR$,ST$,CI$,ZI$,PH$,CO$,PA$,TY$
100	NEXT I
	END