home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / basic / biblio.lbr / BIBLIO.BQS / BIBLIO.BAS
Encoding:
BASIC Source File  |  1985-02-09  |  1.6 KB  |  60 lines
  1. REM FILE BIBLIO.BAS
  2. REM MAIN DRIVER AND MENU
  3. %CHAIN 40,4000,0,600
  4. COMMON KEYWD$(1),LIBNAME$,RLEN%,TRUE%,AUTH.LEN%,TITL.LEN%
  5. COMMON MAXBIB%,MAXDESC%,MAXDEF%,MAXKEYS%,MAXCON%,CONCEPT$(1)
  6. COMMON ISS.LEN%,CLS$,ERR%,JOUR.LEN%,KWD.LEN%,CMD$(1)
  7. COMMON LFT%(1),RGHT%(1),CON.KEY%(2),CON.RATE(2),QUERY$,L%
  8. REM INITIALIZE
  9. IF LEN(LIBNAME$)=0 THEN \
  10.   LIBNAME$=COMMAND$
  11. CLS$=CHR$(26) : TRUE%=-1
  12. PRINT CLS$
  13. IF LEN(LIBNAME$)=0 THEN \
  14.   INPUT "PLEASE ENTER LIBRARY NAME: ";LIBNAME$
  15. IF END #3 THEN 14
  16. OPEN LIBNAME$+".DEF" AS 3
  17. IF SIZE(LIBNAME$+".DEF")=0 THEN \
  18.   DELETE 3 : CHAIN "PARMS"
  19. GOTO 13
  20. 14 CHAIN "PARMS"
  21. 13 REM OTHERWISE READ DEFINITIONS
  22. IF END #3 THEN 12
  23. READ #3; \
  24. MAXKEYS%, \
  25. MAXDESC%, \
  26. MAXDEF%, \
  27. MAXCON%, \
  28. MAXBIB%, \
  29. AUTH.LEN%, \
  30. TITL.LEN%, \
  31. JOUR.LEN%, \
  32. ISS.LEN%, \
  33. KWD.LEN% 
  34. 12 CLOSE 3
  35. RLEN%=AUTH.LEN% + JOUR.LEN% + ISS.LEN% + TITL.LEN% + \
  36.      3*(MAXDESC%+1) + 2
  37. DIM KEYWD$(MAXKEYS%)
  38. PRINT CLS$ : PRINT
  39. PRINT TAB(12);"----BIBLIOGRAPHY SEARCH----"
  40. PRINT
  41. PRINT TAB(12);"1  BUILD/MODIFY BIBLIOGRAPHY"
  42. PRINT TAB(12);"2  BUILD/MODIFY KEYWORD VOCABULARY"
  43. PRINT TAB(12);"3  LIST KEYWORD VOCABULARY WORDS"
  44. PRINT TAB(12);"4  SEARCH BIBLIOGRAPHY FILE"
  45. PRINT TAB(12);"5  COMPRESS BIBLIOGRAPHY FILE"
  46. PRINT TAB(12);"6  DONE-EXIT TO SYSTEM"
  47. OPT%=7 : PRINT : PRINT
  48. WHILE (OPT%>6) OR (OPT%<1)
  49. INPUT "PLEASE SELECT DESIRED FUNCTION BY NUMBER: ";OPT%
  50. IF (OPT%>6) OR (OPT%<1) THEN \
  51.   PRINT "ILLEGAL FUNCTION NUMBER--REENTER"
  52.   WEND
  53. IF OPT%=6 THEN STOP
  54. IF OPT%=1 THEN CHAIN "BIBBLD"
  55. IF OPT%=2 THEN CHAIN "VOCBLD"
  56. IF OPT%=3 THEN CHAIN "VOCLST"
  57. IF OPT%=4 THEN CHAIN "BIBSRCH"
  58. IF OPT%=5 THEN CHAIN "CMPRBIB"
  59. STOP
  60.