home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol163 / cmprbib.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.2 KB  |  44 lines
  1.     REM------FILE CMPRBIB.BAS
  2.  
  3.     REM COMPRESS BIBLIOGRAPHY FILE BY REMOVING MARKED ARTICLES
  4.  
  5.     COMMON KEYWD$(1),LIBNAME$,RLEN%,TRUE%,AUTH.LEN%,TITL.LEN%
  6.     COMMON MAXBIB%,MAXDESC%,MAXDEF%,MAXKEYS%,MAXCON%,CONCEPT$(1)
  7.     COMMON ISS.LEN%,CLEAR$,ERR%,JOUR.LEN%,KWD.LEN%,CMD$(1)
  8.     COMMON LFT%(1),RGHT%(1),CON.KEY%(2),CON.RATE(2),QUERY$,L%
  9.  
  10.     PRINT CLEAR$
  11.     PRINT TAB(12);"------COMPRESS BIBLIOGRAPHY------":PRINT
  12.  
  13.     REM IF NO BIBLIO FILE THEN GO BACK TO MENU
  14.     IF END #2 THEN 5.9E1
  15.     OPEN LIBNAME$+".BIB" RECL RLEN% AS 2
  16.     IF SIZE(LIBNAME$+".BIB")=0 THEN DELETE 2 : GOTO 5.9E1
  17.  
  18.     REM OTHERWISE SCAN AND DELETE
  19.     R.REC%=1 : DEL%=0
  20.     IF END #2 THEN 5.8E1
  21.     READ #2,1; LINE BUFF$
  22.     WHILE TRUE%
  23.       READ #2,R.REC%;LINE BUFF$
  24.       IF LEFT$(BUFF$,5)="ZZZZ" THEN 5.2E1
  25.         IF R.REC%<>W.REC% THEN PRINT USING "&"; #2,W.REC%; BUFF$
  26.         R.REC%=R.REC%+1 : W.REC%=W.REC%+1:GOTO 5.3E1
  27.  
  28. 5.2E1   R.REC%=R.REC%+1 : DEL%=DEL%+1
  29.  
  30. 5.3E1   WEND
  31.  
  32. 5.8E1   PRINT USING "&"; #2,W.REC%; CHR$(26)
  33.     PRINT USING "######"; #2,1; W.REC%-2
  34.     CLOSE 2
  35.     PRINT W.REC%-2; " ARTICLES ON FILE"
  36.     PRINT DEL%; " ARTICLES WERE REMOVED"
  37.  
  38. 5.5E1   INPUT "PRESS RETURN TO GO BACK TO MENU";LINE ANS$
  39.     CHAIN "BIBLIO"
  40.  
  41. 5.9E1   PRINT "NO BIBLIO FILE NAMED ";LIBNAME$
  42.     GOTO 5.5E1
  43.   
  44.