home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug006.ark / QUICKIE.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  411b  |  15 lines
  1. REM - QUICKIE - ODD JOB CACHE FILE MAINT PROGRAM
  2.     FILE.NAME$="CACHE.FIL"
  3.     FILE FILE.NAME$(128)
  4.     INPUT"STARTING, ENDING RECORD";STARTING,ENDING
  5.     FOR I=STARTING TO ENDING
  6.     READ #1,I;FLAG
  7.     IF FLAG=0 THEN 100
  8.     READ #1,I;FLAG,SO$,NA$,OR$,ST$,CI$,ZI$,PH$,CO$,PA$,TY$
  9.     IF PA$<>"7606" THEN 100
  10.     PRINT "DELETED ";NA$;" ";PA$
  11.     FLAG=0
  12.     PRINT #1,I;FLAG,SO$,NA$,OR$,ST$,CI$,ZI$,PH$,CO$,PA$,TY$
  13. 100    NEXT I
  14.     END
  15.