80 V9=12 100 DIM A$(5) 150 REM 200 PRINT CHR$(V9) 250 PRINT TAB(30);" LIBRARY SEARCH" 300 PRINT TAB(28);"*****************" 350 PRINT CHR$(V9) 400 PRINT : PRINT : PRINT " YOU MAY EXAMINE:-" 450 PRINT " 1. COMPUTER JOURNALS" 500 PRINT " 2. GENERAL FILES" 550 PRINT " ENTER OPTION"; 600 INPUT N 650 ON N GOTO 750,850 700 GOTO 350 750 N$="COMFIL.DAT" 755 N1$=" TITLE : " 760 N2$=" PUBLICATION : " 765 N3$=" VOLUME : " 770 N4$=" PAGES : " 775 N5$=" KEYWORDS : " 800 GOTO 900 850 N$="GENFIL.DAT" 855 N1$=" TITLE : " 860 N2$=" FILE : " 865 N3$=" DATE : " 870 N4$=" CROSS REFERENCE : " 875 N5$=" KEYWORDS : " 900 PRINT : PRINT : PRINT " YOU MAY:-" 950 PRINT " 1.SEARCH BY KEYWORD" 1000 PRINT " 2. ENTER NEW ARTICLE" 1050 PRINT " 3. DELETE ARTICLE" 1100 PRINT " ENTER OPTION"; 1150 INPUT N1 1200 ON N1 GOTO 1250,2900,4250 1250 REM SEARCH 1300 K1$=" " 1500 PRINT " ENTER KEYWORD "; 1550 INPUT K1$ 1650 CLOSE 1700 OPEN "R",1,N$ 1710 FIELD #1,28 AS A$(1),60 AS A$(2),20 AS A$(3),10 AS A$(4),10 AS A$(5) 1750 GET #1,1 1800 N=VAL(A$(1)) 1820 PRINT N 1850 FOR K=2 TO N 1900 A$=" " 1950 GET #1,K 2000 FOR I=1 TO 5 2010 P=INSTR(A$(I),K1$) 2020 IF P<>0 THEN 2400 2030 NEXT I 2040 GOTO 2700 2400 PRINT N1$;A$(2) 2450 PRINT N2$;A$(3) 2500 PRINT N3$;A$(4) 2550 PRINT N4$;A$(5) 2560 PRINT N5$;A$(1) 2600 PRINT : PRINT 2700 NEXT K 2750 PRINT " HIT RETURN TO CONTINUE"; 2800 INPUT B$ 2850 GOTO 150 2900 REM ENTER NEW ARTICLE 2950 CLOSE 3000 OPEN "R",1,N$ 3010 FIELD #1,28 AS A$(1),60 AS A$(2),20 AS A$(3),10 AS A$(4),10 AS A$(5) 3050 A$=" " 3100 GET #1,1 3110 N=VAL(A$(1)) 3120 PRINT N 3150 K$="]]" 3200 FOR K=2 TO N 3250 A$=" " 3300 GET #1,K 3350 P=INSTR(A$(1),K$) 3400 IF P<>0 THEN 3500 3450 NEXT K 3500 A$=" " 3550 PRINT " ENTER KEYWORDS SEPERATED BY SPACES"; 3600 INPUT B$ 3601 LSET A$(1)=B$ 3650 PRINT : PRINT " ENTER TITLE"; 3700 INPUT B$ 3701 LSET A$(2)=B$ 3750 PRINT " ENTER ";N2$; 3800 INPUT B$ 3801 LSET A$(3)=B$ 3850 PRINT " ENTER ";N3$; 3900 LINE INPUT B$ 3901 LSET A$(4)=B$ 3950 PRINT " ENTER ";N4$; 4000 INPUT B$ 4001 LSET A$(5)=B$ 4100 PUT #1,K 4102 IF K<=N THEN 4200 4103 IF K>N THEN PUT #1,2 4104 LSET A$(1)=STR$(K) 4106 LSET A$(2)=" " 4108 LSET A$(3)=" " 4110 LSET A$(4)=" " 4112 LSET A$(5)=" " 4114 PUT #1,1 4200 GOTO 200 4250 REM DELETE 4300 PRINT " ENTER TITLE TO BE DELETED "; 4350 INPUT K$ 4400 CLOSE 4405 OPEN "R",1,N$ 4410 FIELD #1,28 AS A$(1),60 AS A$(2),20 AS A$(3),10 AS A$(4),10 AS A$(5) 4500 GET #1,1 4510 N=VAL(A$(1)) 4520 PRINT N 4550 FOR K=2 TO N 4600 A$=" " 4650 GET #1,K 4700 P=INSTR(A$(2),K$) 4750 IF P=0 THEN 5350 4800 PRINT "TITLE ";A$(2) 4850 PRINT N2$;A$(3) 4900 PRINT N3$;A$(4) 4950 PRINT N4$;A$(5) 5000 PRINT : PRINT " DELETE (Y OR N)"; 5050 INPUT B$ 5100 IF B$="N"THEN 5350 5200 FOR I=1 TO 5 5250 LSET A$(I)="]]]]]]]]]]]]]]]]" 5300 NEXT I 5310 PUT #1,K 5350 NEXT K 5400 GOTO 200