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
