REM FILE BIBLIO.BAS
REM MAIN DRIVER AND MENU
%CHAIN 40,4000,0,600
COMMON KEYWD$(1),LIBNAME$,RLEN%,TRUE%,AUTH.LEN%,TITL.LEN%
COMMON MAXBIB%,MAXDESC%,MAXDEF%,MAXKEYS%,MAXCON%,CONCEPT$(1)
COMMON ISS.LEN%,CLS$,ERR%,JOUR.LEN%,KWD.LEN%,CMD$(1)
COMMON LFT%(1),RGHT%(1),CON.KEY%(2),CON.RATE(2),QUERY$,L%
REM INITIALIZE
IF LEN(LIBNAME$)=0 THEN \
  LIBNAME$=COMMAND$
CLS$=CHR$(26) : TRUE%=-1
PRINT CLS$
IF LEN(LIBNAME$)=0 THEN \
  INPUT "PLEASE ENTER LIBRARY NAME: ";LIBNAME$
IF END #3 THEN 14
OPEN LIBNAME$+".DEF" AS 3
IF SIZE(LIBNAME$+".DEF")=0 THEN \
  DELETE 3 : CHAIN "PARMS"
GOTO 13
14 CHAIN "PARMS"
13 REM OTHERWISE READ DEFINITIONS
IF END #3 THEN 12
READ #3; \
MAXKEYS%, \
MAXDESC%, \
MAXDEF%, \
MAXCON%, \
MAXBIB%, \
AUTH.LEN%, \
TITL.LEN%, \
JOUR.LEN%, \
ISS.LEN%, \
KWD.LEN% 
12 CLOSE 3
RLEN%=AUTH.LEN% + JOUR.LEN% + ISS.LEN% + TITL.LEN% + \
     3*(MAXDESC%+1) + 2
DIM KEYWD$(MAXKEYS%)
PRINT CLS$ : PRINT
PRINT TAB(12);"----BIBLIOGRAPHY SEARCH----"
PRINT
PRINT TAB(12);"1  BUILD/MODIFY BIBLIOGRAPHY"
PRINT TAB(12);"2  BUILD/MODIFY KEYWORD VOCABULARY"
PRINT TAB(12);"3  LIST KEYWORD VOCABULARY WORDS"
PRINT TAB(12);"4  SEARCH BIBLIOGRAPHY FILE"
PRINT TAB(12);"5  COMPRESS BIBLIOGRAPHY FILE"
PRINT TAB(12);"6  DONE-EXIT TO SYSTEM"
OPT%=7 : PRINT : PRINT
WHILE (OPT%>6) OR (OPT%<1)
INPUT "PLEASE SELECT DESIRED FUNCTION BY NUMBER: ";OPT%
IF (OPT%>6) OR (OPT%<1) THEN \
  PRINT "ILLEGAL FUNCTION NUMBER--REENTER"
  WEND
IF OPT%=6 THEN STOP
IF OPT%=1 THEN CHAIN "BIBBLD"
IF OPT%=2 THEN CHAIN "VOCBLD"
IF OPT%=3 THEN CHAIN "VOCLST"
IF OPT%=4 THEN CHAIN "BIBSRCH"
IF OPT%=5 THEN CHAIN "CMPRBIB"
STOP