10 ! INDEX WRITTEN BY MELANIE FINE (JULY, 1974) 20 ! 30 ! THIS PROGRAM TRIES TO FIND ALL FILES IN THE PUBLIC 40 ! PROGRAM LIBRARY WHICH PERTAIN TO PARTICULAR TOPICS 50 ! AS SPECIFIED BY KEY WORDS. 60 ! RUN FOR INSTRUCTIONS. 70 ! 80 ! 90 ! MODIFIED BY KATHLEEN ADAM \\ XAVIER U. \\ OCTOBER,1977 100 ! 1000 INPUT "DO YOU NEED INSTRUCTIONS (YES OR NO)";Y$ 1010 IF LEFT(Y$,1%)<>"N" THEN 1030 ELSE 1290 1020 ! ! INSTRUCTIONS 1030 PRINT \ PRINT "*"; FOR I=1 TO 60 \ PRINT 1040 PRINT " THIS PROGRAM TRIES TO FIND ALL FILES IN THE PUBLIC 1050 PRINT "PROGRAM LIBRARY WHICH PERTAIN TO PARTICULAR TOPICS. ENTER A 1060 PRINT "KEYWORD WHICH RELATES TO THE PROGRAM YOU ARE LOOKING FOR. 1070 PRINT 1080 PRINT " FOR EXAMPLE, TO FIND THE NAME OF (AND A BRIEF 1090 PRINT "DESCRIPTION FOR) ALL FILES IN THE LIBRARY PERTAINING TO 1100 PRINT "STATISTICS, YOU COULD USE THE KEYWORD 'STATISTICS'. HOWEVER, 1110 PRINT "A BETTER KEYWORD WOULD BE 'STAT' BECAUSE IT WOULD ALSO FIND 1120 PRINT "FILES PERTAINING TO STATISTICAL MATTERS. (BECAUSE THE WORD 1130 PRINT "'STATISTICS' DOES NOT APPEAR IN THE WORD 'STATISTICAL' IT 1140 PRINT "WOULD NOT MATCH AS A KEYWORD.) 1150 PRINT 1160 PRINT " IN GENERAL, THE LESS SPECIFIC THE KEYWORD, THE MORE 1170 PRINT "ENTRIES YOU WILL FIND TO FIT IT. HOWEVER, THIS CAN BE 1180 PRINT "CARRIED TO EXTREMES. THE USE OF THE SINGLE LETTER 'A' AS A 1190 PRINT "KEYWORD WILL PRODUCE REFERENCES TO NEARLY EVERY FILE IN THE 1200 PRINT "LIBRARY!! 1210 PRINT 1220 PRINT " ENTER ONE KEYWORD AT A TIME AND DO NOT ENCLOSE IT IN 1230 PRINT "QUOTES. WHEN YOU HAVE FOUND THE PROGRAM THAT YOU WANT TO 1240 PRINT "RUN, ANSWER 'NO' TO THE REQUEST FOR ANOTHER KEYWORD. THEN 1250 PRINT "TYPE 'RUN!NAME' WHERE 'NAME' IS THE NAME OF THE PROGRAM YOU 1260 PRINT "YOU WANT TO RUN. 1270 PRINT "*"; FOR I=1 TO 60 \ PRINT 1280 ! ! SEARCH OF KEYWORD-IN-CONTEXT FILE FOR KEYWORD 1290 ON ERROR GOTO 1390 1300 OPEN "!CAT1.3"AS FILE 1 1310 PRINT \ PRINT 1320 INPUT "WHAT IS YOUR KEYWORD--";K$ 1330 PRINT 1340 INPUT LINE #1,A$ 1350 B$=CVT$$(A$,32%) ! CONVERT TO UPPER CASE 1360 IF INSTR(1%,B$,K$)=0% THEN 1340 ! SEARCH OF B$ FOR KEYWORD 1370 A$=CVT$$(A$,4%) ! DISCARD ALL EXCESS CHARACTERS 1380 PRINT A$ \ S%=S%+1% \ GOTO 1340 1390 CLOSE 1 \ RESUME 1400 1400 IF S%=0% THEN 1430 ! IF S%=0% KEYWORD WAS NOT FOUND 1410 PRINT \ INPUT "DO YOU HAVE ANOTHER KEYWORD (YES OR NO)--";Q$ 1420 S%=0% \ PRINT \ IF LEFT(Q$,1%)<>"N" THEN 1290 ELSE 1460 1430 PRINT "KEYWORDS NOT FOUND." 1440 INPUT "DO YOU HAVE ANOTHER KEYWORD (YES OR NO)--";S$ 1450 IF LEFT(S$,1%)<>"N" THEN 1290 1460 CLOSE 1 1470 GOTO 32767 31000 ! ENTRY FROM INDEXM 31010 ON ERROR GOTO 1390 31020 K5$=SYS (CHR$(7%)) ! DECODE CORE COMMON 31030 IF K5$="%%%%%%%" THEN 1000 ! IF K5$<>"%%%%%%%" K5$ IS 31040 OPEN "!CAT1.3" AS FILE 1 ! A KEYWORD 31050 K$=K5$ 31060 GOTO 1330 32767 END