home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
myboyhos.zip
/
HOST.BSC
< prev
next >
Wrap
Text File
|
1989-12-02
|
8KB
|
224 lines
|IH
\IE-%AN,HOST[\AM[H]]
\CA+[{{\$Chat Ended.~.~. Returning to System]
\IE-%AN,HOST[\DM[Unable to load HOST module.]\AB]
\ZS\ST[HOST Mode Active]
\CA+[\AV[0]\BB-\KO[0]\SP[0]\SL[0]\MV1[115]\SM12[\SC"[HOST;RS"]]\EC+\LF+]
\CA+[\MV2[116]\GB[MU]]
\DM1[--- Your Host Initializing ---] \\Insert anything for "Your"
\CP[N]
\BB-
\AV[0]
\KO[0]
\SP[0]\SL[0]
\MV5[12]
\SM12[\SC"[HOST;RS"]]
\SM119[\IV3+MODEM"[\CA-"[\GB"[WFC"]"]"]]
\IV3-MODEM[\GB[WEL]]
\GB[WFC]
|WFC
\SV6[]
\SV1[New]
\SM114["^"["[0;1m]
\SM120["^"["[0;1m]
\EC-\LF-
ATE1S7=255S11=55V1X4S0=1{
\WF[OK]~~
\DM1[--- Host Waiting For Ring ---]
\DM2[--- <Esc> quits Host mode ---]
\TO[255]
\WF[RING]
\TO[7]
\RE`0`[\WF[RING]\IW-[\GB[WFC]]]
\TO[20]\WF[CONNECT]
\IW-[\GB[WFC]]
\IF+96[\CS[9600]\GB[WEL]]
\IF+48[\CS[4800]\GB[WEL]]
\IF+24[\CS[2400]\GB[WEL]]
\IF+12[\CS[1200]\GB[WEL]]
\CS[300]
\GB[WEL]
|WEL
\IE-%AN,HOST[\AM[H]]
\DM1[ Your Host OnLine... ] \\Substitute anything for "Your"
\EC+\LF+
\PL
\IV3-MODEM[\DC[type PATH\welcome.msg]] \\Substitute path where you have
\IV3+MODEM[\DC[send PATH\Welcome.msg]] \\welcome.msg ex: C:\Boyan\welcome.msg
^[[24;1f
{{\$Enter your FIRST and LAST name:^[[2C\)
\RV6[50]\(
\\ AREA TO ADD AUTHORIZED USERS
\IV6+SYSOP[\SV1[YOURPW]\SV2[0]\GB[PW]] \\Put your name in for Sysop and your
\IV6+USER #1[\SV1[USERPASS]\SV2[0]\GB[PW]] \\PW in for yourpw, same for users
\IV6+USER #2[\SV1[USER@PASS]\SV2[0]\GB[PW]] \\you want to add..you can add
\IV6+USER #3[\SV1[USER3PASS]\SV2[0]\GB[PW]] \\as many lines to this block as
\IV6+USER #4[\SV1[USER4PASS]\SV2[0]\GB[PW]] \\you need for # of users.
\\ END OF MY AUTH USERS -- ADD LINES AS NEEDED
\IV1+new[\${{You must be a new user {Type ""New"" at Password prompt\)]
\IV1+new[\${{{You are limited to MESSAGE SELECTIONS or TALK only!\UF*\UM[%V6]]
\UF*
\SV2[0]
\GB[PW]
|PW
\IV2+3[{{Access denied... Goodbye %V6!\GB[GBY]]
{\$Password:^[[2C\)
\RV0[15]\(
\IE-%V0,%V1[\${Wrong Password -- Try again\+V2[1]\GB[PW]]
\SV2[0]
\GB[COLOR]
|COLOR
{{\$Do you want color text? (Y/N)\)^[[2C
\RV0[1]\(
\II-%V0,yn[{{\$I don't understand %V0..Please try again\GB[COLOR]]
\IV0+n[\GB[MU]]
\IV0+y[\GB[MYTEXT]]
|MYTEXT
{{{^[[20C^[[0;1;34m(B)lue ^[[32m(G)reen ^[[36m(C)yan ^[[31m(R)ed
{^[[20C^[[35m(P)urple ^[[33m(Y)ellow ^[[0;1m(None)
{{\$Color of text TO you:\)^[[2C
\RV0[1]\(
\II-%V0,bgcrpyn[\${{I don't understand %V0 - try again.\GB[MYTEXT]]
\IV0+N[\SM114["^"["[0;1m]\GB[YRTXT]]
\IV0+B[\SM114["^"["[0;1;34m]\GB[YRTXT]]
\IV0+G[\SM114["^"["[0;1;32m]\GB[YRTXT]]
\IV0+C[\SM114["^"["[0;1;36m]\GB[YRTXT]]
\IV0+R[\SM114["^"["[0;1;31m]\GB[YRTXT]]
\IV0+P[\SM114["^"["[0;1;35m]\GB[YRTXT]]
\SM114["^"["[0;1;33m]\GB[YRTXT]]
|YRTXT
\${{Color of text FROM you:^[[2C\)
\RV0[1]\(
\II-%V0,bgcrpyn[{\$I don't understand %V0 - try again.\GB[YRTXT]]
\IV0+N[\SM120["^"["[0;1m]\GB[MU]]
\IV0+B[\SM120["^"["[0;1;34m]\GB[MU]]
\IV0+G[\SM120["^"["[0;1;32m]\GB[MU]]
\IV0+C[\SM120["^"["[0;1;36m]\GB[MU]]
\IV0+R[\SM120["^"["[0;1;31m]\GB[MU]]
\IV0+P[\SM120["^"["[0;1;35m]\GB[MU]]
\SM120["^"["[0;1;33m]\GB[MU]]
|MU
\IV2+3[{{\${{Standby.~.~.~.~.~ \PA[3]]
\IV2+3[{{Too many illegal function attempts ... Logging %V6 off"!\GB[GBY]]
{{
\CA-[\DC[type PATH\main.mnu]] \\Substitute your path to the main.mnu file
\CA+[\DC[send PATH\main.mnu]] \\EX: C:\BOYAN\Main.mnu
^[[24;1f\$Selection:^[[2C\)
\TO[255]
\RV0[1]\(
\II-%V0,lrwefduvctsg[\${{Try again--I think you hit a wrong key\GB[MU]]
\IV0+T[\GB[CHAT]]
\IV0+G[\GB[GBY]]
\IV0+L[\$\DC[send PATH\msg.lst]\PA[3]\GB[MU]] \\Substitute the path to your
\IV0+R[\GB[RM]] \\list of available msgs..doesn't
\IV0+W[\GB[EM]] \\have to be same directory as msgs
\IV0+C[\GB[MYTEXT]]
\IV1+new[\${{You're not authorized this..select message functions or chat only]
\IV1+new[\+V2[1]\GB[MU]]
\IV0+F[{{^[[24C\$\DC[send PATH\file.lst]\PA[5]\GB[MU]] \\Put in path for where
\IV0+V[\GB[VIEW]] \\your list of available files
\IV0+U[\GB[UP]] \\will be kept, doesn't have
\IV0+D[\GB[DL]] \\to be same dir as where files are.
\IV1-PW[\${{Selection unauthorized -- only Sysop can do this..\+V2[1]\GB[MU]]
\IV0+E[\GB[DEL]] \\Substitute your password for "PW" line above
\IV0+S[{{\$YOUR Host Shutting Down\PA[2]] \\Substitute anything for "Your"
\IV0+S[\PA[2]\HU\ZS\PA[1]ATS0=0{~~~\AB]
|VIEW
{\$Enter name of file to view:^[[2C\)\(
\RV0[14]
\SV0[%V4%V0]
\FE-%V0[{{\$File doesn't exist...\GB[MU]]
\$\DC[flist %V0]\PA[5]
\GB[MU]
|CHAT
\SM116[%V2]\SM115[%V1]
{{\$Initiate Chat Mode on your end and wait 10 seconds..
{If Sysop hasn't responded by then, return to terminal mode...
\AV[10]\AL[2]{Paging Sysop.~.~.~.
\PA[10]\${{Try later... return to terminal mode....\GB[MU]
|DEL
{{\$Name of message to delete? (no extension)^[[2C\)
\RV0[14]\(
\SV0[PATH\%V0.msg] \\Substitute path where your messages will be kept
\FE-%V0[{{\$That message doesn't exist...\GB[MU]]
\DC[del %V0]
\DC[dir PATH1\*.msg >PATH2\msg.lst] \\PATH1=path where messages are
\GB[MU] \\PATH2=path where list of messages is
|RM
{{\$Name of message to Read (No extension):^[[2C\)
\RV0[14]
\SV0[PATH\%V0.msg] \\Substitute path where msgs are kept
\FE-%V0[{{\$That message doesn't exist...\GB[MU]]
\CA-[\DC[type %V0]]
\CA+[{{\$\DC[send %V0]\PA[3]]
\GB[MU]
|EM
{{\$Your message title (no extension):^[[2C\)
\RV0[14]
\SV0[PATH\%V0.msg] \\Substitute path where msgs are kept
\FE+%V0[{{\$That message already exists..\GB[MU]]
\${{I don't have wordwrap ...Press return on blank line to save message{
{\$^[[6C=============== From %V6 ==== %MO/%DA at %HR:%MI ==============={{
\AF%V0[=========== From %V6 ==== %MO/%DA at %HR:%MI ===========]
\AF%V0[]
\SV9[1]\BL[GML]
\DC[dir PATH1\*.msg >PATH2\msg.lst] \\PATH1=where msgs are kept, PATH2=
{{\$Message saved \\where list of messages is kept
\GB[MU]
|GML
^[[75C\$<CR^[[77D%V9:^[[2C\)
\RV8[69]\(
\AF%V0[%V8]
\IV8+[\EB]
{\+V9[1]\GB[GML]
\GB[MU]
|DL
{{\${What file would you like?\)^[[2C
\RV0[14]\(
\SV0[%V4%V0]
\FE-%V0[\${{File not found\GB[MU]]
\BL[SP]
{{\$Sending %V0
{Protocol: %V9
{{Start the transfer at your end now
\UL%V9[%V0]
\IT+[{\$Download Successful{|{\$Download Unsuccessful]
\GB[MU]
|UP
{{\$File Name or \@(\!Q\@)\$ to Quit:^[[2C\)\(
\RV0[14]\(
\IV0+Q[\GB[MU]]
\IV0+[\GB[MU]]
\SV0[PATH\%V0] \\PATH=where you want uploaded files to go
\FE+%V0[{\${{Thanks, but I already have that one\GB[MU]]
\BL[SP]
\${{Ready to receive your file
\DL%V9[%V0]
\IT+[\${{Upload successful... ]
\IT-[\${{Ooops"!..What happened?\GB[MU]]
\IT+[{{\$Updating records.~.~.~. Thanks for file]
\DC[dir PATH1\*.* >PATH2\new.lst] \\PATH1=path to where your uploads go
\GB[MU] \\PATH2=path to where list of new files is
|SP
\IV3-MODEM[\DC[type prot.mnu]]
\IV3+MODEM[\DC[send prot.mnu]]
{{\$Enter Your Selection:^[[2C\)
\RV9[1]\(
\II-%V9,z1ygcqxlj[{{\$Invalid selection....\GB[SP]]
\IP-[{\$Sysop doesn't have that one installed yet..try again\GB[SP]]
\IV9+Q[\GB[MU]]
|GBY
{{\$\ULa[PATH\goodbye.msg] \\Substitute path to goodbye.msg
\IV3+MODEM[\PA[2]\HU~~]
\ZS
\DM10,1[Last Caller Was %V6 at %HR:%MI]
\SV6[]
\IV3+MODEM[\GB[WFC]]
\GB[WEL]
|RS
\DM1[-------- Your Host Finished --------] \\Substitute anything for "Your"
\SM12[%V5]
\IV5+\SC"[HOST;RS"][\SM12[]]
\zs
\AM[A]