REM ---FILE VOCLST.BAS
COMMON KEYWD$(1),LIBNAME$,RLEN%,TRUE%,AUTH.LEN%,TITL.LEN%
COMMON MAXBIB%,MAXDESC%,MAXDEF%,MAXKEYS%,MAXCON%,CONCEPT$(1)
COMMON ISS.LEN%,CLS$,ERR%,JOUR.LEN%,KWD.LEN%,CMD$(1)
COMMON LFT%(1),RGHT%(1),CONKEY%(2),CON.RATE(2),QUERY$,L%
PRINT CLS$ : PRINT
PRINT TAB(12);"--KEYWORD VOCAB LISTER--"
PRINT
INPUT "DO YOU WISH A PRINTED LISTING (Y/N)? ";ANS$
IF UCASE$(LEFT$(ANS$,1))="Y" THEN \
 LPRINTER : COL%=4 \
 ELSE PRINT CLS$ : COL%=3
IF END #1 THEN 3.3E1
OPEN LIBNAME$+".VOC" AS 1
IF SIZE(LIBNAME$+".VOC")=0 THEN \
 DELETE 1 : GOTO 3.3E1
IF END #1 THEN 3.1E1
I%=1
WHILE TRUE%
 READ #1; LINE KEYWD$(I%)
I%=I%+1
WEND
3.1E1 I%=I%-1
CLOSE 1
IF COL%=4 THEN LPRINTER :\
 FOR J%=1 TO 5 : PRINT : NEXT J% :\
 PRINT TAB(23);"----------------------------"
N.ROW%=INT%(I%/COL%)
IF I%>(N.ROW%*COL%) THEN N.ROW%=N.ROW%+1
FOR J%=1 TO N.ROW%
 FOR K%=0 TO COL%-1
  IND%=J%+K%*N.ROW%
  IF IND%>I% THEN 3.2E1
  PRINT USING "###"; IND%;
  PRINT " "+KEYWD$(IND%);
  NEXT K%
 3.2E1 PRINT
 NEXT J%
PRINT
IF COL%=4 THEN PRINT : PRINT : PRINT : PRINT
CONSOLE
PRINT
3.4E1 INPUT "PRESS RETURN TO GO BACK TO MENU"; LINE ANS$
CHAIN "BIBLIO"
3.3E1 PRINT "NO VOCAB FILE NAMED ";LIBNAME$
GOTO 3.4E1