10! KWIC OPENING PROGRAM TO GET PRINTER LISTING OF DESCRIPTIONS OF PROGRAMS IN LIBRARIES R.T.O'NEILL XAVIER U,CINCINNATI JULY 1976 50 PRINT"THIS PROGRAM SENDS TO THE PRINTER A CURRENT" 52 PRINT"KEY-WORD-IN-CONTEXT DESCRIPTION OF EVERY PROGRAM IN A" 54 PRINT"SUPPORTED LIBRARY. THE PROCESS TAKES ABOUT 5 MINUTES." 55 INPUT"ARE YOU SURE THIS IS WHAT YOU WANT TO DO (YES/NO)";A$ 56 IF LEFT(A$,1%)<>"Y" THEN 9999 100 OPEN "KWIC1.CTL" FOR OUTPUT AS FILE 1 110 PRINT #1,"$JOB/NAME=KWIC1/CCL/NOLIMIT" 120 PRINT #1,"$DIR KWIC2. <(*,*)CAT???" 130 PRINT #1,"RUN (10,0) KWIC3" 140 PRINT #1,"$QUE BA:=KWIC4" 142 PRINT #1,"$PIP KWIC1.LOG/DE" 145 PRINT#1,"$EOJ" 150 CLOSE 1 9900 F$="BA:=KWIC1" 9910 A$=SYS(CHR$(8%)+"$QUE"+CHR$(13%)+CVT%$(32767%)+"Q"+F$+CHR$(13%)) 9920 CHAIN "$QUE"31000 9999 END