This is a bbs list file, works with VBBS and NOT vadv. VBBS 6.10


!���������������������������������������������������������������������������Ŀ
!� Mod Name: BBSLIST1.V                    Mod Author: Ken Smith 1@1805001   �
!�                                   AVALIBLE IN 2001 at ASPECTNET 5@1520000 �
!� Difficulty: MEDIUM                      Date: 03 OCT 1993                 �
!� Files Affected: Creates 2 .TXT files    Type: SCRIPT                      �
!� VBBS Version: 6.1X                                                        �
!� Description:  List of bulletin boards to display to your users.           �
!�               Displayed from seperate files for local/long distance #'s   �
!�����������������������������������������������������������������������������
!
! Based on the original by B.B. Woof (John J. Pike) @5096
!
! I liked John's version but, thought that it should be expanded a little
! bit.  It now decides if the number is local or long distance and puts
! it into one of two seperate files.  For LD numbers it adds the state.
1 VBBS Systems have the VBBS highlighted.
!
! After making the changes needed for your system
! (Text file directory, state, area code(s), and prefixes)
!
! Compile with VCOM and add it to your menu(s) and the .FB files (Remember
! the PDM's TOO!)
!
! I use the "@" character in the main menu for my listing.  The .FB entry
! looks like this:
!
!                  @ 050 2 bbslist1
!
!****************************************************************************
!  DISCLAIMER:  This mod works here! If you can't get it working on your    *
!  system I will try to help if you email me 1@1805001, but claim no        *
!  responsibility if "trashes" your system.                                 *
!                                                                           *
!  REMEMBER TO BACK UP THE FILES AFFECTED BEFORE TRYING THIS MOD!!!         *
!****************************************************************************
!
$pad = "                                         " ! Blank pad
action "BBS List"
# begin
$state = $pad
$bbsn = $pad
$theac = $pad
$thepref = $pad
$thenum = $pad
$typem = $pad
$typeo = $pad
$typeb = $pad
$board = $pad
$choice = $pad
$state = "CA"
$ld = 0
tr $clear
newpage
tr
tr
tr
tr "                    The Bulletin Board Listing Service "
tr
tr "                    The following commands are available:"
tr
tr "                            D isplay the list"
tr
tr "                            E nter a new BBS in to file"
tr
tr "                            Q uit back to " $BBSNAME ""
tr
tr
# choice
rc $choice " Display, Enter, or Quit (D/E/Quit, Enter = QUIT)? "
test $choice = "Q" endit
test $choice = $cr endit
test $choice = "D" displayit
test $choice = "E" enterit
go endit
!
# DISPLAYIT
tr
tr
rc $choice " Local or Long Distance list (L/D, ENTER = Local)? "
test $choice = "D" longdistance
test $choice = "L" local
test $choice = $cr local
!
# LOCAL
tr $clear
newpage
tr
tr $BBSNAME "  Local Bulletin Board Listing"
tr
tr "Phone Number   BBS Name                  Modem      Speed  BBS Type "
tr "-------------  --------------------      -----      -----  -------- "
!
! CHANGE TO YOUR BBS DRIVE, TEXT DIRECTORY
!
ef d:\vbbs\txt\bbslocal.txt
!
tr
go choice
!
# LONGDISTANCE
tr $clear
newpage
tr
tr $BBSNAME "  Long Distance Bulletin Board Listing"
tr
tr "Phone Number   BBS Name              St  Modem      Speed  BBS Type "
tr "-------------  --------------------- --  -----      -----  -------- "
!
! CHANGE TO YOUR BBS DRIVE, TEXT DIRECTORY
!
ef d:\vbbs\txt\bbslongd.txt
!
tr
go choice
!
# ENTERIT
$state = $pad
$bbsn = $pad
$theac = $pad
$thepref = $pad
$thenum = $pad
$typem = $pad
$typeo = $pad
$typeb = $pad
$board = $pad
$choice = $pad
$ld = 0

tr $clear
newpage
tr
tr " Please enter the following information: "
tr
rs $theac "Enter the Area Code ==> "
!
!
! CHANGE TO CORRECT AREA CODE FOR YOUR BBS
!
if $theac <> "805" then
  tr
  rs $state "State this bbs is in (Example 'Az' for Arizona) ==> "
  $ac = "(" & $theac & ""
  $ld = 1
else
  $ac = "(" & $theac & ""
  $ld = 0
endif
tr
rs $thepref "Enter the FIRST 3 digits of the telephone number ==> "
!
! THIS IS AN "IN AREA" LONG DISTANCE CALL, PUT IT IN LD FILE
! CHANGE THIS "IF/THEN, ELSE" STATEMENTS AS NEEDED FOR YOUR AREA
!
if $thepref < "733" then       ! CHANGE TO MATCH YOUR STATE
  $ld = 1
endif
if $thepref > "737" then       ! CHANGE TO MATCH YOUR STATE
  $ld = 1
endif
!
tr
tr
!
tr
rs $thenum "Enter the LAST 4 digits of the telephone number ==> "
tr
rs $bbsn "BBS Name (21 characters maximum) ==> "
tr
tr "Modem Type: "
tr
tr "            A - Generic 2400 bps"
tr "            B - Hayes (HST 14.4k bps)"
tr "            C - Hayes (HST/DS 14.4k and V.32bis 14.4k bps)"
tr "            D - V.32 (CCITT 9600 bps) "
tr "            E - V.32bis (CCITT 14.4k bps) "
tr "            F - CompuCom (9600 bps) "
tr "            G - Other modem not listed
tr "                (Please leave Email to " $sysop " giving information)"
tr
rr $typeb abcdefg " Number ==> "
if $typeb = "A" then
  $typem = "Generic    2400"
endif
if $typeb = "B" then
  $typem = "HST        14.4"
endif
if $typeb = "C" then
  $typem = "HST/DS     14.4"
endif
if $typeb = "D" then
  $typem = "V.32       9600"
endif
if $typeb = "E" then
  $typem = "V.32bis    14.4"
endif
if $typeb = "F" then
  $typem = "CmpuCom    9600"

���������������-[ Aspect  Network @1520000 Virtual ADV 2.10 ]���������������Ŀ
� >> TELNET  HillCows.com  <<  Tucson Online BBS >> Elevation - Who Cares << �
�[   Virtual Advance    ]    Tucson Arizona 85730   [ AspectNet 1@1520000   ]�