home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / MYBOYHOS.ZIP / HOST.BSC < prev    next >
Encoding:
Text File  |  1989-12-02  |  7.4 KB  |  224 lines
  1. |IH
  2. \IE-%AN,HOST[\AM[H]]
  3. \CA+[{{\$Chat Ended.~.~. Returning to System]
  4. \IE-%AN,HOST[\DM[Unable to load HOST module.]\AB]
  5. \ZS\ST[HOST Mode Active]
  6. \CA+[\AV[0]\BB-\KO[0]\SP[0]\SL[0]\MV1[115]\SM12[\SC"[HOST;RS"]]\EC+\LF+]
  7. \CA+[\MV2[116]\GB[MU]]
  8. \DM1[--- Your Host Initializing ---] \\Insert anything for "Your"
  9. \CP[N]
  10. \BB-
  11. \AV[0]
  12. \KO[0]
  13. \SP[0]\SL[0]
  14. \MV5[12]
  15. \SM12[\SC"[HOST;RS"]]
  16. \SM119[\IV3+MODEM"[\CA-"[\GB"[WFC"]"]"]]
  17. \IV3-MODEM[\GB[WEL]]
  18. \GB[WFC]
  19. |WFC
  20. \SV6[]
  21. \SV1[New]
  22. \SM114["^"["[0;1m]
  23. \SM120["^"["[0;1m]
  24. \EC-\LF-
  25. ATE1S7=255S11=55V1X4S0=1{
  26. \WF[OK]~~
  27. \DM1[--- Host Waiting For Ring ---]
  28. \DM2[--- <Esc> quits Host mode ---]
  29. \TO[255]
  30. \WF[RING]
  31. \TO[7]
  32. \RE`0`[\WF[RING]\IW-[\GB[WFC]]]
  33. \TO[20]\WF[CONNECT]
  34. \IW-[\GB[WFC]]
  35. \IF+96[\CS[9600]\GB[WEL]]
  36. \IF+48[\CS[4800]\GB[WEL]]
  37. \IF+24[\CS[2400]\GB[WEL]]
  38. \IF+12[\CS[1200]\GB[WEL]]
  39. \CS[300]
  40. \GB[WEL]
  41. |WEL
  42. \IE-%AN,HOST[\AM[H]]
  43. \DM1[    Your Host OnLine...    ]  \\Substitute anything for "Your"
  44. \EC+\LF+
  45. \PL
  46. \IV3-MODEM[\DC[type PATH\welcome.msg]] \\Substitute path where you have
  47. \IV3+MODEM[\DC[send PATH\Welcome.msg]] \\welcome.msg ex: C:\Boyan\welcome.msg
  48. ^[[24;1f
  49. {{\$Enter your FIRST and LAST name:^[[2C\)
  50. \RV6[50]\(
  51. \\        AREA TO ADD AUTHORIZED USERS
  52. \IV6+SYSOP[\SV1[YOURPW]\SV2[0]\GB[PW]] \\Put your name in for Sysop and your
  53. \IV6+USER #1[\SV1[USERPASS]\SV2[0]\GB[PW]] \\PW in for yourpw, same for users
  54. \IV6+USER #2[\SV1[USER@PASS]\SV2[0]\GB[PW]] \\you want to add..you can add
  55. \IV6+USER #3[\SV1[USER3PASS]\SV2[0]\GB[PW]]  \\as many lines to this block as
  56. \IV6+USER #4[\SV1[USER4PASS]\SV2[0]\GB[PW]] \\you need for # of users.
  57. \\        END OF MY AUTH USERS -- ADD LINES AS NEEDED
  58. \IV1+new[\${{You must be a new user {Type ""New"" at Password prompt\)]
  59. \IV1+new[\${{{You are limited to MESSAGE SELECTIONS or TALK only!\UF*\UM[%V6]]
  60. \UF*
  61. \SV2[0]
  62. \GB[PW]
  63. |PW
  64. \IV2+3[{{Access denied... Goodbye %V6!\GB[GBY]]
  65. {\$Password:^[[2C\)
  66. \RV0[15]\(
  67. \IE-%V0,%V1[\${Wrong Password -- Try again\+V2[1]\GB[PW]]
  68. \SV2[0]
  69. \GB[COLOR]
  70. |COLOR
  71. {{\$Do you want color text? (Y/N)\)^[[2C
  72. \RV0[1]\(
  73. \II-%V0,yn[{{\$I don't understand %V0..Please try again\GB[COLOR]]
  74. \IV0+n[\GB[MU]]
  75. \IV0+y[\GB[MYTEXT]]
  76. |MYTEXT
  77. {{{^[[20C^[[0;1;34m(B)lue    ^[[32m(G)reen   ^[[36m(C)yan  ^[[31m(R)ed
  78. {^[[20C^[[35m(P)urple  ^[[33m(Y)ellow  ^[[0;1m(None)
  79. {{\$Color of text TO you:\)^[[2C
  80. \RV0[1]\(
  81. \II-%V0,bgcrpyn[\${{I don't understand %V0 - try again.\GB[MYTEXT]]
  82. \IV0+N[\SM114["^"["[0;1m]\GB[YRTXT]]
  83. \IV0+B[\SM114["^"["[0;1;34m]\GB[YRTXT]]
  84. \IV0+G[\SM114["^"["[0;1;32m]\GB[YRTXT]]
  85. \IV0+C[\SM114["^"["[0;1;36m]\GB[YRTXT]]
  86. \IV0+R[\SM114["^"["[0;1;31m]\GB[YRTXT]]
  87. \IV0+P[\SM114["^"["[0;1;35m]\GB[YRTXT]]
  88. \SM114["^"["[0;1;33m]\GB[YRTXT]]
  89. |YRTXT
  90. \${{Color of text FROM you:^[[2C\)
  91. \RV0[1]\(
  92. \II-%V0,bgcrpyn[{\$I don't understand %V0 - try again.\GB[YRTXT]]
  93. \IV0+N[\SM120["^"["[0;1m]\GB[MU]]
  94. \IV0+B[\SM120["^"["[0;1;34m]\GB[MU]]
  95. \IV0+G[\SM120["^"["[0;1;32m]\GB[MU]]
  96. \IV0+C[\SM120["^"["[0;1;36m]\GB[MU]]
  97. \IV0+R[\SM120["^"["[0;1;31m]\GB[MU]]
  98. \IV0+P[\SM120["^"["[0;1;35m]\GB[MU]]
  99. \SM120["^"["[0;1;33m]\GB[MU]]
  100. |MU
  101. \IV2+3[{{\${{Standby.~.~.~.~.~ \PA[3]]
  102. \IV2+3[{{Too many illegal function attempts ... Logging %V6 off"!\GB[GBY]]
  103. {{
  104. \CA-[\DC[type PATH\main.mnu]]  \\Substitute your path to the main.mnu file
  105. \CA+[\DC[send PATH\main.mnu]]   \\EX:  C:\BOYAN\Main.mnu
  106. ^[[24;1f\$Selection:^[[2C\)
  107. \TO[255]
  108. \RV0[1]\(
  109. \II-%V0,lrwefduvctsg[\${{Try again--I think you hit a wrong key\GB[MU]]
  110. \IV0+T[\GB[CHAT]]
  111. \IV0+G[\GB[GBY]]
  112. \IV0+L[\$\DC[send PATH\msg.lst]\PA[3]\GB[MU]] \\Substitute the path to your
  113. \IV0+R[\GB[RM]]                              \\list of available msgs..doesn't
  114. \IV0+W[\GB[EM]]                             \\have to be same directory as msgs
  115. \IV0+C[\GB[MYTEXT]]
  116. \IV1+new[\${{You're not authorized this..select message functions or chat only]
  117. \IV1+new[\+V2[1]\GB[MU]]
  118. \IV0+F[{{^[[24C\$\DC[send PATH\file.lst]\PA[5]\GB[MU]] \\Put in path for where
  119. \IV0+V[\GB[VIEW]]                                \\your list of available files
  120. \IV0+U[\GB[UP]]                                  \\will be kept, doesn't have
  121. \IV0+D[\GB[DL]]                           \\to be same dir as where files are.
  122. \IV1-PW[\${{Selection unauthorized -- only Sysop can do this..\+V2[1]\GB[MU]]
  123. \IV0+E[\GB[DEL]]              \\Substitute your password for "PW" line above
  124. \IV0+S[{{\$YOUR Host Shutting Down\PA[2]] \\Substitute anything for "Your"
  125. \IV0+S[\PA[2]\HU\ZS\PA[1]ATS0=0{~~~\AB]
  126. |VIEW
  127. {\$Enter name of file to view:^[[2C\)\(
  128. \RV0[14]
  129. \SV0[%V4%V0]
  130. \FE-%V0[{{\$File doesn't exist...\GB[MU]]
  131. \$\DC[flist %V0]\PA[5]
  132. \GB[MU]
  133. |CHAT
  134. \SM116[%V2]\SM115[%V1]
  135. {{\$Initiate Chat Mode on your end and wait 10 seconds..
  136. {If Sysop hasn't responded by then, return to terminal mode...
  137. \AV[10]\AL[2]{Paging Sysop.~.~.~.
  138. \PA[10]\${{Try later... return to terminal mode....\GB[MU]
  139. |DEL
  140. {{\$Name of message to delete? (no extension)^[[2C\)
  141. \RV0[14]\(
  142. \SV0[PATH\%V0.msg]   \\Substitute path where your messages will be kept
  143. \FE-%V0[{{\$That message doesn't exist...\GB[MU]]
  144. \DC[del %V0]
  145. \DC[dir PATH1\*.msg >PATH2\msg.lst]        \\PATH1=path where messages are
  146. \GB[MU]                                 \\PATH2=path where list of messages is
  147. |RM
  148. {{\$Name of message to Read (No extension):^[[2C\)
  149. \RV0[14]
  150. \SV0[PATH\%V0.msg]             \\Substitute path where msgs are kept
  151. \FE-%V0[{{\$That message doesn't exist...\GB[MU]]
  152. \CA-[\DC[type %V0]]
  153. \CA+[{{\$\DC[send %V0]\PA[3]]
  154. \GB[MU]
  155. |EM
  156. {{\$Your message title (no extension):^[[2C\)
  157. \RV0[14]
  158. \SV0[PATH\%V0.msg]             \\Substitute path where msgs are kept
  159. \FE+%V0[{{\$That message already exists..\GB[MU]]
  160. \${{I don't have wordwrap ...Press return on blank line to save message{
  161. {\$^[[6C=============== From %V6 ==== %MO/%DA at %HR:%MI ==============={{
  162. \AF%V0[=========== From %V6 ==== %MO/%DA at %HR:%MI ===========]
  163. \AF%V0[]
  164. \SV9[1]\BL[GML]
  165. \DC[dir PATH1\*.msg >PATH2\msg.lst]      \\PATH1=where msgs are kept, PATH2=
  166. {{\$Message saved                         \\where list of messages is kept
  167. \GB[MU]
  168. |GML
  169. ^[[75C\$<CR^[[77D%V9:^[[2C\)
  170. \RV8[69]\(
  171. \AF%V0[%V8]
  172. \IV8+[\EB]
  173. {\+V9[1]\GB[GML]
  174. \GB[MU]
  175. |DL
  176. {{\${What file would you like?\)^[[2C
  177. \RV0[14]\(
  178. \SV0[%V4%V0]
  179. \FE-%V0[\${{File not found\GB[MU]]
  180. \BL[SP]
  181. {{\$Sending %V0
  182. {Protocol:  %V9
  183. {{Start the transfer at your end now
  184. \UL%V9[%V0]
  185. \IT+[{\$Download Successful{|{\$Download Unsuccessful]
  186. \GB[MU]
  187. |UP
  188. {{\$File Name or \@(\!Q\@)\$ to Quit:^[[2C\)\(
  189. \RV0[14]\(
  190. \IV0+Q[\GB[MU]]
  191. \IV0+[\GB[MU]]
  192. \SV0[PATH\%V0]           \\PATH=where you want uploaded files to go
  193. \FE+%V0[{\${{Thanks, but I already have that one\GB[MU]]
  194. \BL[SP]
  195. \${{Ready to receive your file
  196. \DL%V9[%V0]
  197. \IT+[\${{Upload successful... ]
  198. \IT-[\${{Ooops"!..What happened?\GB[MU]]
  199. \IT+[{{\$Updating records.~.~.~.  Thanks for file]
  200. \DC[dir PATH1\*.* >PATH2\new.lst]  \\PATH1=path to where your uploads go
  201. \GB[MU]                            \\PATH2=path to where list of new files is
  202. |SP
  203. \IV3-MODEM[\DC[type prot.mnu]]
  204. \IV3+MODEM[\DC[send prot.mnu]]
  205. {{\$Enter Your Selection:^[[2C\)
  206. \RV9[1]\(
  207. \II-%V9,z1ygcqxlj[{{\$Invalid selection....\GB[SP]]
  208. \IP-[{\$Sysop doesn't have that one installed yet..try again\GB[SP]]
  209. \IV9+Q[\GB[MU]]
  210. |GBY
  211. {{\$\ULa[PATH\goodbye.msg]  \\Substitute path to goodbye.msg
  212. \IV3+MODEM[\PA[2]\HU~~]
  213. \ZS
  214. \DM10,1[Last Caller Was %V6 at %HR:%MI]
  215. \SV6[]
  216. \IV3+MODEM[\GB[WFC]]
  217. \GB[WEL]
  218. |RS
  219. \DM1[-------- Your Host Finished --------] \\Substitute anything for "Your"
  220. \SM12[%V5]
  221. \IV5+\SC"[HOST;RS"][\SM12[]]
  222. \zs
  223. \AM[A]
  224.