home *** CD-ROM | disk | FTP | other *** search
-
- :Menu
- clearscreen
- display " ╔═══════════════════════════════════╗ |"
- display " ║ INTERFACE Other BBS's List ║ |"
- display " ╠═══════════════════════════════════╣ |"
- display " ║ ║ |"
- display " ║ [A]dd to the BBS list ║ |"
- display " ║ [D]ownload the List ║ |"
- display " ║ [H]elp with Abrev/Codes ║ |"
- display " ║ [L]ist Other BBS's ║ |"
- display " ║ [Q]uit ║ |"
- display " ║ ║ |"
- display " ╚═══════════════════════════════════╝ |"
- getchoice ADHLQ 31
- if 31 = "A"
- gotolabel Add
- endif
- if 31 = "D"
- gotolabel sendit
- endif
- if 31 = "H"
- gotolabel Help
- endif
- if 31 = "L"
- gotolabel List
- endif
- if 31 = "Q"
- display "|"
- display "|"
- quit
- endif
- quit
- :
-
- :Add
- clearscreen
- changecolor 14
- display "What is the BBS Name (20 chars max)....? "
- changecolor 15
- ask 20 1
- changecolor 14
- display "BBS Phone Number ( ###-###-#### )..... ? "
- changecolor 15
- ask 12 2
- changecolor 14
- display "State or Province ( 2 chars max )..... ? "
- changecolor 15
- ask 2 3
- changecolor 14
- display "What is the Maximum Baud Rate ........ ? |"
- changecolor 7
- display "120[0] [2]400 [4]800 [9]600 [1]9.2 [3]8.4 :"
- changecolor 15
- getchoice 012349 4
- display "|"
- changecolor 14
- display "What are the Hours of Availability ... ? |"
- changecolor 7
- display "[A]ll/24hrs [D]aytime only [N]ights Only |"
- display "[S]trange Hrs [V]ariable hrs [W]eekends 24hrs "
- changecolor 15
- getchoice ADNSVW 5
- changecolor 14
- display "|"
- display "What is the Access Status for the BBS. ? |"
- changecolor 7
- display "[C]ontrolled [F]ee Charged [O]pen [P]rivate "
- changecolor 15
- getchoice CFOP 6
- changecolor 14
- display "|"
- display "What is the Sysop's Name (18 chars).. ? "
- changecolor 15
- ask 18 7
- changecolor 14
- display "BBS Software used (8 chars max)...... ? "
- changecolor 15
- ask 8 8
- changecolor 14
- display "The Month and Year you personally called |"
- display " when this system was Online (mm/yy)..? "
- changecolor 15
- ask 5 9
- gotolabel showinfo
- :
-
- :showinfo
- clearscreen
- Display "HERE'S THE INFORMATION YOU'VE SUPPLIED ! |"
- Display "|"
- display "1. BBS Name ..........: "
- listanswer 1
- display "2. BBS Phone Number ..: "
- listanswer 2
- display "3. State/Province ....: "
- listanswer 3
- display "4. Maximum Baud Rate .: "
- listanswer 4
- display "5. BBS Hours .........: "
- listanswer 5
- display "6. System Access .....: "
- listanswer 6
- display "7. Sysop's Name ......: "
- listanswer 7
- display "8. BBS Software ......: "
- listanswer 8
- display "9. Date Checked Online: "
- listanswer 9
- display "|"
- display "Select: [A]bort [E]dit [S]ave Info |"
- getchoice AES 20
- if 20 = "A"
- gotolabel menu
- endif
- if 20 = "E"
- gotolabel edit
- endif
- if 20 = "s"
- gotolabel saveit
- endit
- gotolabel menu
- :
-
- :edit
- Display "|"
- changecolor 15
- Display "Which entry do you want to change ? (1-9) ? "
- changecolor 14
- ask 2 30
- if 30 = "1"
- gotolabel k1
- endif
- if 30 = "2"
- gotolabel k2
- endif
- if 30 = "3"
- gotolabel k3
- endif
- if 30 = "4"
- gotolabel k4
- endif
- if 30 = "5"
- gotolabel k5
- endif
- if 30 = "6"
- gotolabel k6
- endif
- if 30 = "7"
- gotolabel k7
- endif
- if 30 = "8"
- gotolabel k8
- endif
- if 30 = "9"
- gotolabel k9
- endif
-
- display "|"
- changecolor 15
- display "Incorrect choice, please try again|"
- display "|"
- changecolor 7
- display "Press <ENTER>"
- ask 1 39
- gotolabel showinfo
- :
-
- :k1
- clearscreen
- changecolor 14
- display "What is the BBS Name (20 chars max)....? "
- changecolor 15
- ask 20 1
- gotolabel showinfo
- :
-
- :k2
- clearscreen
- changecolor 14
- display "BBS Phone Number ( ###-###-#### )..... ? "
- changecolor 15
- ask 12 2
- gotolabel showinfo
- :
-
- :k3
- clearscreen
- changecolor 14
- display "State or Province ( 2 chars max )..... ? "
- changecolor 15
- ask 2 3
- gotolabel showinfo
- :
-
-
- :k4
- clearscreen
- changecolor 14
- display "What is the Maximum Baud Rate ........ ? |"
- changecolor 7
- display "120[0] [2]400 [4]800 [9]600 [1]9.2 [3]8.4 |"
- changecolor 15
- getchoice 012349 4
- gotolabel showinfo
- :
-
- :k5
- clearscreen
- changecolor 14
- display "What are the Hours of Availability ... ? |"
- changecolor 7
- display "[A]ll/24hrs [D]aytime only [N]ights Only |"
- display "[S]trange Hrs [V]ariable hrs [W]eekends 24hrs "
- changecolor 15
- getchoice ADNSVW 5
- gotolabel showinfo
- :
-
- :k6
- clearscreen
- changecolor 14
- display "What is the Access Status for the BBS. ? |"
- changecolor 7
- display "[C]ontrolled [F]ee Charged [O]pen [P]rivate |"
- changecolor 15
- getchoice CFOP 6
- gotolabel showinfo
- :
-
- :k7
- clearscreen
- changecolor 14
- display "What is the Sysop's Name (18 chars).. ? "
- changecolor 15
- ask 18 7
- gotolabel showinfo
- :
-
- :k8
- clearscreen
- changecolor 14
- display "BBS Software used (8 chars max)...... ? "
- changecolor 15
- ask 8 8
- gotolabel showinfo
- :
-
- :k9
- clearscreen
- changecolor 14
- display "The Month and Year you personally called |"
- display " when this system was Online (mm/yy)..? "
- changecolor 15
- ask 5 9
- gotolabel showinfo
- :
-
-
- :saveit
- output "#1L20 #2L12 #3L2 #4L1 #5L1 #6L1 #7L18 #8L8 #9L5 " f:\qbbs\misFILES\BBS.ASC
- gotolabel menu
- :
-
- :List
- clearscreen
- displayfile BBSHDR
- displayfile BBS
- display " <<< PRESS RETURN >>>|"
- ask 0 39
- gotolabel menu
- :
-
- :help
- clearsceen
- Displayfile BBSHLP
- display "|"
- display " <<< PRESS RETURN >>>|"
- ask 0 39
- gotolabel menu
- :
-
- :sendit
- display "|"
- display "|"
- display "Select which Protocol to Download the BBS List with: |"
- display "[A]bort [X]modem [Y]modem [Z]modem "
- getchoice axyz 15
- if 15 = "x"
- display "|"
- display "|"
- Display "Sending BBSLIST.ASC ... by xmodem|"
- run dsz.com sx f:\qbbs\misFILES\BBS.ASC
- endif
- if 15 = "y"
- display "|"
- display "|"
- Display "Sending BBSLIST.ASC ... by ymodem|"
- run dsz.com sb f:\qbbs\misFILES\BBS.ASC
- endif
- if 15 = "z"
- display "|"
- display "|"
- Display "Sending BBSLIST.ASC ... by zmodem|"
- run dsz.com sz -r f:\qbbs\misfiles\BBS.ASC
- endif
-
- gotolabel menu
- :
-