* BBSMAINT command file
USE
ERASE
USE BBSLIST
? "Sorting...this will take a moment"
? "   --- Please do not interrupt! ---"
?
COPY TO BBS
USE BBS
SORT ON NAME TO BBSLIST
USE BBSLIST
? "BBSLIST has now been sorted by name."
? "Indexing BBSLIST to various indexes...please wait..."
?
? "Indexing SECTION..."
INDEX ON SECTION TO BBSSECT
?
? "Indexing TYPE..."
INDEX ON TYPE TO BBSTYPE
?
? "Indexing NAME..."
INDEX ON NAME TO BBSNAME
?
? "Indexing Area Code..."
INDEX ON A:C TO BBSAREA
?
? "Indexing CITY..."
INDEX ON CITY TO BBSCITY
?
?"Indexing PHONE... "
INDEX ON PHONE TO BBSPHONE
?
?"Indexing completed!"
?
USE
USE BBSLIST
? "I'm now using the database file BBSLIST"
ENDDO



HONE      SHOPPING  WEST LA        WEST       213799-1632PASADENA RCP/M RCP/M     PASADENA       SGV        213577-9947CBBS           CBBS      PASADENA       SGV        213541-2503GFRN DATA EXC 1BBS       REDONDO BEACH  SOUTH      213428-5206DRAGON'S LAIR  PW=DRAGON LONG BEACH     SOUTH      213388-5198MAGNETIC FANT. BBS       LOS ANGELES    LA         213371-8825COMPUTERLAND   BBS       LAWNDALE       SOUTA EXC 1BBS       REDONDO BEACH  SOUTH      213428-5206DRAGON'S LAIR  PW=DRAGON LONG BEA    805        714990-6747BREA NET                 BREA           714        714220-0239DYM            MATCHMAPPLE CORE BBS APPLE     REDONDO BEACH  SOUTH      805498-2508ATARI          ATARI     THOUSAND OAKS  805        213542-9142ATARI BBS      ATARI     REDONDO BEACH  SOUTH      213699-0775BGGS           TRS-80    WHITTIER       EAST       213842T
?
? "Indexing BBSLIST to various indexes...please wait..."
?
? "Indexing SECTION..."
INDEX ON SECTION TO BBSSECT
?
? "Indexing TYPE..."
INDEX ON TYPE TO BBSTYPE
?
? "Indexing NAME..."
INDEX ON NAME TO BBSNAME
?
? "Indexing Area Code..."
INDEX ON A:C TO BBSAREA
?
? "Indexing CITY..."
INDEX ON CITY TO BBSCITY
?
?"Indexing PHONE... "
INDEX ON PHONE TO BBSPHONE
?
?"Indexing completed!"
?
USE
USE BBSLIST INDEX BBSSECT,BBSTYPE,BBSNAME,BBSAREA,BB