home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / dbbbs20.lbr / BBS20.CQD / BBS20.CMD
Encoding:
Text File  |  1986-09-18  |  6.5 KB  |  248 lines
  1. ERASE
  2. TEXT
  3.   BBSLIST --- BBS List Program for dBASE II Version 2.4
  4.   dBASE II is a copyrighted program by Ashton-Tate, Culver City, CA.
  5.   Written 07/02/84 by David Bartholomew, Van Nuys CA [71716,431]
  6.   REV. 11/20/84
  7.                 ---  N O T I C E  ---
  8.   The author(s) will not be responsible for omissions, errors, or
  9.   completeness of information contained in this program and/or
  10.   database, nor for actions arising from the use of this data.
  11.   The user assumes all responsibility when using this data.
  12.   The user is advised to call listings by voice to verify that a
  13.   computer is online before using computer-only to call numbers.
  14.  
  15.   This listing contains telephone numbers and other information
  16.   regarding public-access computer systems.
  17.   If you have any changes, updates, or corrections, please send them
  18.   to: BBSLIST, TUG/NET, P.O. Box 705, Van Nuys, CA, 91408-0705
  19.    Thank You!
  20.  
  21. ENDTEXT
  22. ACCEPT "Press RETURN to continue" TO yn
  23. USE
  24. SET TALK OFF
  25. DO WHILE t
  26. ERASE
  27. ? "        BBS LIST Program"
  28. ?
  29. ? "1) Add New BBS's to List"
  30. ? "2) Edit BBS's in List"
  31. ? "3) Search for BBS's by Field"
  32. ? "4) Sort & Reindex Data"
  33. ? "5) Output to Printer"
  34. ? "6) Output to Disk File (40 col.)"
  35. ? "7) Output to Disk File (80 col.)"
  36. ? "8) Check for Duplicate Numbers"
  37. ?
  38. ? "9) EXIT to dBASE II"
  39. RELEASE ALL
  40. ?
  41. ACCEPT "Selection" TO sel
  42. DO CASE
  43.    CASE sel="1"
  44.     USE BBS20
  45.     APPEND
  46.     USE
  47.    CASE sel="2"
  48.     * this command is still in need of enhancements
  49.     USE BBS20
  50.     EDIT
  51.     USE
  52.    CASE sel="3"
  53.     USE BBS20
  54.     LIST STRU
  55.     STORE t TO srch
  56.     ? "Press RETURN to exit search"
  57.     ACCEPT "FIELD to look through" TO field
  58.     IF field=" "
  59.       STORE f TO srch
  60.     ENDIF
  61.     DO WHILE srch
  62.       ? "Field Name: "+field
  63.       ACCEPT "Search for" TO search
  64.       LIST A:C,PHONE,NAME,CITY,SECTION,TRIM(ACCESS) FOR "&search" $&field
  65.       SET TALK OFF
  66.       ?
  67.       COUNT FOR "&search" $&field TO xx
  68.       ? xx
  69.       ?? "listings found"
  70.     ACCEPT "Press RETURN to search again, Q to quit search" TO yn
  71.     IF !(yn)="Q"
  72.       STORE f TO srch
  73.     ENDIF
  74.     ENDDO while srch
  75.    CASE sel="4"
  76.     SET TALK OFF
  77.     ? "Sorting..."
  78.     USE BBS20
  79.     USE BBS20
  80.     COPY TO TEMP
  81.     USE TEMP
  82.     SORT ON NAME TO BBS20
  83.     ?? "and indexing..."
  84.     USE BBS20
  85.     DELETE FILE TEMP
  86.     INDEX ON SECTION TO BBSSECT
  87.     INDEX ON PHONE TO BBSPHONE
  88.     USE
  89.     ?? "all done."
  90.    CASE sel="5"
  91.     SET PRINT ON
  92.     SET EJECT OFF
  93.     * compressed mode for Epson MX-80
  94.     ? CHR(15)
  95.     USE BBSLIST INDEX BBSSECT
  96.     ? DATE ()
  97.     ? "     818 AREA:"
  98.     LIST OFF FOR "818" $A:C
  99.     ?
  100.     ? "     213 AREA:"
  101.     LIST OFF FOR "213" $A:C
  102.     ?
  103.     ? "     805 AREA:"
  104.     LIST OFF FOR "805" $A:C
  105.     ?
  106.     ? "     714 AREA:"
  107.     LIST OFF FOR "714" $A:C
  108.     ?
  109.     ? "     619 AREA:"
  110.     LIST OFF FOR "619" $A:C
  111.     ?
  112.     SET PRINT OFF
  113.    CASE sel="6"
  114.     ? "Disk File Output...40 Col Format"
  115.     ACCEPT "Disk Filename to write to" TO outfile
  116.     SET EJECT OFF
  117.     SET TALK OFF
  118.     USE BBSLIST INDEX BBSSECT
  119.     SET ALTERNATE TO &outfile
  120.     SET ALTERNATE ON
  121.     ? "     San Fernando Valley"
  122.     * 40 column listing
  123.     STORE "LIST OFF A:C,PHONE,NAME,TRIM(ACCESS)" TO lst 
  124.     &lst FOR "SFV" $SECTION
  125.     ?
  126.     ? "     San Gabriel Valley"
  127.     &lst FOR "SGV" $SECTION
  128.     ?
  129.     ? "     West Los Angeles"
  130.     &lst FOR "WEST" $SECTION
  131.     ?
  132.     ? "     Central & East Los Angeles"
  133.     &lst FOR "CENTRAL" $SECTION .OR. "EAST" $SECTION
  134.     ?
  135.     ? "     South Bay & Long Beach Areas"
  136.     &lst FOR "SOUTH" $SECTION
  137.     ?
  138.     ? "     (805 Area & North)"
  139.     &lst FOR "805" $A:C
  140.     ?
  141.     ? "     (714/619 Areas & South)"
  142.     ? "         Orange County"
  143.     &lst FOR "ORANGE" $SECTION
  144.     ?
  145.     ? "         Desert Cities"
  146.     &lst FOR "DESERT" $SECTION
  147.     ?
  148.     ? "San Bernardino/Riverside Areas"
  149.     &lst FOR "714" $A:C .AND. .NOT. "ORANGE" $SECTION
  150.     ?
  151.     ? "    San Diego & Vicinity"
  152.     &lst FOR "DIEGO" $SECTION
  153.     ?
  154.     SET ALTERNATE OFF
  155.    CASE sel="7"
  156.     ? "Disk File Output...80 Col Format"
  157.     ACCEPT "Disk Filename to Write To" TO outfile
  158.     SET EJECT OFF
  159.     SET TALK OFF
  160.     USE BBSLIST INDEX BBSSECT
  161.     SET ALTERNATE TO &outfile
  162.     SET ALTERNATE ON
  163.     ? "     San Fernando Valley"
  164.     * 80 column listing
  165.     STORE "LIST OFF A:C,PHONE,NAME,CITY,TRIM(TYPE),TRIM(INTEREST),TRIM(ACCESS)" TO lst
  166.     &lst FOR "SFV" $SECTION
  167.     ?
  168.     ? "     San Gabriel Valley"
  169.     &lst FOR "SGV" $SECTION
  170.     ?
  171.     ? "     West Los Angeles"
  172.     &lst FOR "WEST" $SECTION
  173.     ?
  174.     ? "     Central & East Los Angeles"
  175.     &lst FOR "CENTRAL" $SECTION .OR. "EAST" $SECTION
  176.     ?
  177.     ? "     South Bay & Long Beach Areas"
  178.     &lst FOR "SOUTH" $SECTION
  179.     ?
  180.     ? "     (805 Area & North)"
  181.     &lst FOR "805" $A:C
  182.     ?
  183.     ? "     (714/619 Areas & South)"
  184.     ? "         Orange County"
  185.     &lst FOR "ORANGE" $SECTION
  186.     ?
  187.     ? "         Desert Cities"
  188.     &lst FOR "DESERT" $SECTION
  189.     ?
  190.     ? "San Bernardino/Riverside Areas"
  191.     &lst FOR "714" $A:C .AND. .NOT. "ORANGE" $SECTION
  192.     ?
  193.     ? "    San Diego & Vicinity"
  194.     &lst FOR "DIEGO" $SECTION
  195.     ?
  196.     SET ALTERNATE OFF
  197.    CASE sel="8"
  198.     ERASE
  199.     ? "                               -Checking for duplicate numbers..."
  200.     USE BBSLIST INDEX BBSPHONE
  201.     STORE "        " TO oldnum
  202.     STORE "        " TO newnum
  203.     STORE " " TO oldname
  204.     STORE " " TO newname
  205.     STORE 0 TO d
  206.     GOTO TOP
  207.     DO WHILE .NOT. EOF
  208.      STORE PHONE TO newnum
  209.      STORE NAME TO newname
  210.      @ 1,1 SAY newname
  211.      @ 1,17 SAY newnum
  212.      IF newnum=oldnum
  213.          STORE d+1 TO d
  214.          @ d+1,1 SAY "Dup: "+newname+" "+newnum+" / "+oldname+" "+oldnum
  215.      ENDIF
  216.      STORE newname TO oldname
  217.      STORE newnum TO oldnum
  218.      SKIP
  219.     ENDDO
  220.     @ 1,1 SAY "                                                             "
  221.     @ 21,1 SAY d
  222.     @ 21,12 SAY "duplicates found"
  223.     @ 22,1 SAY "Press any key to continue"
  224.     WAIT
  225.    CASE sel="9"
  226.     ERASE
  227.     ? "Returning to dBASE II"
  228.     USE
  229.     SET TALK ON
  230.     RETURN
  231.    OTHERWISE
  232.     ? "Unknown Option!"
  233.     STORE 1 TO xx
  234.     DO WHILE xx<70
  235.      STORE xx+1 TO xx
  236.     ENDDO
  237. ENDCASE
  238. ENDDO WHILE t
  239. DO WHILE t
  240. umn listing
  241.     STORE "LIST OFF A:C,PHONE,NAME,CITY,TRIM(TYPE),TRIM(INTEREST),TRIM(ACCESS)" TO lst
  242.     &lst FOR "SFV" $SECTION
  243.     ?
  244.     ? "     San Gabriel Valley"
  245.     &lst FOR "SGV" $SECTION
  246.     ?
  247.     ? "     West Los Angeles"
  248.     &lst FOR "WEST"