Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0080/avail.for
There are no other files named avail.for in the archive.
00100 C PROGRAM AVAIL
00200 C
00300 C SEARCH THE LIST OF AVAILABLE SOFTWARE
00400 C
00500 C PETE SCHILLING ALCOA TECHNICAL CENTER SEPTEMBER, 1974
00600 C
00700 C THIS IS THE MAIN PROGRAM WHICH CALLS THE SUBROUTINES
00800 C WHICH DO THE WORK.
00900 C
01000 COMMON / AVKEY1 / NKEYS, NHITS, KEYWDS(15,6), KEYLEN(6)
01100 COMMON / AVLUNS / LUTT , LUFL ,LULP , LURN
01200 C
01300 LUTT = 5
01400 LUFL = 26
01500 LULP = 3
01600 LURN = 27
01700 C
01800 C GIVE THE USER SOME INSTRUCTIONS ON THE PROGRAM.
01900 CALL AVINST
02000 C
02100 C GET THE LIST OF NON-INDEXED WORDS.
02200 CALL AVSTOP
02300 C
02400 C GET THE KEYWORDS FOR THE SEARCH.
02500 10 CALL AVKEYS
02600 C
02700 C SEARCH THE INDEX FILE.
02800 CALL AVINDX
02900 C
03000 C IF THERE WERE NO HITS, CHECK WHETHER THE USER WISHES TO TRY AGAIN.
03100 IF ( NHITS .LE. 0 ) GO TO 70
03200 C
03300 C IF THERE WERE HITS IN THE SEARCH, SUMMARIZE THE RESULTS.
03400 CALL AVSUMM
03500 C
03600 C TELL THE USER THE RESULTS.
03700 CALL AVRSLT
03800 C
03900 C DOES THE USER WISH TO CONTINUE?
04000 WRITE ( LUTT, 25 )
04100 25 FORMAT ( / ' DO YOU WISH TO TRY ANOTHER SEARCH? ' $ )
04200 IF ( AVANSR ( LUTT ) ) GO TO 10
04300 C
04400 C IF NOT, STOP.
04500 GO TO 90
04600 C
04700 C DOES THE USER WISH TO TRY AGAIN?
04800 70 WRITE ( LUTT, 75 )
04900 75 FORMAT ( / ' THERE WERE NO HITS WITH THOSE KEYWORDS.' /
05000 1 ' DO YOU WISH TO TRY AGAIN WITH NEW ONES? ' $ )
05100 IF ( AVANSR ( LUTT ) ) GO TO 10
05200 C
05300 C IF THE USER IS FINISHED, THANK HIM AND QUIT.
05400 90 WRITE ( LUTT, 95 )
05500 95 FORMAT ( / ' THANK YOU. I HOPE YOU FOUND THIS HELPFUL.' /
05600 1 ' PETE SCHILLING (X2693) WOULD APPRECIATE' /
05700 2 ' YOUR COMMENTS AND SUGGESTIONS.' / )
05800 C
05900 CALL EXIT
06000 END