home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol163 / voclst.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.5 KB  |  54 lines
  1.     REM -------FILE VOCLST.BAS
  2.  
  3.     REM VOCABULARY LIST TO CONSOLE/PRINTER
  4.     COMMON KEYWD$(1),LIBNAME$,RLEN%,TRUE%,AUTH.LEN%,TITL.LEN%
  5.     COMMON MAXBIB%,MAXDESC%,MAXDEF%,MAXKEYS%,MAXCON%,CONCEPT$(1)
  6.     COMMON ISS.LEN%,CLEAR$,ERR%,JOUR.LEN%,KWD.LEN%,CMD$(1)
  7.     COMMON LFT%(1),RGHT%(1),CON.KEY%(2),CON.RATE(2),QUERY$,L%
  8.  
  9.     PRINT CLEAR$ : PRINT
  10.     PRINT TAB(12);"----------KEYWORD VOCABULARY LISTER----------":PRINT
  11.     INPUT "DO YOU WISH A PRINTED LISTING (Y/N) ";LINE ANS$
  12.     IF UCASE$(LEFT$(ANS$,1))="Y" THEN LPRINTER:COL%=4 ELSE \
  13.        PRINT CLEAR$:COL%=3
  14.  
  15.     REM IF NO VOCABULARY FILE RETURN TO MENU
  16.     IF END #1 THEN 3.3E1
  17.     OPEN LIBNAME$+".VOC" AS 1
  18.     IF SIZE(LIBNAME$+".VOC")=0 THEN DELETE 1 : GOTO 3.3E1
  19.  
  20.     REM OTHERWISE READ COMPLETE VOCABULARY
  21.     IF END #1 THEN 3.1E1
  22.     I%=1
  23.     WHILE TRUE%
  24.       READ #1;LINE KEYWD$(I%)
  25.       I%=I%+1
  26.       WEND
  27.  
  28. 3.1E1   I%=I%-1:CLOSE 1
  29.  
  30.     REM LIST IN FOUR COLUMNS FOR PRINTER, THREE FOR SCREEN
  31.     IF COL%=4 THEN LPRINTER:FOR J%=1 TO 5:PRINT:NEXT J%: \
  32.          PRINT TAB(23);LIBNAME$;" KEYWORD VOCABULARY" : \
  33.          PRINT TAB(23);"---------------------------"
  34.     N.ROW%=INT%(I%/COL%)
  35.     IF I%>(N.ROW%*COL%) THEN N.ROW%=N.ROW%+1
  36.     FOR J%=1 TO N.ROW%
  37.       FOR K%=0 TO COL%-1
  38.         IND%=J%+K%*N.ROW%
  39.         IF IND%>I% THEN 3.2E1
  40.         PRINT USING "###"; IND%;:PRINT " "+KEYWD$(IND%);
  41.         NEXT K%
  42.   
  43. 3.2E1   PRINT
  44.       NEXT J%
  45.     PRINT
  46.     IF COL%=4 THEN PRINT:PRINT:PRINT:PRINT
  47.     CONSOLE:PRINT
  48.  
  49. 3.4E1   INPUT "PRESS RETURN TO GO BACK TO MENU"; LINE ANS$
  50.     CHAIN "BIBLIO"
  51.  
  52. 3.3E1   PRINT "NO VOCABULARY FILE NAMED "; LIBNAME$:GOTO 3.4E1
  53.  
  54.