;[ The EzyCom Scripting Crew ]
;[ BBSList 04/12/96          ]
;[ Pass these Parameters in  ]
;[ EzyMenu: /NOLOG           ]
;[ Menu Option 12            ]
;[ Written by MiNDFLUX       ]

Capitalize FIRSTLETTER

ChangeColor 8 0
ClearScreen
Display"||"
Display"ESC Presents:|"
Display"J0 M0ma Runs a BeBe-ess, BBS List|"
Display"Version Wouldn'tJ00LiketoGno||"
ChangeColor 9 0
Display "Are you sure you want to add a BBS to the list? [Y/n] "
GETCHOICE YN 1 Y
IF 1 = "Y"
GOSUB ADDBBS
else
GOTO QUIT
endif

:ADDBBS
Capitalize OFF
ChangeColor 9 0
Display"||What is the Phone Number of This BBS|"
ChangeColor 13 0
Display"XXX-XXX-XXXX|"
ChangeColor 15 0
ask 12 2
if 2 = ""
goto quit
endif
ChangeColor 9 0
Display"|"
Display"What is the name of the BBS you wish to add|"
ChangeColor 15 0
ask 45 3
if 3 = ""
goto quit
endif
ChangeColor 9 0
Display"|"
Display"What is the Name of the SysOp of this BBS|"
ChangeColor 15 0
ask 20 4
if 4 = ""
goto quit
endif
ChangeColor 9 0
Display"|"
Display"What is the Maximum Baud Rate this BBS Supports|"
Display"2400-28800|"
ChangeColor 15 0
ask 5 5
if 5 < 2400
goto quit
endif
if 5 > 33600
goto quit
endif
if 5 = ""
goto quit
endif
ChangeColor 9 0
Display"|"
Display"What BBS Software does this BBS run|"
ChangeColor 15 0
ask 15 6
if 6 = ""
goto quit
endif
ChangeColor 9 0
Display"|"
Display"Please enter a brief 1 line Description of the BBS|"
ChangeColor 15 0
ask 60 7
if 7 = ""
goto quit
endif
ChangeColor 15 0
Display"|"
Display"BBS Number: "
DISPLAYASW 2
Display"BBS Name  : "
DISPLAYASW 3
Display"SysOp     : "
DISPLAYASW 4
ChangeColor 9 0
Display"Baudrate  : "
DISPLAYASW 5
ChangeColor 11 0
Display"Software  : "
DISPLAYASW 6
ChangeColor 13 0
Display"Comment   : "
DISPLAYASW 7
ChangeColor 12 0
Capitalize FIRSTLETTER
Display"|"
Display"Are these answers correct? [Y/n]"
GETCHOICE YN 8 Y
IF 8 = "Y"
gosub end
else
quit
endif

:end
OutputAnswer ""
OutputAnswer "[0;1mPhone Number : " 2
OutputAnswer "[0;1mBBS Name     : " 3
OutputAnswer "[0;1mSysOp Name   : " 4
OutputAnswer "[34mBBS Baudrate : " 5
OutputAnswer "[36mBBS Software : " 6
OutputAnswer "[35mDescription  : " 7
quit

:quit
ChangeColor 12 0
Display"|"
Display"Something was wrong with your entry, bbs-lister aborted."
Waitenter
quit
