home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / MARK24_A.ZIP / MARK.BSC < prev    next >
Text File  |  1993-09-17  |  120KB  |  1,868 lines
  1. \\ Mark Host for Boyan. 9/16/93  Ver. 2.4 by Mark & Cindi Sherman.
  2. \\ This software is Shareware, you are encouraged to register & distribute it.
  3. \\
  4. \\ UNLESS THE EXPRESS PERMISION IS OBTAINED FROM THE ABOVE AUTHORS, AND OTHER
  5. \\ AUTHORS THAT WROTE PARTS THAT MIGHT HAVE BEEN USED AS IDEEAS AND BLOCKS,
  6. \\ THIS PROGRAM MAY NOT BE DISTRIBUTED, MODIFIED, INCLUDED IN ANY PACKAGES, 
  7. \\ FOR PROFIT, UNDER PENALTY OF LAW.
  8. \\
  9. \\ If you'd like to thank me for the time spent writing this, and some advice
  10. \\ setting up your new Host, you can send what you can to:
  11. \\ P.O. Box 4162, L.I.C. NY 11104 New York.
  12. \\
  13. \\ For our contributors, the latest version of this script, Markxx.zip plus
  14. \\ support, is available from 718 786 6134,,,,,  Number needs to be dialed as
  15. \\ shown (with commas at the end). When prompted for the "Level Increase Code"
  16. \\ just enter your personal Password.
  17.  
  18. |InitHost
  19. \SV0[] \SV1[] \SV6[] \SV7[] \SV8[] \SV9[] \SVA[]      \\ Clear variables
  20. \SVB[] \SVC[] \SVD[] \SVE[] \SVF[] \SVG[] \SVI[] \SVJ[] \SVK[] \SVL[] \SVM[] 
  21. \SVN[] \SVP[] \SVPW[] \SVR[] \SVS[] \SVT[] \SVU[] \SVV[] \SVW[] \SVX[] \SVY[] 
  22. \SVZ[] \SP[0] \SL[0] \KO[100] \ST[] \SN[]
  23. \AU- \AV[6] \BB- \ND[%B:] \NC[7] \DMC[31] \ZS
  24. \ZS \DMC[31] \IE-%AN,HOST[\AM[H]]               \\ If not active, change to the Host module
  25. \ST[ Loading the Host Module]
  26. \IE-%AN,HOST[\UM[Unable to load HOST module.]\DM24[Unable to load HOST module.]\AB]
  27. \ST[Checking the Dialer Status] \IE-%QS,0[\IE+%HR,%VQ[\CA+[\GB[*Tab]]]]
  28. \\  The following checks if we have the Host Directories configured O.K.
  29. \ST[Checking Host Message Directory]
  30. \IV4+[\ZS\DMC[09]\DM20,10[ Your Host Message Directory is Missing! ]\SV0[N]]
  31. \ST[Checking Files Message Directory]
  32. \IV5+[\ZS\DMC[10]\DM20,12[ Your Host Files   Directory is Missing! ]\SV0[N]]
  33. \IV0+N[\RE5[~\AL2[0]] \SV0[] \CB[A]]
  34. \ST[Checking Host Message Directory]
  35. \IV4+[\ZS\DMC[09]\DM20,10[ Your Host Message Directory is Missing! ]\SV0[N]]
  36. \ST[Checking Files Message Directory]
  37. \IV5+[\ZS\DMC[10]\DM20,12[ Your Host Files   Directory is Missing! ]\SV0[N]]
  38. \IV0+N[\RE5[~\AL2[0]]\SV0[]\CB[A]] \\ If not configured yet, try one more time!
  39. \IV4+[\SV0[N]] \ST[Checking Host Message Directory]
  40. \IV5+[\SV0[N]] \ST[Checking Files Message Directory]
  41. \IV0+N[\ZS\DMC[79]\DM20,10[ Your Host Directories need to be configured! ]\DMC[31]\RE5[~\AL2[0]]\AB]
  42. \\ If not there yet, make Host Message Directory:
  43. \FE-%V4`WELCOME.MSG[\SV0[%V4]\LV0[]\SV0[%LV]\+V0[-1]\SV1[%V4]\LV1[%V0]\DC[MD %V1]]
  44. \FE-%V4`WELCOME.MSG[\AF%V1"\WELCOME.MSG[]] \FE-%V4`WELCOME.MSG[\SV0[N]]
  45. \IV0+N[\ZS\DMC[79]\DM22,10[ Can't create Host Message Directory. ]\DMC[31]\RE5[~\AL2[0]]\AB]
  46. \ST[Checking Host's Doors Directory] \\ If not there yet, make Host's Doors Directory
  47. \FE-%B:DOORS"\DOORS.DIR[\DC[MD %B:DOORS]]
  48. \FE-%B:DOORS"\DOORS.DIR[\AF%B:DOORS"\DOORS.DIR[Do not delete this file %B:DOORS"\DOORS.DIR]]
  49. \FE-%B:DOORS"\DOORS.DIR[\ZS\DMC[79]\DM22,10[ Can't create Host's Doors Directory.]]
  50. \FE-%B:DOORS"\DOORS.DIR[\DMC[31]\RE5[~\AL2[0]]\AB]
  51. \SV0[%B:]\LV0[]\SV0[%LV]\+V0[-1]\SV1[%B:]\LV1[%V0]\SV1[CD %V1 | BOYAN.COM MARK.BSC]
  52. \ST[Checking Host Door A Sub Directory.]
  53. \FE-%B:DOORS"\DOORA"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORA ]]
  54. \FE-%B:DOORS"\DOORA"\BOYAN.BAT[    \AF%B:DOORS"\DOORA"\BOYAN.BAT[%V1] ]
  55. \FE-%B:DOORS"\DOORA"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorA Sub Directory! ]]
  56. \FE-%B:DOORS"\DOORA"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  57. \ST[Checking Host Door B Sub Directory.]
  58. \FE-%B:DOORS"\DOORB"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORB ]]
  59. \FE-%B:DOORS"\DOORB"\BOYAN.BAT[    \AF%B:DOORS"\DOORB"\BOYAN.BAT[%V1] ]
  60. \FE-%B:DOORS"\DOORB"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorB Sub Directory! ]]
  61. \FE-%B:DOORS"\DOORB"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  62. \ST[Checking Host Door C Sub Directory.]
  63. \FE-%B:DOORS"\DOORC"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORC ]]
  64. \FE-%B:DOORS"\DOORC"\BOYAN.BAT[    \AF%B:DOORS"\DOORC"\BOYAN.BAT[%V1] ]
  65. \FE-%B:DOORS"\DOORC"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorC Sub Directory! ]]
  66. \FE-%B:DOORS"\DOORC"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  67. \ST[Checking Host Door D Sub Directory.]
  68. \FE-%B:DOORS"\DOORD"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORD ]]
  69. \FE-%B:DOORS"\DOORD"\BOYAN.BAT[    \AF%B:DOORS"\DOORD"\BOYAN.BAT[%V1] ]
  70. \FE-%B:DOORS"\DOORD"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorD Sub Directory! ]]
  71. \FE-%B:DOORS"\DOORD"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  72. \ST[Checking Host Door E Sub Directory.]
  73. \FE-%B:DOORS"\DOORE"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORE ]]
  74. \FE-%B:DOORS"\DOORE"\BOYAN.BAT[    \AF%B:DOORS"\DOORE"\BOYAN.BAT[%V1] ]
  75. \FE-%B:DOORS"\DOORE"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorE Sub Directory! ]]
  76. \FE-%B:DOORS"\DOORE"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  77. \ST[Checking Host Door F Sub Directory.]
  78. \FE-%B:DOORS"\DOORF"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORF ]]
  79. \FE-%B:DOORS"\DOORF"\BOYAN.BAT[    \AF%B:DOORS"\DOORF"\BOYAN.BAT[%V1] ]
  80. \FE-%B:DOORS"\DOORF"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorF Sub Directory! ]]
  81. \FE-%B:DOORS"\DOORF"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  82. \ST[Checking Host Door G Sub Directory.]
  83. \FE-%B:DOORS"\DOORG"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORG ]]
  84. \FE-%B:DOORS"\DOORG"\BOYAN.BAT[    \AF%B:DOORS"\DOORG"\BOYAN.BAT[%V1] ]
  85. \FE-%B:DOORS"\DOORG"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorG Sub Directory! ]]
  86. \FE-%B:DOORS"\DOORG"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  87. \ST[Checking Host Door H Sub Directory.]
  88. \FE-%B:DOORS"\DOORH"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORH ]]
  89. \FE-%B:DOORS"\DOORH"\BOYAN.BAT[    \AF%B:DOORS"\DOORH"\BOYAN.BAT[%V1] ]
  90. \FE-%B:DOORS"\DOORH"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorH Sub Directory! ]]
  91. \FE-%B:DOORS"\DOORH"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  92. \ST[Checking Host Door I Sub Directory.]
  93. \FE-%B:DOORS"\DOORI"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORI ]]
  94. \FE-%B:DOORS"\DOORI"\BOYAN.BAT[    \AF%B:DOORS"\DOORI"\BOYAN.BAT[%V1] ]
  95. \FE-%B:DOORS"\DOORI"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorI Sub Directory! ]]
  96. \FE-%B:DOORS"\DOORI"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  97. \ST[Checking Host Door J Sub Directory.]
  98. \FE-%B:DOORS"\DOORJ"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORJ ]]
  99. \FE-%B:DOORS"\DOORJ"\BOYAN.BAT[    \AF%B:DOORS"\DOORJ"\BOYAN.BAT[%V1] ]
  100. \FE-%B:DOORS"\DOORJ"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorJ Sub Directory! ]]
  101. \FE-%B:DOORS"\DOORJ"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  102. \ST[Checking Host Door K Sub Directory.]
  103. \FE-%B:DOORS"\DOORK"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORK ]]
  104. \FE-%B:DOORS"\DOORK"\BOYAN.BAT[    \AF%B:DOORS"\DOORK"\BOYAN.BAT[%V1] ]
  105. \FE-%B:DOORS"\DOORK"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorK Sub Directory! ]]
  106. \FE-%B:DOORS"\DOORK"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  107. \ST[Checking Host Door L Sub Directory.]
  108. \FE-%B:DOORS"\DOORL"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORL ]]
  109. \FE-%B:DOORS"\DOORL"\BOYAN.BAT[    \AF%B:DOORS"\DOORL"\BOYAN.BAT[%V1] ]
  110. \FE-%B:DOORS"\DOORL"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorL Sub Directory! ]]
  111. \FE-%B:DOORS"\DOORL"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  112. \ST[Checking Host Door M Sub Directory.]
  113. \FE-%B:DOORS"\DOORM"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORM ]]
  114. \FE-%B:DOORS"\DOORM"\BOYAN.BAT[    \AF%B:DOORS"\DOORM"\BOYAN.BAT[%V1] ]
  115. \FE-%B:DOORS"\DOORM"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorM Sub Directory! ]]
  116. \FE-%B:DOORS"\DOORM"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  117. \ST[Checking Host Door N Sub Directory.]
  118. \FE-%B:DOORS"\DOORN"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORN ]]
  119. \FE-%B:DOORS"\DOORN"\BOYAN.BAT[    \AF%B:DOORS"\DOORN"\BOYAN.BAT[%V1] ]
  120. \FE-%B:DOORS"\DOORN"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorN Sub Directory! ]]
  121. \FE-%B:DOORS"\DOORN"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  122. \ST[Checking Host Door O Sub Directory.]
  123. \FE-%B:DOORS"\DOORO"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORO ]]
  124. \FE-%B:DOORS"\DOORO"\BOYAN.BAT[    \AF%B:DOORS"\DOORO"\BOYAN.BAT[%V1] ]
  125. \FE-%B:DOORS"\DOORO"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorO Sub Directory! ]]
  126. \FE-%B:DOORS"\DOORO"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  127. \ST[Checking Host Door P Sub Directory.]
  128. \FE-%B:DOORS"\DOORP"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORP ]]
  129. \FE-%B:DOORS"\DOORP"\BOYAN.BAT[    \AF%B:DOORS"\DOORP"\BOYAN.BAT[%V1] ]
  130. \FE-%B:DOORS"\DOORP"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorP Sub Directory! ]]
  131. \FE-%B:DOORS"\DOORP"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  132. \ST[Checking Host Door R Sub Directory.]
  133. \FE-%B:DOORS"\DOORR"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORR ]]
  134. \FE-%B:DOORS"\DOORR"\BOYAN.BAT[    \AF%B:DOORS"\DOORR"\BOYAN.BAT[%V1] ]
  135. \FE-%B:DOORS"\DOORR"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorR Sub Directory! ]]
  136. \FE-%B:DOORS"\DOORR"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  137. \ST[Checking Host Door S Sub Directory.]
  138. \FE-%B:DOORS"\DOORS"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORS ]]
  139. \FE-%B:DOORS"\DOORS"\BOYAN.BAT[    \AF%B:DOORS"\DOORS"\BOYAN.BAT[%V1] ]
  140. \FE-%B:DOORS"\DOORS"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorS Sub Directory! ]]
  141. \FE-%B:DOORS"\DOORS"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  142. \ST[Checking Host Door T Sub Directory.]
  143. \FE-%B:DOORS"\DOORT"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORT ]]
  144. \FE-%B:DOORS"\DOORT"\BOYAN.BAT[    \AF%B:DOORS"\DOORT"\BOYAN.BAT[%V1] ]
  145. \FE-%B:DOORS"\DOORT"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorT Sub Directory! ]]
  146. \FE-%B:DOORS"\DOORT"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  147. \ST[Checking Host Door U Sub Directory.]
  148. \FE-%B:DOORS"\DOORU"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORU ]]
  149. \FE-%B:DOORS"\DOORU"\BOYAN.BAT[    \AF%B:DOORS"\DOORU"\BOYAN.BAT[%V1] ]
  150. \FE-%B:DOORS"\DOORU"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorU Sub Directory! ]]
  151. \FE-%B:DOORS"\DOORU"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  152. \ST[Checking Host Door V Sub Directory.]
  153. \FE-%B:DOORS"\DOORV"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORV ]]
  154. \FE-%B:DOORS"\DOORV"\BOYAN.BAT[    \AF%B:DOORS"\DOORV"\BOYAN.BAT[%V1] ]
  155. \FE-%B:DOORS"\DOORV"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorV Sub Directory! ]]
  156. \FE-%B:DOORS"\DOORV"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  157. \ST[Checking Host Door W Sub Directory.]
  158. \FE-%B:DOORS"\DOORW"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORW ]]
  159. \FE-%B:DOORS"\DOORW"\BOYAN.BAT[    \AF%B:DOORS"\DOORW"\BOYAN.BAT[%V1] ]
  160. \FE-%B:DOORS"\DOORW"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorW Sub Directory! ]]
  161. \FE-%B:DOORS"\DOORW"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  162. \ST[Checking Host Door X Sub Directory.]
  163. \FE-%B:DOORS"\DOORX"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORX ]]
  164. \FE-%B:DOORS"\DOORX"\BOYAN.BAT[    \AF%B:DOORS"\DOORX"\BOYAN.BAT[%V1] ]
  165. \FE-%B:DOORS"\DOORX"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorX Sub Directory! ]]
  166. \FE-%B:DOORS"\DOORX"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  167. \\ If not there yet, make Level 1 Host Temp Upload Directory:
  168. \FE-%V5TEMP"\DIR1[\SV0[%V5]\LV0[]\SV0[%LV]\+V0[-1]\SV1[%V5]\LV1[%V0]]
  169. \FE-%V5TEMP"\DIR1[\DC[MD %V1 | MD %V1\TEMP] \AF%V1"\TEMP"\DIR1[Do not Delete this file %V1\TEMP"\DIR1]]
  170. \FE-%V5TEMP"\DIR1[\SV0[N]]
  171. \IV0+N[\ZS\DMC[79]\DM10,10[ Can't create Host Temp Upload Directory file %V5TEMP"\DIR1 ]\DMC[31]\RE5[~\AL2[0]]\AB]
  172. \SV0[] \SV1[] \\ If not there yet, make Level 2 Host Temp Upload Directory:
  173. \SV0[%V5]\LV0[]\SV0[%LV]\+V0[-1] \\ Remove the backwards slash from the path
  174. \IV0+15[\+V0[-5]]\IV0+14[\+V0[-4]]\IV0+13[\+V0[-3]]\IV0+12[\+V0[-2]]\IV0+11[\+V0[-1]]
  175. \SV1[%V5] \LV1[%V0] \SV0[%V1"2]
  176. \FE-%V0"\TEMP"\DIR2[\DC[MD %V0 | MD %V0"\TEMP] \AF%V0"\TEMP"\DIR2[Do not Delete this file %V0"\TEMP"\DIR2]]
  177. \FE-%V0"\TEMP"\DIR2[\SV1[N]]
  178. \IV1+N[\ZS\DMC[79]\DM10,10[ Can't create Host Temp Upload Directory file %V0"\TEMP"\DIR2 ]\DMC[31]\RE5[~\AL2[0]]\AB]
  179. \SV0[%V1"3]   \\ If not there yet, make Level 3 Host Temp Upload Directory:
  180. \FE-%V0"\TEMP"\DIR3[\DC[MD %V0 | MD %V0"\TEMP] \AF%V0"\TEMP"\DIR3[Do not Delete this file %V0"\TEMP"\DIR3]]
  181. \FE-%V0"\TEMP"\DIR3[\SV1[N]]
  182. \IV1+N[\ZS\DMC[79]\DM10,10[ Can't create Host Temp Upload Directory file %V0"\TEMP"\DIR3 ]\DMC[31]\RE5[~\AL2[0]]\AB]
  183. \SV0[%V1"4]   \\ If not there yet, make Level 4 Host Temp Upload Directory:
  184. \FE-%V0"\TEMP"\DIR4[\DC[MD %V0 | MD %V0"\TEMP] \AF%V0"\TEMP"\DIR4[Do not Delete this file %V0"\TEMP"\DIR4]]
  185. \FE-%V0"\TEMP"\DIR4[\SV1[N]]
  186. \IV1+N[\ZS\DMC[79]\DM10,10[ Can't create Host Temp Upload Directory file %V0"\TEMP"\DIR4 ]\DMC[31]\RE5[~\AL2[0]]\AB]
  187. \BL[AreaCodes] \UM[++++ Host Mode Invoked on %MO/%DA/%YR at %HR:%MI +++++]
  188. \ZS \GB[WaitForCall]
  189.  
  190. |AreaCodes
  191. \ST[Checking the Area Codes Config.] \SV8[NotFound]
  192. \SV1[This is Host's Call Back feature's List of Acceptable Area Codes:]
  193. \FE+%F:AREACODE[\RE[\GV7[%F:AREACODE] \II+%V1,%V7[\SV8[]\EM] \II+^Z,%V7[\EM] ] ]
  194. \FE+%F:AREACODE[\GV7[]]
  195. \IV8-[\ST[Creating the Area Codes File.] \AF%F:AREACODE[%V1] \DMC[31]
  196. `\IV8-[\DM4,4[ ╔═════════════════════════════════════════════════════════════════════╗ ]]
  197. `\IV8-[\DM4,5[ ║                                                                     ║ ]]
  198. `\IV8-[\DM4,6[ ║  Please enter your Host's acceptable Call Back Area Codes,          ║ ]]
  199. `\IV8-[\DM4,7[ ║  as you would dial them from your phone.  Don't put your local one! ║ ]]
  200. `\IV8-[\DM4,8[ ║                                                                     ║ ]]
  201. `\IV8-[\DM4,9[ ║  For dialing long distance, in most USA States a ""1"" is required    ║ ]]
  202. \IV8-[\DM4,10[ ║  in front of the number.  Please DO include it, in that case.       ║ ]]
  203. \IV8-[\DM4,11[ ║                                                                     ║ ]]
  204. \IV8-[\DM4,12[ ║  Unless entered and saved now, your Host will NOT dial back to an   ║ ]]
  205. \IV8-[\DM4,13[ ║  Area Code requested by a first time caller.                        ║ ]]
  206. \IV8-[\DM4,14[ ║                                                                     ║ ]]
  207. \IV8-[\DM4,15[ ╚═════════════════════════════════════════════════════════════════════╝ ]]
  208. \IV8-[\SV7[] \SV1[] \BB+ \BL[Numbers] \BB- \SV0[] \SV1[] \SV7[] \SV8[] \DMC[31]]
  209.  
  210. |Numbers
  211. \KV0[ Area code or "[Q"] to Quit: ] 
  212. \IV0-Q[\RE[\KV1 [  Okay to call back %V0  (Y/n)  ] \II+%V1,Y,N[\EM]]]
  213. \IV0-Q[\IV1+Y[\SV7[%V7  %V0,]]]
  214. \IV0-Q[\DMC[156]\DM6,14[%V7]]
  215. \IV0-Q[\IV1+Y[\AF%F:AREACODE[%V0]]]
  216. \IV0+Q[\EB | \BL[Numbers]]
  217.  
  218. |WaitForCall
  219. \PL \SVO[Waiting] \AM[H] \EC- \LF- \KO[100] \ND[%V4] \NC[7] \AV[6] \BB-
  220. \SV0[]\SV1[]\SV6[]\SV7[]\SV8[]\SV9[]\SVA[]\SVB[] \\ Clear variables
  221. \SVC[]\SVD[]\SVE[]\SVF[]\SVG[]\SVI[]\SVJ[]\SVK[]\SVM[]\SVN[]\SVP[]\SVPW[]\SVR[]
  222. \SVS[]\SVT[]\SVU[]\SVV[]\SVW[]\SVX[]\SVY[]\SVZ[]\SP[0]\SL[0]
  223. \CA+[\SVG[%MS] \SVJ[Y] \SVL[1] \GB[Welcome]] \\ If carrier detected when started Host, set the User level to 1, go to Welcome
  224. \IV3-MODEM[\GB[Welcome]]                     \\ Go to Welcome if not a modem connection
  225. \CP[None] \CS[%MM] \MA[3] \TO[7]   \\ Change to modem's maximum speed, no parity
  226. ATX4S0=0{                          \\ Initialize your modem
  227. \WF[OK] \TO[120] \IW-[{\UM[No "OK" from modem, WaitForCall block.]\GB[Cycle]]
  228. `````````` \DM48,1[ ╔═════════════════════════════╗ ]
  229. ```````````\DM48,2[ ║  Waiting for calls...       ║ ]
  230. ```````````\DM48,3[ ╠═════════════════════════════╣ ]
  231. ```````````\DM48,4[ ║  "[Tab"] Sysop Menu           ║ ]
  232. ```````````\DM48,5[ ║  "[Esc"] Quits Host Mode      ║ ]
  233. ```````````\DM48,6[ ║  "[A"]   Answers manually     ║ ]
  234. \II+%UF,ON[\DM48,7[ ║   Activity log is now on    ║ ] | \DM48,7[ ║   Activity log is now off   ║ ]]
  235. ```````````\DM48,8[ ╠═════════════════════════════╣ ]
  236. ```````````\DM48,9[ ║  Boyan 5 Host  Ver. 2.4     ║ ]
  237. ``````````\DM48,10[ ║  09/16/93 by Mark Sherman.  ║ ]
  238. ``````````\DM48,11[ ╚═════════════════════════════╝ ]
  239. \\ The following line checks if the Dialer is set to Dial at a certain 
  240. \\ Hour, and if the hours match, exits for Dialer script and comes back.
  241. \ND[%S:]\FE-%S:Dialer.BSC[\SVQ[] \SVH[]] \\ Empty variables Q and H if Dialer script not found
  242. \IE+%QS,0[\SVQ[] \SVH[]]                 \\ Empty variables Q and H if the Queue is empty
  243. \FE+%S:Dialer.BSC[\IVQ-[\IE-%QS,0[\RE[\IE-%HR,%VQ[\ST[Dialing at %VQ hr. %HR:%MI:%SE]\If+RING[\EM]\IE+%IK,A[\EM]|\BL[Dialer]]]]]]
  244. \\  If the Dialer script is not running, just wait for RING:
  245. \IVQ+[\RE[\ST[   Date: %MO/%DA/%YR   Time: %HR:%MI:%SE]\IF+RING[\EM]\IE+%IK,A[\EM]]]
  246. \IV2-13[\TO[7] \SV0[%V2] \+V0[-1]] \\ Let %V0 = tot. number of rings -1
  247. \IV2-13[\RE%V0[\WF[RING]]]         \\ Wait for %V0 additional rings.
  248. \IV2-12[\IV2-13[\IW-[\UM[The phone rang only once: %MO/%DA/%YR at %HR:%MI.]\GB[WaitForCall]]]] \\ If not enough rings, go to block WaitForCall.
  249. \NC[113] \ZS  \\ Temporarilly make your screen bright, so you can see it from another room!
  250. ATA{                  \\ Tell your Modem to Answer the Phone,
  251. \TO[60] \WF[CONNECT]  \\ and wait 60 seconds for the "CONNECT" message.
  252. \IW-[{\UM[Host answered phone, no modem detected on %MO/%DA/%YR at %HR:%MI.]\GB[Cycle]] \\ If not found, cycle for next call.
  253. \WP[5]                \\ Wait for  a pause of 5 seconds
  254. \IW-[{\UM[Modem detected, bad connection on %MO/%DA/%YR at %HR:%MI.]\GB[Cycle]] \\ If not found, cycle for next call.
  255. \IF+57600[\SVG[57600]\SVJ[Y]\IE+%AD,ON[\CS[19200]]] \\ Toggle Variable J as [Y]es [N]o [M]essage
  256. \IF+38400[\SVG[38400]\SVJ[Y]\IE+%AD,ON[\CS[19200]]] \\ to activate the desired speeds then,
  257. \IF+19200[\SVG[19200]\SVJ[Y]\IE+%AD,ON[\CS[%VG]]]   \\ if the amount of rings equals 13,
  258. \IF+16800[\SVG[16800]\SVJ[Y]\IE+%AD,ON[\CS[19200]]] \\ a caller (not SysOp) will be disconnected.
  259. \IF+14400[\SVG[14400]\SVJ[Y]\IE+%AD,ON[\CS[19200]]] \\ If the amount of rings not 13, an advice
  260. \IF+12000[\SVG[12000]\SVJ[Y]\IE+%AD,ON[\CS[19200]]] \\ message (upgrade the modem) will be sent.
  261. \IF+9600[ \SVG[9600] \SVJ[Y]\IE+%AD,ON[\CS[%VG]]]
  262. \IF+4800[ \SVG[4800] \SVJ[M]\IE+%AD,ON[\CS[%VG]]]
  263. \IF+2400[ \SVG[2400] \SVJ[M]\IE+%AD,ON[\CS[%VG]]]
  264. \IF+1200[ \SVG[1200] \SVJ[M]\IE+%AD,ON[\CS[%VG]]]
  265. \IF+300[  \SVG[300]  \SVJ[N]\IE+%AD,ON[\CS[%VG]]]
  266. \NC[7] \ZS \GB[Welcome]
  267.  
  268. |StartTime
  269. \SVC[] \SVS[] \SVT[] \SVK[] \SVS[%hr] \SVT[%MI]
  270. \IVL+0[ \SVK[20] \SVC[``C```GI````````X`]]  \\ Set the available time and
  271. \IVL+1[ \SVK[45] \SVC[``CDEFGIK`MNPRVUXWZ]] \\ commands for each user level
  272. \IVL+2[ \SVK[45] \SVC[``CDEFGIK`MNPRVUXWZ]]  
  273. \IVL+3[ \SVK[120] \SVC[``CDEFGIK`MNPRVUXWZ]]
  274. \IVL+4[ \SVK[360]\SVC[ABCDEFGIJKLMNPRSVUXWZ]]
  275. \+VK[%MI] \SVK[%VK] \SV0[] \SV1[]
  276. \SV0[%V5] \LV0[] \SV0[%LV]\+V0[-1]      \\ Remove the backwards slash from  Upload the path
  277. \IV0+15[\+V0[-5]] \IV0+14[\+V0[-4]] \IV0+13[\+V0[-3]] \IV0+12[\+V0[-2]]
  278. \IV0+11[\+V0[-1]] \SV1[%V5] \LV1[%V0] \SVY[%V1]     \\ %VY is %V5 without the backwards slash
  279. \II+%VL,0,1[\SVU[%V5TEMP"\] | \SVU[%V1%VL"\TEMP"\]] \\ %VU is the User's Upload Temp path for that level
  280. \FE+%V4`HostFil.Tmp[\DC[Del %V4`HostFil.Tmp]] \SV0[] \SV1[] \\ Delete HostMsg.Tmp if it exists
  281.  
  282. |Timer
  283. \SVT[%MI] \IE-%VS,%HR[\+vt[60]] \SVD[%VK] \+VD[-%VT] 
  284. \IVD+4[{" Please consider finishing the current activity.{]
  285. \IVD+3[{" Please consider finishing the current activity.{]
  286. \IVD+2[{" Your time limit is about to expire.  Prepare to logoff.{]
  287. \IVD+1[{" Your time limit is about to expire.  Prepare to logoff.{]
  288. \IVD+0[^G{" In a few seconds, you will be disconnected.{]
  289. \ii+-,%vD[\svD[x]\UM[Time limit expired.]{Time limit expired!{\IVM+%UN[\GB[SaveComment]]\GB[LogOff]]
  290. \IV3+LOCAL[\ST[ Local   Lev. %VL "[Tab"] for Sys. Menu]]
  291. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[%VF %VD min.]
  292. \FE-%S:Dialer.BSC[\EM] \IE-%QS,0[\IE+%HR,%VQ[\IVM+%UN[\GB[SaveComment]]]]
  293. \FE-%S:Dialer.BSC[\EM] \IE-%QS,0[\IE+%HR,%VQ[\GB[*Tab]]] \\ If Queue not empty and VQ matches the Dialer Hour go to block Tab.
  294. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  295.  
  296. |Welcome
  297. \IV3-LOCAL[\CP[None]]                         \\ Make sure we've changed the
  298. \IV3-LOCAL[\IVG+57600[\IE+%AD,ON[\CS[19200]]] \\ Parity to None and the Speed,
  299. \IV3-LOCAL[\IVG+38400[\IE+%AD,ON[\CS[19200]]] \\ thank you Lee Breeden for
  300. \IV3-LOCAL[\IVG+19200[\IE+%AD,ON[  \CS[%VG]]] \\ suggesting this extra
  301. \IV3-LOCAL[\IVG+14400[\IE+%AD,ON[\CS[19200]]] \\ re-assurance!
  302. \IV3-LOCAL[\IVG+12000[\IE+%AD,ON[\CS[19200]]]
  303. `\IV3-LOCAL[\IVG+9600[\IE+%AD,ON[ \CS[%VG]]]]
  304. `\IV3-LOCAL[\IVG+4800[\IE+%AD,ON[ \CS[%VG]]]]
  305. `\IV3-LOCAL[\IVG+2400[\IE+%AD,ON[ \CS[%VG]]]]
  306. `\IV3-LOCAL[\IVG+1200[\IE+%AD,ON[ \CS[%VG]]]]
  307. ``\IV3-LOCAL[\IVG+300[\IE+%AD,ON[ \CS[%VG]]]]
  308. \ND[%V4] \IVG-[\UM[%VG baud connection.]]
  309. \FE+%V4`HostFil.Tmp[\DC[Del %V4`HostFil.Tmp]]   \\ Delete HostMsg.Tmp if it exists
  310. \FE+%V4`HostMsg.Tmp[\DC[Del %V4`HostMsg.Tmp]]   \\ Delete HostMsg.Tmp if it exists
  311. \FE+%V4`Comment.Tmp[\DC[Del %V4`Comment.Tmp]]   \\ Delete Comment.Tmp if it exists
  312. \FE+%Dr:\Boymark.Lst[\DC[Del %Dr:\Boymark.Lst]] \\ Delete Boymark.Lst if it exists
  313. \PL \BB- \SVO[Online] \AM[A] \EC+ \LF+
  314. \II+%HR,02,03,04,05,06,07[\AV[3] | \AV[6]]      \\ If late, set alarm lower.
  315. {{` Host Ver. 2.4 Written 09/16/93 by Mark Sherman, New York.{ \ZS \EC- \LF- \PL \ZS
  316. \CA+[ \RE2[~\AL2[0]~\AL2[0]~\AL2[1]~]] \AV[6]   \\ If CARRIER detected, beep few times
  317. \FE+%V4`WELCOME.MSG[ \ULA-[%V4`WELCOME.MSG]]    \\ If found, Ansi Upload the Welcome file 
  318. "[255D"[0;1;32m \PA[1] \PL \AM[H] \EC+ \LF+ \NC[10] \PL
  319. "                                                  ╔════════════════════════╗{
  320. "                                                  ║ You have connected to: ║{
  321. "                                                  ║  (Your Bbs Name here)  ║{
  322. "                                                  ║     (XXX) XXX-XXXX     ║{
  323. "                                                  ╚════════════════════════╝{{
  324. \IVJ+M[^G`Soon, I will no longer support %VG baud.~~~~{]
  325. \BL[GetName&PW] \IV3+Modem[\CA-[\UM[Carrier Lost, Welcome Block]\GB[Cycle]]]
  326. \IVN+[{{Try again:{{\BL[GetName&PW]]
  327. \IV3+Modem[\CA-[\UM[Carrier Lost, Welcome Block]\GB[Cycle]]]
  328. \IVN+[{{Last try, on this call:{{\BL[GetName&PW]] 
  329. \IV3+Modem[\CA-[\UM[Carrier Lost, Welcome Block]\GB[Cycle]]]
  330. \IVN+[^G {{Too many attempts!  Sorry, access denied.{\GB[Logoff]\EM]
  331. \IV2+13[\IVI-41[\IVJ+N[\UM[User: %VN, No %VG baud! - %MO/%DA/%YR-%HR:%MI]]]]
  332. \IV2+13[\IVI-41[\IVJ+N[ \ZS{Sorry, %VG baud not supported.{\GB[Logoff]\EM]]] \\ Logoff if not Sysop and speed not supported.
  333. \IV2+14[\IVI-41[\IVJ+N[\UM[User: %VN, No %VG baud! - %MO/%DA/%YR-%HR:%MI]]]]
  334. \IV2+14[\IVI-41[\IVJ+N[ \ZS{Sorry, %VG baud not supported.{\GB[Logoff]\EM]]] \\ Logoff if not Sysop and speed not supported.
  335. \BL[StartTime] \BL[Timer]
  336. \IVL+0[\FE-%V4`%VF.MS%VL[\FE+%V4`NEW.MSG[  \ZS \SVZ[%V4`NEW.MSG]\BL[List]] ]] \\ If personal message don't exists, remind the caller of "NEW.MSG" file
  337. \FE+%V4`%VF.MS%VL[  \ZS \GB[ReadPers]\EM] \\ Check for any Personal message
  338. \IVL+0[{Enter a message to SysOp before disconnecting?  (N/y) "[N"]^H^H \RV0[1] ] \\ If not Validated yet, ask about a message to SysOp
  339. \IV3+Modem[\CA-[\UM[Carrier Lost, Welcome Block]\GB[Cycle]]]
  340. \IVL+0[\IV0+Y[\GB[EnterComment] \EM ]]    \\ If Yes, go leave a Comment to SysOp
  341. \GB[Menu] \EM
  342.  
  343. |GetName&PW
  344. \ND[%B:] \TO[120]                         \\ Timeout to wait for User's Info.
  345. \SV0[] \SVB[] \SVD[] \SVE[] \SVP[] \SVR[]
  346. Enter your FIRST & LAST name: " \RVN[23]
  347. \IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block, User: %VN]\GB[Cycle]]]
  348. \IVN+[^G {Enter your FIRST & LAST name: " \RVN[23]]
  349. \IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block, User: %VN]\GB[Cycle]]]
  350. \IVN+[\UM[Blank Name.]^G  \ZS{{Incorrect logon, access denied.{\GB[Logoff]]
  351. \SVF[%VN] \II+ ,%VF[\LVF[%IM]]            \\ Set %VF = user's First name
  352. \SV0[%VN] \DV0[%II]
  353. \II+ ,%V0[\LV0[%IM] \SVN[%VF `%V0] \SV0[] | \SV0[] ]
  354. \II+;,%VN[\SV0[%VN] \DV0[%II] \LVN[%IM] ] \\ Parse "First Last;password"
  355. {Searching `\SVI[40] \BL[SearchUserBase]{
  356. \IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block]\GB[Cycle]]]
  357. \IVI+111[\UM[(New?) User %VN could not be found in the Database.]]
  358. \IVI+111[%VN could not be found in the Database.{]
  359. \IVI+111[\SVI[]\SVR[41]\RE[\TV1[%VR]\IV1+[\SVR[%VR]\EM]\+VR[1]]] \\ Search user base for blank #
  360. \IVR+111[Sorry, User base is full!{\UM[%VN, user base is full!]\GB[Logoff]]
  361. \IVI+[\IVR+41[\SVL[4]\SVJ[Y]] \IVL-[\SVI[%VR]] \GB[UserNotFound]] \\ If %VI empty=New User; If first User, it must be the SysOp, set level 4
  362. \IVL+[{Found your record, setting a user's level...{]
  363. \IVP+[{...your Password is missing,{]
  364. \IVE+[{...your Voice telephone number is missing,{]
  365. \IVP+[\IVL+[\SVL[1]]^G`{Please be kind and complete:{\GB[UserNotFound]]
  366. \IVL+[\SVL[1]`{Please be kind and complete:{\GB[UserNotFound]]
  367. \IVE+[\IVL+[\SVL[1]]`{Please be kind and complete:{\GB[UserNotFound]]
  368. \IV3+LOCAL[\UM[%VN Lev. %VL - Local Test - on %MO/%DA/%YR at %HR:%MI.]]
  369. \IVG-[\UM[%VN %VG baud, Lev. %VL on %MO/%DA/%YR at %HR:%MI.]]
  370. {Enter your password: " \RV0*[10]
  371. \IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block]\GB[Cycle]]]
  372. \IV0+[^G{Enter your password: " \RV0*[10]]
  373. \IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block]\GB[Cycle]]]
  374. \IV0+[\UM[Blank Password.]^G \ZS{{Incorrect logon, access denied.{\GB[Logoff]]
  375. \IV0-%VP[\UM[Entered the wrong password: %V0]]
  376. \IV0-%VP[\BL[SecondTry]]
  377. \IV0-%VP[\UM[Entered the wrong password: %V0]]
  378. \IV0-%VP[\BL[ThirdTry]]
  379. \IV0-%VP[\UM[Entered the wrong password: %V0]^G \ZS{{Access denied.{]
  380. \IV0-%VP[\GB[Logoff]\em]                  \\ Wrong password
  381. \IW-[\GB[Logoff]\em]                      \\ If no response, log user off!
  382. \SVX[OFF] \SV1[]   \ZS
  383.  
  384. |Secondtry
  385. \IV3+Modem[\CA-[\UM[Carrier Lost, Secondtry Block]\GB[Cycle]]]
  386. ^G {Wrong password, try again.{
  387. {Enter your password: " \RV0*[10] 
  388. \IV3+Modem[\CA-[\UM[Carrier Lost, Secondtry Block]\GB[Cycle]]]
  389.  
  390. |ThirdTry
  391. \IV3+Modem[\CA-[\UM[Carrier Lost, ThirdTry Block]\GB[Cycle]]]
  392. ^G {Wrong password.  Last try!{
  393. {Enter your password: " \RV0*[10] 
  394. \IV3+Modem[\CA-[\UM[Carrier Lost, ThirdTry Block]\GB[Cycle]]]
  395.  
  396. |SearchUserBase                      \\ Search for %VN; set %VP=pwd, %VL=level.
  397. \IV3+Modem[\CA-[\UM[Carrier Lost, SearchUserBase Block]\GB[Cycle]]]
  398. \RE[\+VI[1] \IVI+111[\EB] ■\TVA[%VI] \II+;,%VA[\EM]]  \\ loop until `;' in %VA
  399. \SVP[%VA]  \LVA[%IM]            \\ trim off name portion into %VA
  400. \IVA-%VN[\GB[SearchUserBase] |else \SVN[%VA]]
  401. \DVP[%II]  \II-;,%VP[\EB]            \\ If no ';' in remainder, we're done.
  402. \SVL[%VP]  \LVP[%IM]                 \\ trim off only password portion into %VP
  403. \DVL[%II]  \II-;,%VL[\EB]
  404. \SVE[%VL]  \LVL[%IM]                 \\ trim off user level portion into %VL
  405. \DVE[%II]  \II-"|.%VE[\EB]           \\ %VE contains rest of user base entry
  406. \LVL[%IM]
  407.  
  408. |UserNotFound
  409. \SV6[] \SV9[] \SVB[] \SVY[] \ND[%F:]
  410. {Did you enter your name correctly as %VN (Y/n) "[Y"]^H^H \RV0[1]
  411. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  412. \IV0+N[\UM[Name Incorrectly entered as %VN.] \SVN[] \EB] \\ This gives user a chance to re-enter the name
  413.  \ZS {{Call Back Verifier Ver. 2.4 written 09/16/93 by Mark Sherman,  New York.{{
  414. {Is your AREA CODE different than my AREA CODE?  (Y/n) "[ "]^H^H \RV6[1]
  415. \IV6+[^G{One more time, before disconnecting you!{]
  416. \II-%V6,Y,N[^G{One more time, before disconnecting you!{]
  417. \IV6+[{Is your AREA CODE different than my AREA CODE?  (Y/n) "[ "]^H^H \RV6[1]]
  418. \II-%V6,Y,N[{Is your AREA CODE different than my AREA CODE?  (Y/n) "[ "]^H^H \RV6[1]]
  419. \IV6+[\UM[%VN, wouldn't confirm Area Code.] \ZS{{Access denied.{\GB[Logoff]] \\ Log off if wouldn't confirm the Area Code.
  420. \II-%V6,Y,N[\UM[%VN, wouldn't confirm Area Code.] \ZS{{Access denied.{\GB[Logoff]] \\ Log off if wouldn't confirm the Area Code.
  421. \IV6+N[\SV6[¥]] \IV6-¥[{Please enter (only) the AREA CODE of your telephone number.{]
  422. \IV6-¥[Include a "1" in front, no spaces or brackets.   "1___^H^H^H^H \RV6[8]]
  423. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]] \IV6+[\SV6[¥]]
  424. {Enter your Telephone number. No Area Code, Spaces or Brackets! "_______^H^H^H^H^H^H^H \RV9[9]
  425. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  426. \IV9+[^G{One more time, before disconnecting you!{]
  427. \IV9+[{Enter your Telephone number. No Area Code, Spaces or Brackets! "_______^H^H^H^H^H^H^H \RV9[9]
  428. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  429. \IV9+[\UM[%VN, empty Phone Number!] \ZS{{Access denied.{\GB[Logoff]] \\ Empty Phone Number, logoff
  430. \IV6-¥[{Did you enter your Telephone number correctly as: %V6%V9  (Y/n) " \RV0[1]]
  431. \IV6+¥[{Did you enter your Telephone number correctly as: %V9  (Y/n) " \RV0[1]]
  432. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  433. \IV0+[^G{One more time, before disconnecting you!{]
  434. \II-%V0,Y,N[^G{One more time, before disconnecting you!{]
  435. \IV6-¥[\IV0+[{Did you enter your Telephone number correctly as: %V6%V9  (Y/n) " \RV0[1]]]
  436. \IV6+¥[\II-%V0,Y,N[{Did you enter your Telephone number correctly as: %V9  (Y/n) " \RV0[1]]]
  437. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  438. \IV0+[\UM[%VN, wouldn't confirm the Ph: %V6%V9] \ZS{{Access denied.{\GB[Logoff]] \\ Log off if wouldn't confirm the Phone Number
  439. \II-%V0,Y,N[\UM[%VN, wouldn't confirm the Ph: %V6%V9] \ZS{{Access denied.{\GB[Logoff]] \\ Log off if wouldn't confirm the Phone Number
  440. \IV0+N[\SVN[] \EB] \IV6+¥[\SVB[%V9] | \SVB[%V6%V9]] \SV1[]
  441. {Searching for any duplicates: " \BL[NotAllowed]
  442. \IV1+[\SV0[%V9] \LV0[3] \II+%V0,411,540,976[\SV1[is to be skipped]]] \\ Edit Info numbers here.
  443. \IV1+[\SV0[%V9] \LV0[] \SV0[%LV] \II+%V0,0,1,2,3,4[\SV1[is too short]]] \\ If main number is shorter than 5 figures skip it!
  444. \IV1-[\UM[Phone: %V6 %V9 %V1!] \IVL+[\UM[User prompted to log on again.]]] \\ Give another chance to re-enter the correct Phone number.
  445. \IV1-[^G   \ZS {{Phone %V1! \IVL+[\SVN[] \EB]]
  446. \SV1[40] \RE[■ \+V1[1] \IV1+111[\EM]\TVA[%V1] \II+%VB,%VA[\EM]]
  447. \IV1+%VI[\SVA[]] \\ If the Phone number belongs to the same user, empty %VA.
  448. \IVE-[\IVL-[\IV1-%VI[\UM[%VN, former Ph: %VE Entered the New PH: %VB.]]]]
  449. \II+%VB,%VA[\DMC[140]\DM1,1[This Phone number is being in use by User %V1!]\DMC[31]\RE7[~\AL2[0]]]
  450. \II+%VB,%VA[\IVL+[ \ZS{{This Phone number is being in use by another User.{^G~]]
  451. \II+%VB,%VA[\UM[%VN, entered Ph: %VB which belongs to user %V1!]]
  452. \II+%VB,%VA[\IVL+[{Sorry, only one Account per Phone number!{\GB[Logoff]^G~^G]] \\ Log off if wouldn't confirm the Phone Number
  453. \IV2+14[\IVL+[\IV0+Y[\UM[%VN, %VG baud - Ph: %VB - Denied access, Closed System.]]] \\ If 14 rings selected, Closed Host Mode.
  454. \IV2+14[\IVL+[\IV0+Y[  \ZS{Sorry, this Host is closed for new Users.{~~~~\GB[LogOff]]]] \\ If 14 rings selected, Closed Host Mode.
  455. \IV2+13[\IVL+[\IVJ+N[\UM[User: %VN, No %VG baud! Ph: %VB - %MO/%DA/%YR-%HR:%MI]]]]
  456. \IV2+13[\IVL+[\IVJ+N[  \ZS{Sorry, %VG baud not supported.{~~~~\GB[Logoff]]]] \\ Cycle if not Sysop and speed not supported.
  457. \IV6+¥[\SVJ[YES] | \SVJ[NO]]
  458. \IVL+[\IV6+NO[\RE[\GV7[%F:AREACODE] \II+%V6,%V7[ \SVJ[YES] \EM] \II+^Z,%V7[\EM]]]
  459. \IVL+[\IV6+NO[\GV7[]]] \SV1[0]
  460. \FE-%F:HISTORY[\AF%F:HISTORY[These numbers were called back by your Boyan Host:]]
  461. \RE[\GV7[%F:HISTORY] \II+%VB,%V7[\+V1[1]] \II+^Z,%V7[\EM] \IV1+10[\EM]]
  462. \GV7[] \IV1+10[\UM[%VN, %VG baud, already called 10 times Ph: %VB!]] \\ If allready called 10 times,
  463. \IV1+10[\IVL+[\IV0+Y[  \ZS{Sorry, %VB was already called 10 times!{~\GB[LogOff]]]] \\ do not accept, and LogOff
  464. \SV1[%F:DONTCALL]
  465. \FE+%F:DONTCALL[\RE[ \GV7[%V1] \ST[%v7] \II+^Z,%V7[\ST[]\EM] \II+%V9,%V7[\SV1[FOUND]\EM] ■]]
  466. \FE+%F:DONTCALL[\GV7[]\IV1+FOUND[\II+SKIP,%V7[\SV1[SKIP] | \SV1[BBS]]]]
  467. \IV1-%F:DONTCALL[\UM[Questionable Phone: %VB] \UM[%V7] ^G   \ZS{{]
  468. \IV1+SKIP[\IVL+[Sorry, can't validate you there!{~~~~\GB[Logoff]]] \\ If user's number is on the DONTCALL list, Logoff 
  469. \FE+%F:DONTCALL[\IV1+BBS[%VF, are you the SysOp of:{{ %V7{{]]
  470. \FE+%F:DONTCALL[\IV1+BBS[Answer "[Y"]es or "[N"]o  (Y/n) " \RV0[1]]]
  471. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  472. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\II-%V0,Y,N[^G{{`Before disconnecting: (Y/n) " \RV0[1]]]]]
  473. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+[^G{{`Before disconnecting: (Y/n) " \RV0[1]]]]]
  474. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  475. \FE+%F:DONTCALL[\IV1+BBS[\IV0+[\UM[No answer if Sys. at the above BBS]]]] \\ Log off if wouldn't answer
  476. \FE+%F:DONTCALL[\IV1+BBS[\II-%V0,Y,N[\UM[No answer if Sys. at the above BBS]]]] \\ Log off if wouldn't answer
  477. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+[ \ZS{{Access denied.{\GB[Logoff]]]]] \\ Log off if wouldn't answer
  478. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\II-%V0,Y,N[ \ZS{{Access denied.{\GB[Logoff]]]]] \\ Log off if wouldn't answer
  479. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+N[\UM[%VF isn't the SysOp of the above Bbs.]]]]]
  480. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+N[^G   \ZS{You MUST enter your OWN Phone number!]]]]
  481. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+N[\UM[User prompted to log on again.]\SVN[]\EB]]]] \\ Give another chance to re-enter the correct Phone number.
  482. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+Y[\UM[%VF claims to be the SysOp of the above Bbs.]]]]]
  483. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+Y[\SVJ[]]]]]
  484. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+Y[{{Would you grant me an account with your BBS? (Y/n)]]]]
  485. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+Y[ " \RV0[1]]]]]
  486. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  487. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\II-%V0,Y,N[^G{{`Before disconnecting: (Yes/no) " \RV0[1]]]]]
  488. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+[^G{{`Before disconnecting: (Yes/no) " \RV0[1]]]]]
  489. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  490. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+[\UM[No answer on granting access there]]]]]
  491. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\II-%V0,Y,N[\UM[No answer on granting access there]]]]] \\ Log off if wouldn't answer
  492. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\IV0+[ \ZS{{Access denied.{\GB[Logoff]]]]] \\ Log off if wouldn't answer
  493. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\II-%V0,Y,N[ \ZS{{Access denied.{\GB[Logoff]]]]] \\ Log off if wouldn't answer
  494. \FE+%F:DONTCALL[\IV1+BBS[\IVL+[\UM[Granting you access there? "[%V0"] ]]]]
  495. \IVJ+NO[\IVL+[ \ZS{Hmmm...  %VB is not a LOCAL number that I can call now...{]]
  496. \IVJ+NO[\IVL+[{Would you (later) accept a Collect call to voice{]]
  497. \IVJ+NO[\IVL+[validate you?  ...No, will disconnect  (Y/n) " \RV0[1]]]
  498. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  499. \IVJ+NO[\IVL+[\IV0+[^G{It doesn't look like you'll get validated!{...One more time:{]]]
  500. \IVJ+NO[\IVL+[\II-%V0,Y,N[^G{It doesn't look like you'll get validated!{...One more time:{]]]
  501. \IVJ+NO[\IVL+[\IV0+[{Would you (later) accept a Collect call to voice{]]]
  502. \IVJ+NO[\IVL+[\IV0+[validate you?  ...No, will disconnect  (Y/n) " \RV0[1]]]]
  503. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  504. \IVJ+NO[\IVL+[\II-%V0,Y,N[{Would you (later) accept a Collect call to voice{]]]
  505. \IVJ+NO[\IVL+[\II-%V0,Y,N[validate you?  ...No, will disconnect  (Y/n) " \RV0[1]]]]
  506. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  507. \IVJ+NO[\IVL+[\IV0+[ \ZS{{Access denied.{\GB[Logoff]]] \\ Log off if wouldn't answer
  508. \IVJ+NO[\IVL+[\II-%V0,Y,N[ \ZS{{Access denied.{\GB[Logoff]]] \\ Log off if wouldn't answer
  509. \IVJ+NO[\IVL+[\UM[%VN answered: %V0 about calling colect Ph: %VB]]]
  510. \IVJ+NO[\IVL+[\IV0-Y[  \ZS{Sorry %VF, can't make long distance calls!{\GB[Logoff]]]] \\ Logoff if we can't make long distance calls
  511. \IV1-DONTCALL[  \ZS] {{Choose your Password for this system: " \RVP*[10]
  512. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  513. \IVP+[^G{Blank Passwords are not allowed!{{Choose a Password: " \RVP*[10]]
  514. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  515. \IVP+[\UM[%VN, Ph: %VB entered an empty Password.] \ZS{{Access denied.{\GB[Logoff]] \\ Empty Password, log off
  516. {Type your Password again, to confirm: " \RV0*[10]
  517. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  518. \IVP+[\IV0+[^G{Type your Password again, to confirm: " \RV0*[10]]]
  519. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  520. \IE-%VP,%V0[^G{Your Passwords didn't match!{\UM[%VN, Ph: %VB passwords didn't match!]\SVN[]~~~~\EB]
  521. \IVI-[\SVE[Tel: %VB %VG baud %MO/%DA/%YR;]]              \\ If connected  when started Host, add entry to user base
  522. \IVI-[\UM[*** New User: %VN, %VL %VE ***]]               \\ If connected  when started Host, add entry to user base
  523. \IVI-[\TM%VI[%VN;%VP;%VL;%VE]\DC[COPY %B:HOST.CNF *.BAK]]\\ If connected  when started Host, add entry to user base
  524. \IVI-[  \ZS \BL[StartTime] \BL[Timer] \GB[Menu]]         \\ If connected  when started Host, add entry to user base and go to Menu
  525. \ND[%V4]\FE+%V4`NEW.MSG[ \ZS\SVZ[%V4`NEW.MSG]\BL[List]]  \\ Send "NEW.MSG" file if exists
  526. \FE+%V4`NEW.MSG[{Do you agree with the above? ...No, will disconnect you (Y/n) " \RV0[1]]
  527. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  528. \FE+%V4`NEW.MSG[\IV0+[^G{...One more time: (Y/n) " \RV0[1]]]
  529. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  530. \FE+%V4`NEW.MSG[\II-%V0,Y,N[^G{...One more time: (Y/n) " \RV0[1]]]
  531. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  532. \FE+%V4`NEW.MSG[\IV0+[\UM[%VN, no answer on Terms.] \ZS{{Access denied.{\GB[Logoff]] \\ Log off if wouldn't answer
  533. \FE+%V4`NEW.MSG[\II-%V0,Y,N[\UM[%VN, no answer on Terms.] \ZS{{Access denied.{\GB[Logoff]] \\ Log off if wouldn't answer
  534. \FE+%V4`NEW.MSG[\IV0+N[\GB[Notagree]]] \ND[%B:]
  535. \IVJ+YES[ \ZS{Next, my computer will make 1 attempt to call and verify{]
  536. \IVJ+YES[%VB.  You would be asked to type in your Password.{]
  537. \IVJ+YES[{{If you choose not to be called now, further access{]
  538. \IVJ+YES[will be denied, and you will be disconnected.{]
  539. \IVJ+YES[{{Are you ready to receive this call now?  (Y/n) " \RVY[1]]
  540. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  541. \IVJ+YES[\IVY+[^G{...One more time: (Y/n) " \RVY[1]]]
  542. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  543. \IVJ+YES[\II-%VY,Y,N[^G{...One more time: (Y/n) " \RVY[1]]]
  544. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  545. \IVJ+YES[\IVY+[\UM[%VN, no answer on calling back.]{{Access denied.{\GB[Logoff]] \\ Log off if wouldn't answer
  546. \IVJ+YES[\II-%VY,Y,N[\UM[%VN, no answer on calling back.]{{Access denied.{\GB[Logoff]] \\ Log off if wouldn't answer
  547. \IVJ+YES[\IVY-Y[  \ZS{Sorry %VF, you will have to try again when ready.{\GB[Logoff]]] \\ Logoff if not ready to be validated
  548. \IVJ+YES[  \ZS{{When you see the word "RING" appear on your screen, type{]
  549. \IVJ+YES[the letters "ATA", as shown, and press the "[Enter"] key.{]
  550. \IVJ+YES[{Once you got reconnected, wait until prompted for your Password.{]
  551. \IVJ+YES[{Hanging up and calling you back in 1 minute.{{]
  552. \IVJ+YES[\UM[Calling back Ph: %VB, Pw: %VP] \AF%F:HISTORY[%VB] \NC[7] \TO[60]]
  553. \IVJ+YES[\DT-~~ \RE10[\CA+[~~]] \DT+ \PL ~~~~\AM[A]~~~~ \EC-~~ \LF-~~ ]
  554. \IVJ+YES[`ATZ{ \PA[5] `ATX1{ \PA[5] \CP[None] \CS[%MM]]
  555. \IVJ+YES[\CA+[\UM[Difficulties hanging up before Calling Back %VB!] ]]
  556. \IVJ+YES[\CA+[\SVO[Online]\RE3[+++~~~~~~ATH{\PA[4]\PL\ZS] \GB[Cycle] \EM ]]
  557. \IVJ+YES[\DM1,24[Pausing for 45 sec. before dialing...]]
  558. \IVJ+YES[\PA[45]`ATDT %VB {]
  559. \IVJ+YES[\WF[CONNECT] \SVO[Online]]
  560. \IVJ+YES[\IW-[\UM[Unsuccessful.] \RE3[{\ZS\PA[4]\PL\ZS] \GB[Cycle]\EM]]
  561. \IVJ+YES[\WP[5] \IW-[ \UM[Bad connection.] \RE3[{\ZS\PA[4]\PL\ZS] \GB[Cycle]\EM]]
  562. \IVJ+YES[\PL \AM[H] ~~~~\EC+ \LF+ \NC[10] \ZS ]
  563. \IVJ+YES[\IF+57600[\SVG[57600]\SVJ[Y]\IE+%AD,ON[\CS[19200]]]]
  564. \IVJ+YES[\IF+38400[\SVG[38400]\SVJ[Y]\IE+%AD,ON[\CS[19200]]]]
  565. \IVJ+YES[\IF+19200[\SVG[19200]\SVJ[Y]\IE+%AD,ON[\CS[%VG]]]]
  566. \IVJ+YES[\IF+16800[\SVG[16800]\SVJ[Y]\IE+%AD,ON[\CS[19200]]]]
  567. \IVJ+YES[\IF+14400[\SVG[14400]\SVJ[Y]\IE+%AD,ON[\CS[19200]]]]
  568. \IVJ+YES[\IF+12000[\SVG[12000]\SVJ[Y]\IE+%AD,ON[\CS[19200]]]]
  569. \IVJ+YES[\IF+9600[ \SVG[9600] \SVJ[Y]\IE+%AD,ON[\CS[%VG]]]]
  570. \IVJ+YES[\IF+4800[ \SVG[4800] \SVJ[M]\IE+%AD,ON[\CS[%VG]]]]
  571. \IVJ+YES[\IF+2400[ \SVG[2400] \SVJ[M]\IE+%AD,ON[\CS[%VG]]]]   
  572. \IVJ+YES[\IF+1200[ \SVG[1200] \SVJ[M]\IE+%AD,ON[\CS[%VG]]]]
  573. \IVJ+YES[\IF+300[  \SVG[300]  \SVJ[N]\IE+%AD,ON[\CS[%VG]]]]
  574. \IVJ+YES[\PL "[255D"[0;1;32m {   \ZS]
  575. \IVJ+YES[  \ZS{{Call Back Verifier Ver. 2.4 written 09/16/93 by Mark Sherman,  New York.]
  576. \IVJ+YES[{{\PA[1]`Hello %VF, we connected again.{{]
  577. \IVJ+YES[Please type your Password, followed by the "[Enter"] key now:{{]
  578. \IVJ+YES[ ` \RV0*[10]]
  579. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  580. \IVJ+YES[\IV0-%VP[\UM[Wrong Password: %V0]]]
  581. \IVJ+YES[\IV0-%VP[^G{{Wrong Password! Re-type your Password and hit "[Enter"]{{]]
  582. \IVJ+YES[\IV0-%VP[` \RV0*[10]]]
  583. \IV3+Modem[\CA-[\UM[Carrier Lost, UserNotFound Block]\GB[Cycle]]]
  584. \IVJ+YES[\IV0-%VP[\UM[Wrong Password: %V0] {Wrong Password!{{ \GB[LogOff]]]
  585. \IVJ+YES[\IV0+%VP[\UM[Verified the Phone number: %VB]]]
  586. \IVJ+YES[\IV0+%VP[^G{Your phone number was verified, thank you.{{]] \SVJ[]
  587. \SVI[%VR] \SVL[0]                                   \\  New user's level set at 0
  588. \SVE[Tel: %VB %VG baud %MO/%DA/%YR;]                \\ Save the Extended information
  589. \TM%VI[%VN;%VP;%VL;%VE] \DC[COPY %B:HOST.CNF *.BAK] \\ Write Info to the Database
  590. \TO[120] \BL[StartTime] \BL[Timer]                  \\ Start timing from the begining
  591. {^G \BL[LevelIncrease]                              \\ Let user enter an instant Upgrade code
  592. \UM[*** New User: %VN, %VL %VE ***]                 \\ Add entry to user Log
  593. \FE+%V4`%VF.MS%VL[  \ZS \GB[ReadPers] \EM]          \\ Check for any Personal message
  594. \FE+%V4`NEW.MSG[  \ZS \SVZ[%V4`NEW.MSG]\BL[List]\EM]\\ Remind the caller of "NEW.MSG" file
  595. \GB[EnterComment] \EM                               \\ Leave a Comment to SysOp
  596. \GB[Menu] \EM                                       \\ And finally go to Main Menu
  597.  
  598. |LevelIncrease        \\ Give User a chance to enter a "Business" Upgrade code
  599. \IV3+Modem[\CA-[\UM[Carrier Lost, LevelIncrease Block]\GB[Cycle]]] \ND[%B:]
  600. {Level Increase Code, press "[Enter"] if you don't know it:{
  601. "            ______________________________^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H
  602. \RV0*[30]   \ZS \IV3+Modem[\CA-[\UM[Carrier Lost, LevelIncrease Block]\GB[Cycle]]]
  603. \IV0+[\UM[Entered a blank Level Increase Code.  The User's level is now: %VL.]\EB]
  604. \IV0+%VP[\SVL[1]]     \\ If user enters his/her password, increase level to 1
  605. \IV0+Elite[\SVL[2]]   \\ If user enters this code, increase level to 2
  606. \\IV0+XXX[\SVL[3]]    \\ If user enters this code, increase level to 3
  607. \\IV0+XXXX[\SVL[4]]   \\ If user enters this code, increase level to 4 (be very carefull with this one!)
  608. \IV0+%VP[\UM[Entered Personal Password as Level Increase Code.  The User's level is now: %VL.]]
  609. \IV0-%VP[\IV0-[\UM[Typed "" %V0 "" as Level Increase Code, level is: %VL.]]]
  610. \TM%VI[%VN;%VP;%VL;%VE] \DC[COPY %B:HOST.CNF *.BAK] \BL[StartTime] \BL[Timer] \EB
  611.  
  612. |NotAllowed
  613. ■\II+"~,%VB[\SV1[%VB]\DV1[%IM]\SV1[contains "" %V1 "" which is NOT allowed] \EB]
  614. ■\II+"`,%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  615. ■\II+!,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  616. ■\II+"@,%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  617. ■\II+"#,%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  618. ■\II+$,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  619. ■\II+"%,%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  620. ■\II+^,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  621. ■\II+&,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  622. ■\II+*,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  623. ■\II+(,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  624. ■\II+),%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  625. ■\II+_,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  626. ■\II+-,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  627. ■\II++,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  628. ■\II+=,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  629. ■\II+"|,%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  630. ■\II+"\,%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  631. ■\II+Q,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  632. ■\II+W,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  633. ■\II+E,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  634. ■\II+R,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  635. ■\II+T,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  636. ■\II+Y,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  637. ■\II+U,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  638. ■\II+I,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  639. ■\II+O,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  640. ■\II+P,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  641. ■\II+"{,%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  642. ■\II+"[,%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  643. ■\II+},%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  644. ■\II+"],%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  645. ■\II+A,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  646. ■\II+S,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  647. ■\II+D,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  648. ■\II+F,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  649. ■\II+G,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  650. ■\II+H,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  651. ■\II+J,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  652. ■\II+K,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  653. ■\II+L,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  654. ■\II+:,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  655. ■\II+;,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  656. ■\II+"",%VB[\SV1[%VB]\DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  657. ■\II+',%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  658. ■\II+Z,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  659. ■\II+X,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  660. ■\II+C,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  661. ■\II+V,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  662. ■\II+B,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  663. ■\II+N,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  664. ■\II+M,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  665. ■\II+<,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  666. ■\II+.,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  667. ■\II+>,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  668. ■\II+/,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  669. ■\II+?,%VB[\SV1[%VB] \DV1[%IM] \SV1[contains "" %V1 "" which is NOT allowed]\EB]
  670. ■\EB
  671.  
  672. |MENU
  673. \ND[%B:] \BB- \SVM[] \TO[120] \\ This determines how long the host will wait for User's input (sec.)
  674. \IVC+[\DM[ User's account is Missing! ] \AL2[3] \SVL[1] \BL[StartTime] \BL[Timer]]
  675. \IVL+0[{{Have a Good Day, %VF.{~\GB[LogOff]\EM]
  676. {{````````"   █▀▀▀▀▀"▀▀"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"▀▀"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█{
  677. ``````````"   █     "  "      Mark Host Ver. 2.4  MAIN  MENU  COMMAND:         "  "  █{
  678. ``````````"   █▀▀▀▀▀"▀▀"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"▀▀"▀▀█{
  679. ``````````"   █     "  "                             "  "                            █▒{
  680. ``````````"   █     "  "                             "  "                            █▒{
  681. ``````````"   █     "[G"]  Goodbye                   "[P"]  Page SysOp               █▒░{
  682. ``````````"   █     "[F"]  File listing              "[N"]  New password             █▒░░{
  683. ``````````"   █     "[U"]  Upload files              "[W"]  Doors and fun!           █▒░░{
  684. ``````````"   █     "[D"]  Download files            "[M"]  Message titles           █▒░░{
  685. ``````````"   █     "[R"]  Read a message            "[K"]  Kill a message           █▒░░{
  686. ``````````"   █     "[C"]  Comment to SysOp          "[E"]  Enter a new message      █▒░░{
  687. ``````````"   █     "[I"]  Level increase code       "[Z"]  Show inside .Zip file    █▒░░{
  688. ``````````"   █     "[V"]  View text or .Des file    "  "                            █▒░░{
  689. ```\IVL+4["   █     "[S"]  Shut down Host            "[J"]  Jump to Dos              █▒░░{]
  690. ```\IVL+4["   █     "[B"]  Boyan macro command       "[A"]  Activity Log             █▒░░{]
  691. ```\IVL+4["   █     "[L"]  List any path or file     "  "                            █▒░░{]
  692. ``````````"   █     "  "                             "  "                            █▒░░{
  693. ``````````"   █▄▄▄▄▄"▄▄"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"▄▄"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▒░░{
  694. ``````````"         "  " ░░░░░░░░░░░░░░░░░░░░░░░░░░░░"░░"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░{{
  695. \IV3+Modem[\CA-[\UM[Carrier Lost, Menu Block]\GB[Cycle]]]
  696. \SVT[%MI] \IE-%VS,%HR[\+vt[60]] \SVD[%VK] \+VD[-%VT]
  697. \IVD+4[{" Please consider finishing the current activity.{]
  698. \IVD+3[{" Please consider finishing the current activity.{]
  699. \IVD+2[{" Your time limit is about to expire.  Prepare to logoff.{]
  700. \IVD+1[{" Your time limit is about to expire.  Prepare to logoff.{]
  701. \IVD+0[^G{" In a few seconds, you will be disconnected.{]
  702. \ii+-,%vD[\UM[Time limit expired.] \svD[x]{Time limit expired!{ \GB[LogOff]\EM]
  703. \IV3+LOCAL[\ST[ Local   Lev. %VL "[Tab"] for Sys. Menu]]
  704. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[%VF %VD min.]
  705. \FE-%S:Dialer.BSC[\EM] \IE-%QS,0[\IE+%HR,%VQ[\GB[*Tab]]] \\ If Queue not empty and VQ matches the Dialer Hour go to block Tab.
  706. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  707. \FE+%V4`%VF.Ms%VL[``````````"         "  " Personal message exists,  "[X"] to read it.{]
  708. ``````````"                %VD min left, "[P"] to chat.  Your selection:  "[ "]^H^H \RV0[1]
  709. \IV3+Modem[\CA-[\UM[Carrier Lost, Menu Block]\GB[Cycle]]]
  710. \IVL-4[\IW-[\BL[Disconnect]]] \\ If not level 4 and no response, go to block Disconnect
  711. \II-%V0,%VC["[%V0"] is not a valid option.\GB[Menu]\em]
  712. \IV0+G[\BL[Disconnect] \GB[Menu]\em]
  713. \IV0+F[\GB[ListFiles]\em]
  714. \IV0+V[\GB[ViewFile]\em]
  715. \IV0+D[\GB[Download]\em]
  716. \IV0+U[  \ZS \SV9[Q]\BL[SetProtocol]\IV9+Q[\GB[Menu]\em]\SV1[1]\GB[Upload]\em]
  717. \IV0+X[  \ZS \GB[ReadPers]\em]
  718. \IV0+M[  \ZS \GB[ListMsgs]\em]
  719. \IV0+R[\GB[ReadMsg]\em]
  720. \IV0+C[  \ZS \GB[EnterComment]\em]
  721. \IV0+E[  \ZS \GB[EnterMsg]\em]
  722. \IV0+Z[\GB[ZipView]\em]
  723. \IV0+I[\BL[LevelIncrease]\em]
  724. \IV0+K[\BL[KillMsg]\em]
  725. \IV0+N[\GB[NewPassword]\em]
  726. \IV0+P[  \ZS{Checking if the SysOp is available now...\UM[Paged SysOp at %HR:%MI:%SE]]
  727. \\ Adjust the Okay Hours for Mark Host to chat with your users, bellow
  728. \\ If you DON NOT want your Host to EVER chat with users, disable the line entirelly
  729. \IV0+P[\II+%HR,00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23[\FE+%B:DOORS"\DOORA"\ShamPage.Exe[\BL[DoorSys]\GB[DOORa]]]]
  730. \\ Adjust the Hours that you can be paged (default is all hours)
  731. \\ If you should you NEVER be paged, disable the line entirelly. (For regular paging)
  732. \IV0+P[\II+%HR,00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23[\BL[OperatorPage]\EM]]
  733. \IV0+P[{{SysOp not around, Please leave a [C]omment or try later.\EM]
  734. \IV0+L[\GB[ListAnyDir]\em]
  735. \IV0+J[\GB[Shell]\em]
  736. \IV0+S[\GB[Shutdown]\em]
  737. \IV0+A[  \ZS\IVL+4[\FE-%UN[{Can't locate the Activity Log.]] \\ If level 4, and and Log doesn't exist, go back to Menu
  738. \IV0+A[\FE+%UN[ \ZS \SVZ[%UN] \BL[List] \UM[Read the Activity Log %UN]]] \\ View Activity Log
  739. \IV0+A[{Activity Log:  "[D"]elete "[S"]witch it" \II+%UF,ON[off|on]  "  "[ "]^H^H \RV1[1] \IV1+D[\DC[DEL %UN]]
  740. \IV0+A[\IV1+S[\UF*] {The Activity Log is now %UF.]
  741. \IV0+B[{MACRO " \RV0[90]\IV0+[\GB[Menu] | \UM[MACRO: %V0]@V0]] \\ Execute the Macro Remotely!
  742. \IV0+W[\UM[Entered the Door Menu at %HR:%MI] \GB[Door] \em]
  743. \GB[Menu] \em
  744.  
  745. |Door
  746. "[255D"[0;1;32m   \ZS \IV3+Modem[\CA-[\UM[Carrier Lost, Doors Block]\GB[Cycle]\EM]]{{
  747. "  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█{
  748. "  █    Doors and Fun:  Upload your favorite Door and we'll try it out.   █{
  749. "  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█{
  750. "  █                                                                      █▒{
  751. "  █    <B> Food Fite                       <N>                           █▒░{
  752. "  █    <C> Jackpot Slots                   <O>                           █▒░░{
  753. "  █    <D>                                 <P>                           █▒░░{
  754. "  █    <E>                                 <R>                           █▒░░{
  755. "  █    <F>                                 <S>                           █▒░░{
  756. "  █    <G>                                 <T>                           █▒░░{
  757. "  █    <H>                                 <U>                           █▒░░{
  758. "  █    <I>                                 <V>                           █▒░░{
  759. "  █    <J>                                 <W>                           █▒░░{
  760. "  █    <K>                                 <X>                           █▒░░{
  761. "  █    <L>                                                               █▒░░{
  762. "  █    <M>                                 <Q>uit to the Main Menu       █▒░░{
  763. "  █                                                                      █▒░░{
  764. "  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▒░░{
  765. "          ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░{{
  766. \SVT[%MI] \IE-%VS,%HR[\+vt[60]] \SVD[%VK] \+VD[-%VT] 
  767. \IVD+4[{" Please consider finishing the current activity.{]
  768. \IVD+3[{" Please consider finishing the current activity.{]
  769. \IVD+2[{" Your time limit is about to expire.  Prepare to logoff.{]
  770. \IVD+1[{" Your time limit is about to expire.  Prepare to logoff.{]
  771. \IVD+0[^G{" In a few seconds, you will be disconnected.{]
  772. \ii+-,%vD[\UM[Time limit expired.] \svD[x]{Time limit expired!{ \GB[LogOff]\EM]
  773. \IV3+LOCAL[\ST[ Local   Lev. %VL "[Tab"] for Sys. Menu]]
  774. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[%VF %VD min.]
  775. \FE-%S:Dialer.BSC[\EM] \IE-%QS,0[\IE+%HR,%VQ[\GB[*Tab]]] \\ If Queue not empty and VQ matches the Dialer Hour go to block Tab.
  776. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  777. "                    %VD min left.  Your selection:  "[ "]^H^H \RV0[1]
  778. \IV3+Modem[\CA-[\UM[Carrier Lost, Doors Block]\GB[Cycle]]]
  779. \IVL-4[\IW-[\BL[Disconnect]]] \\ If not level 4 and no response, go to block Disconnect
  780. \IV0-[\IV0-Q[  \ZS{{`Please wait while loading the Door "[%V0"]]]
  781. \IV0-[\IV0-Q[\UM[Entered Door "[%V0"] at %HR:%MI]]]
  782. \\
  783. \\==========================================================================
  784. \\     Enable each Door's letter by removing one \ from the beggining.
  785. \\==========================================================================
  786. \\
  787. \\IV0+A[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  788. \IV0+B[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  789. \IV0+C[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  790. \\IV0+D[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  791. \\IV0+E[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  792. \\IV0+F[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  793. \\IV0+G[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  794. \\IV0+H[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  795. \\IV0+I[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  796. \\IV0+J[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  797. \\IV0+K[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  798. \\IV0+L[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  799. \\IV0+M[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  800. \\IV0+N[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  801. \\IV0+O[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  802. \\IV0+P[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  803. \\IV0+R[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  804. \\IV0+S[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  805. \\IV0+T[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  806. \\IV0+U[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  807. \\IV0+V[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  808. \\IV0+W[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  809. \\IV0+X[\BL[DoorSys] \BL[DOOR%V0] \UM[Returned from Door "[%V0"] at %HR:%MI] \EM]
  810. \IV3+Modem[\CA-[\UM[Carrier Lost, Doors Block]\GB[Cycle]\EM]]
  811. \IV0+Q[\DC[echo "[00;37m] \UM[Returned to Main Menu at %HR:%MI]]
  812. \IV0+Q[  \ZS{"                 Thank you for visiting Doors and Fun. \GB[Menu]\EM]
  813. \GB[Door] \EM
  814.  
  815. |DoorSys  \\ "On the fly" (TM) that creates the original 31 line Gap Door.Sys
  816. \ND[%B:"\DOORS] \FE+%B:DOORS"\Door.Sys[\DC[DEL %B:DOORS"\Door.Sys]]
  817. \IV3+LOCAL[\AF%B:DOORS"\Door.Sys[COM0:] | \AF%B:DOORS"\Door.Sys[COM%MD:] ] \\ Comm Port - COM0: = LOCAL MODE
  818. \IV3+LOCAL[\AF%B:DOORS"\Door.Sys[0] | \AF%B:DOORS"\Door.Sys[%VG] ] \\ Baud Rate - 300 to 38400 - LOCAL MODE = 0
  819. \AF%B:DOORS"\Door.Sys[8]        \\ Parity - 7 or 8
  820. \AF%B:DOORS"\Door.Sys[1]        \\ Node number (Defaults to 1)
  821. \IV3+LOCAL[\AF%B:DOORS"\Door.Sys[0] | \AF%B:DOORS"\Door.Sys[%MS] ] \\ DTE Rate. Actual BPS rate to use. LOCAL MODE = 0
  822. \AF%B:DOORS"\Door.Sys[Y]        \\ Screen Display - Y=On  N=Off (Default to Y)
  823. \AF%B:DOORS"\Door.Sys[N]        \\ Printer Toggle - Y=On  N=Off (Default to N)
  824. \AF%B:DOORS"\Door.Sys[Y]        \\ Page Bell      - Y=On  N=Off (Default to Y)
  825. \AF%B:DOORS"\Door.Sys[Y]        \\ Caller Alarm   - Y=On  N=Off (Default to Y)
  826. \AF%B:DOORS"\Door.Sys[%VN]      \\ User Full Name
  827. \AF%B:DOORS"\Door.Sys[New York] \\ Calling From
  828. \AF%B:DOORS"\Door.Sys[555-1212] \\ Home Phone
  829. \AF%B:DOORS"\Door.Sys[555-1212] \\ Work/Data Phone
  830. \AF%B:DOORS"\Door.Sys[%VP]      \\ User's Password
  831. \AF%B:DOORS"\Door.Sys[%VL]      \\ Security Level
  832. \AF%B:DOORS"\Door.Sys[10]       \\ Total Times On
  833. \AF%B:DOORS"\Door.Sys[%MO/%DA/%YR] \\ Last Date Called
  834. \AF%B:DOORS"\Door.Sys[00]       \\ Seconds Remaining (Not Important)
  835. \AF%B:DOORS"\Door.Sys[%VD]      \\ Minutes Remaining THIS call
  836. \AF%B:DOORS"\Door.Sys[GR]       \\ Graphics Mode GR=Graph NG=Non-Graph 7E=7,E Caller
  837. \AF%B:DOORS"\Door.Sys[23]       \\ Page Length
  838. \AF%B:DOORS"\Door.Sys[N]        \\ User's Help Mode - Y = Expert, N = Novice
  839. \AF%B:DOORS"\Door.Sys[ABCDEFG]  \\ Conferences/Forums Registered In  (ABCDEFG)
  840. \AF%B:DOORS"\Door.Sys[G]        \\ Conference Exited To DOOR From (G)
  841. \AF%B:DOORS"\Door.Sys[01/01/99] \\ User Expiration Date
  842. \AF%B:DOORS"\Door.Sys[1]        \\ User File's Record Number
  843. \AF%B:DOORS"\Door.Sys[N]        \\ Default Protocol - Z, H, X, C, Y, G, I, N, Etc.
  844. \AF%B:DOORS"\Door.Sys[2]        \\ Total Uploads
  845. \AF%B:DOORS"\Door.Sys[15]       \\ Total Downloads
  846. \AF%B:DOORS"\Door.Sys[1000]     \\ Daily Download "K" Total
  847. \AF%B:DOORS"\Door.Sys[99999]    \\ Daily Download Max. "K" Limit
  848. \EB
  849.  
  850. |DOORa  \\ ShamPage
  851. \\==========================================================================
  852. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  853. \\==========================================================================
  854. \IV3+Modem[\ca-[\UM[Carrier Lost, ShamPage (Door A)]\gb[Cycle]]] \AL2[0]
  855. \ND[%B:DOORS"\DOORa]\DC[CD %B:DOORS"\DOORa]
  856. \FE+%B:DOORS"\DOORa"\SHAMPAGE.CFG[\DC[DEL %B:DOORS"\DOORa"\SHAMPAGE.CFG]]\AL2[0]
  857.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[my Mark Host]
  858.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[SysOp]
  859.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[]
  860.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[%B:DOORS"\Door.Sys]
  861.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[Split]   \\ Split-screen chat mode (or Full)
  862.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[%B:DOORS"\DOORa"\SHAMpage.Dat] \\ Name of the Key Word Data File.
  863.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[%UN]     \\ Name of the Log File to write.
  864.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[1.7]     \\ Delay factor, increase this number to slow down the typing speed, decrease it to speed up the typing.
  865.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[3]       \\ 0 = NO handshake 1 = XON/XOFF 2 = CTS/RTS 3 = XON/XOFF and CTS/RTS
  866.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[00:00]   \\ Time to turn Page Bell OFF
  867.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[%HR:%MI] \\ Time to turn Page Bell ON
  868. \IV3+Modem[\ca-[\UM[Carrier Lost, ShamPage (Door A)]\gb[Cycle]]] \AL2[0]
  869. {\DC[%B:DOORS"\DOORa"\SHAMpage %B:DOORS"\DOORa"\SHAMpage.Cfg Time=80]
  870. \IV3+Modem[\ca-[\UM[Carrier Lost, ShamPage Block]\gb[Cycle]]]
  871. "[255D"[0;1;32m   \ZS \GB[Menu] \em
  872.  
  873. |DOORb  \\ Food Fite
  874. \\==========================================================================
  875. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  876. \\==========================================================================
  877. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  878. \FE+%B:DOORS"\DOOR%V0"\Foodfite.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Foodfite.Cfg]]
  879.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[%B:DOORS"\DOOR.SYS]
  880.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[my Mark Host] \\ The name of your Bbs
  881.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[SysOp]        \\ SysOp's name
  882.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[0000000000]   \\ SysOp's last name
  883.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[ANSI]         \\ Other required info (see docs of each door)
  884.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[%B:DOORS"\DOOR%V0"\bull99.scr]
  885.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[%B:DOORS"\DOOR%V0"\bull99.bbs]
  886.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[5000]
  887.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[-5000]
  888.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[30 more minutes, per day for 1 week.]
  889.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[5 free Downloads.]
  890.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[1 wish of yours will come true!]
  891.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[Be the SysOp, Remotely for 1 week.]
  892.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[Get to name 1 Door to get rid of.]
  893.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[77]
  894.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[YES]
  895.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[NONE]
  896.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[5]
  897.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[YES]
  898.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[-2]
  899.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[YES]
  900.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[5]
  901.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[YES]
  902.    \ZS
  903. \DC[%B:DOORS"\DOOR%V0"\Foodfite.exe Foodfite.Cfg] \\ The name of the file that starts the Door
  904. "[255D"[0;1;32m   \ZS \EM
  905.  
  906. |DOORc  \\ Jackpot Slots
  907. \\==========================================================================
  908. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  909. \\==========================================================================
  910. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  911. \FE+%B:DOORS"\DOOR%V0"\Game.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Game.Cfg]]
  912.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[Jackpot Slots]      \\ The name of your Bbs
  913.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[%B:DOORS"\DOOR.SYS] \\ SysOp's name
  914.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[my Host Mode]       \\ SysOp's last name
  915.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[SysOp]              \\ Other required info (see docs of each door)
  916.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[000000000000]
  917.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[1]
  918.  \ZS
  919. \DC[%B:DOORS"\DOOR%V0"\SLOTS14 Game.Cfg] \\ The name of the file that starts the Door
  920. "[255D"[0;1;32m   \ZS \EM
  921.  
  922. |DOORd
  923. \\==========================================================================
  924. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  925. \\==========================================================================
  926. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  927. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  928.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  929.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  930.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  931.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  932.  \ZS
  933. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  934. "[255D"[0;1;32m   \ZS \EM
  935.  
  936. |DOORe
  937. \\==========================================================================
  938. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  939. \\==========================================================================
  940. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  941. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  942.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  943.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  944.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  945.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  946.  \ZS
  947. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  948. "[255D"[0;1;32m   \ZS \EM
  949.  
  950. |DOORf
  951. \\==========================================================================
  952. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  953. \\==========================================================================
  954. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  955. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  956.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  957.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  958.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  959.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  960.  \ZS
  961. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  962. "[255D"[0;1;32m   \ZS \EM
  963.  
  964. |DOORg
  965. \\==========================================================================
  966. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  967. \\==========================================================================
  968. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  969. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  970.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  971.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  972.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  973.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  974.  \ZS
  975. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  976. "[255D"[0;1;32m   \ZS \EM
  977.  
  978. |DOORh
  979. \\==========================================================================
  980. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  981. \\==========================================================================
  982. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  983. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  984.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  985.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  986.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  987.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  988.  \ZS
  989. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  990. "[255D"[0;1;32m   \ZS \EM
  991.  
  992. |DOORi
  993. \\==========================================================================
  994. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  995. \\==========================================================================
  996. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  997. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  998.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  999.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1000.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1001.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1002.  \ZS
  1003. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1004. "[255D"[0;1;32m   \ZS \EM
  1005.  
  1006. |DOORj
  1007. \\==========================================================================
  1008. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1009. \\==========================================================================
  1010. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1011. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1012.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1013.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1014.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1015.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1016.  \ZS
  1017. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1018. "[255D"[0;1;32m   \ZS \EM
  1019.  
  1020. |DOORk
  1021. \\==========================================================================
  1022. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1023. \\==========================================================================
  1024. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1025. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1026.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1027.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1028.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1029.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1030.  \ZS
  1031. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1032. "[255D"[0;1;32m   \ZS \EM
  1033.  
  1034. |DOORl
  1035. \\==========================================================================
  1036. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1037. \\==========================================================================
  1038. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1039. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1040.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1041.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1042.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1043.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1044.  \ZS
  1045. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1046. "[255D"[0;1;32m   \ZS \EM
  1047.  
  1048. |DOORm
  1049. \\==========================================================================
  1050. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1051. \\==========================================================================
  1052. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1053. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1054.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1055.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1056.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1057.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1058.  \ZS
  1059. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1060. "[255D"[0;1;32m   \ZS \EM
  1061.  
  1062. |DOORn
  1063. \\==========================================================================
  1064. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1065. \\==========================================================================
  1066. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1067. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1068.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1069.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1070.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1071.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1072.  \ZS
  1073. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1074. "[255D"[0;1;32m   \ZS \EM
  1075.  
  1076. |DOORo
  1077. \\==========================================================================
  1078. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1079. \\==========================================================================
  1080. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1081. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1082.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1083.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1084.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1085.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1086.  \ZS
  1087. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1088. "[255D"[0;1;32m   \ZS \EM
  1089.  
  1090. |DOORp
  1091. \\==========================================================================
  1092. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1093. \\==========================================================================
  1094. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1095. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1096.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1097.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1098.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1099.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1100.  \ZS
  1101. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1102. "[255D"[0;1;32m   \ZS \EM
  1103.  
  1104. |DOORr
  1105. \\==========================================================================
  1106. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1107. \\==========================================================================
  1108. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1109. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1110.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1111.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1112.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1113.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1114.  \ZS
  1115. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1116. "[255D"[0;1;32m   \ZS \EM
  1117.  
  1118. |DOORs
  1119. \\==========================================================================
  1120. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1121. \\==========================================================================
  1122. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1123. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1124.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1125.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1126.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1127.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1128.  \ZS
  1129. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1130. "[255D"[0;1;32m   \ZS \EM
  1131.  
  1132. |DOORt
  1133. \\==========================================================================
  1134. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1135. \\==========================================================================
  1136. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1137. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1138.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1139.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1140.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1141.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1142.  \ZS
  1143. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1144. "[255D"[0;1;32m   \ZS \EM
  1145.  
  1146. |DOORu
  1147. \\==========================================================================
  1148. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1149. \\==========================================================================
  1150. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1151. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1152.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1153.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1154.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1155.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1156.  \ZS
  1157. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1158. "[255D"[0;1;32m   \ZS \EM
  1159.  
  1160. |DOORv
  1161. \\==========================================================================
  1162. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1163. \\==========================================================================
  1164. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1165. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1166.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1167.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1168.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1169.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1170.  \ZS
  1171. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1172. "[255D"[0;1;32m   \ZS \EM
  1173.  
  1174. |DOORw
  1175. \\==========================================================================
  1176. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1177. \\==========================================================================
  1178. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1179. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1180.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1181.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1182.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1183.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1184.  \ZS
  1185. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1186. "[255D"[0;1;32m   \ZS \EM
  1187.  
  1188. |DOORx
  1189. \\==========================================================================
  1190. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1191. \\==========================================================================
  1192. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1193. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1194.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[my Mark Host] \\ The name of your Bbs
  1195.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1196.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1197.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1198.  \ZS
  1199. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1200. "[255D"[0;1;32m   \ZS \EM
  1201.  
  1202. |ListFiles                    \\ List files in Host directory
  1203. \IV3+Modem[\CA-[\UM[Carrier Lost, ListFiles Block]\GB[Cycle]]]
  1204. \UM[Listed available files]\ND[%V5]  \ZS  Files available for downloading:
  1205. \IVL-4[\FE+%V4`HostFil.Tmp[\ND[%V4] \SVZ[%V4`HostFil.Tmp] \BL[ListD] \GB[Menu]\em]]
  1206. \IVL+0[\DC[DIR /A:-H /O:N %VY   >  %V4`HostFil.Tmp]]
  1207. \IVL+1[\DC[DIR /A:-H /O:N %VY   >  %V4`HostFil.Tmp]]
  1208. \IVL+2[\DC[DIR /A:-H /O:N %VY   >  %V4`HostFil.Tmp]]
  1209. \IVL+2[\DC[DIR /A:-H /O:N %VY"2 >> %V4`HostFil.Tmp]]
  1210. \IVL+3[\DC[DIR /A:-H /O:N %VY   >  %V4`HostFil.Tmp]]
  1211. \IVL+3[\DC[DIR /A:-H /O:N %VY"2 >> %V4`HostFil.Tmp]]
  1212. \IVL+3[\DC[DIR /A:-H /O:N %VY"3 >> %V4`HostFil.Tmp]]
  1213. \IVL+4[\DC[DIR /A:-H /O:N %VY   >  %V4`HostFil.Tmp]]
  1214. \IVL+4[\DC[DIR /A:-H /O:N %VY"2 >> %V4`HostFil.Tmp]]
  1215. \IVL+4[\DC[DIR /A:-H /O:N %VY"3 >> %V4`HostFil.Tmp]]
  1216. \IVL+4[\DC[DIR /A:-H /O:N %VY"4 >> %V4`HostFil.Tmp]]
  1217. \ND[%V4] \SVZ[%V4`HostFil.Tmp] \BL[ListD] \GB[Menu]\em
  1218.  
  1219. |ListAnyDir                                        \\ List files in any directory
  1220. \IV3+Modem[\CA-[\UM[Carrier Lost, ListAnyDir Block]\GB[Cycle]]]
  1221. \SV0[]{Directory, path or file to list: " \RV0[70] \\ read the directory path into %V0
  1222. \IV3+Modem[\CA-[\GB[Cycle]]] \IV0+[\GB[Menu]\em]      \\ Go to Main menu if no name
  1223. \ND[%V4]\DC[dir %V0 > %V4`HostFil.Tmp]              \\ Use DOS to create list in temp. file
  1224. \UM[Directory listing on: %V0]
  1225. \SVZ[%V4`HostFil.Tmp] \BL[ListD]                    \\ List file contents to screen
  1226. \DC[DEL %V4`HostFil.Tmp]   \ZS \GB[Menu]\em
  1227.  
  1228. |ListMsgs
  1229. \IV3+Modem[\CA-[\UM[Carrier Lost, ListMsgs Block]\GB[Cycle]]]
  1230. \ND[%V4]\UM[Listed available messages] {List of available Messages:{{
  1231. \IVL-4[\DC[SET DIRCMD= | DIR /A:-H /O:N /B %V4*.MS%VL > %V4`HostMsg.Tmp]] \\ use DOS to create list in temp. file
  1232. \IVL-4[\DC[SET DIRCMD=/A/O:GN/S] \SVZ[%V4`HostMsg.Tmp] \BL[List]] \\ List file contents to screen
  1233. \IVL+4[\DC[SET DIRCMD= | DIR /A:-H /O:N /B %V4*.MS* > %V4`HostMsg.Tmp]] \\ use DOS to create list in temp. file
  1234. \IVL+4[\DC[SET DIRCMD=/A/O:GN/S] \SVZ[%V4`HostMsg.Tmp] \BL[List]] \\ List file contents to screen
  1235. \GB[Menu] \em
  1236.  
  1237. |List
  1238. \IV3+Modem[\CA-[\UM[Carrier Lost, List Block]\GB[Cycle]]]
  1239. \ND[%V4] \sv1[0] \sv8[]
  1240. \re[\IV8+S[\em] \gv7[%VZ] \ii+^z,%v7[\em] %v7{ \+v1[1] \IV1+23[\BL[Prompts]]
  1241. \gv7[]`Press "[Enter"] " \RV[1]
  1242. \IV3+Modem[\CA-[\UM[Carrier Lost, List Block]\GB[Cycle]]]
  1243.  
  1244. |ListD
  1245. \IV3+Modem[\CA-[\UM[Carrier Lost, ListD Block]\GB[Cycle]]]
  1246. \ND[%V4] \sv1[0] \sv8[]
  1247. \re[\IV8+S[\em] \gv7[%VZ] \ii+^z,%v7[\em] %v7{ \+v1[1] \IV1+23[\BL[FilePrompts]]
  1248. \gv7[]`Press "[Enter"] " \RV[1] 
  1249. \IV3+Modem[\CA-[\UM[Carrier Lost, ListD Block]\GB[Cycle]]]
  1250.  
  1251. |Prompts
  1252. \IV3+Modem[\CA-[\UM[Carrier Lost, Prompts Block]\GB[Cycle]]]
  1253. \IV8+X[\EB]
  1254. " " "[Q"]uit  "[N"]on-Stop  "[Enter"] for next "[ "]^H^H \RV1[1]
  1255. \IV3+Modem[\CA-[\UM[Carrier Lost, Prompts Block]\GB[Cycle]]]
  1256. \IV1+Q[\SV1[0]\sv8[S]] 
  1257. \IV1+N[\SV1[0]\sv8[x]] 
  1258. \IV1+[\SV1[0]]
  1259.  
  1260. |FilePrompts
  1261. \IV3+Modem[\CA-[\UM[Carrier Lost, FilePrompts Block]\GB[Cycle]]]
  1262. \IV8+X[\EB]
  1263. " " "[Q"]uit  "[N"]on-Stop  "[U"]nzip  "[V"]iew  "[D"]ownload  "[Enter"] for next "[ "]^H^H \RV1[1]
  1264. \IV3+Modem[\CA-[\UM[Carrier Lost, FilePrompts Block]\GB[Cycle]]]
  1265. \IV1+Q[\SV1[0]\sv8[S]]
  1266. \IV1+N[\SV1[0]\sv8[x]]
  1267. \IV1+D[\gv7[]\SV1[0]\sv8[S]\GB[Download]\GB[Menu]\em]
  1268. \IV1+U[\gv7[]\GB[ZipView]\em]
  1269. \IV1+V[\gv7[]\GB[ViewFile]\em]
  1270. \IV1+[\SV1[0]]
  1271.  
  1272. |EnterMsg
  1273. \ND[%V4]\IV3+Modem[\CA-[\UM[Carrier Lost, EnterMsg Block]\GB[Cycle]]]
  1274. {If you put a user's FIRST name, he/she will be automatically{
  1275. read it on the next logon. (Don't enter messages for SysOp here){
  1276. {Type a name for your message (1-8 letters): ________^H^H^H^H^H^H^H^H \RVM[8]
  1277. \IV3+Modem[\CA-[\UM[Carrier Lost, EnterMsg Block]\GB[Cycle]]]
  1278. \IVM+[  \ZS {A message name was not selected. \GB[Menu]]
  1279. \II+"\,%VM[  \ZS{No spaces, dots or paths supported in the message's name.{{\GB[EnterMsg]]
  1280. \II+"/,%VM[  \ZS{No spaces, dots or paths supported in the message's name.{{\GB[EnterMsg]]
  1281. \II+" ,%VM[  \ZS{No spaces, dots or paths supported in the message's name.{{\GB[EnterMsg]]
  1282. \II+".,%VM[  \ZS{No spaces, dots or paths supported in the message's name.{{\GB[EnterMsg]]
  1283. \IVL+4[{Message prepared for what level (0-4) _^H \RV0[1]]
  1284. \IVL+4[\IV0+[  \ZS {A User's Level was not selected. \GB[Menu]\em]
  1285. \IVL-4[\SVM[%V4`%VM.MS%VL]]    \\ make %VM = full path\filename.msg
  1286. \IVL+4[\SVM[%V4`%VM.MS%V0]]    \\ If Sysop, make %VM = full path\filename.ms? level
  1287. \FE+%VM[ \ZS{A message with the same name already exists:{{ \SVZ[%VM] \BL[List] \GB[MsgOpt]\em]
  1288.  \ZS \GB[MsgHeader] \EM
  1289.  
  1290. |EnterComment
  1291. {Leaving a message for SysOp: \SVM[%UN] \GB[MsgHeader] \EM
  1292.  
  1293. |MsgHeader
  1294. \ND[%V4]\IV3+Modem[\CA-[\UM[Carrier Lost, MsgHeader Block]\GB[Cycle]]]
  1295. \SV0[%V4`HostMsg.Tmp] \FE+%V0[\DC[Del %V0]]
  1296. \SV9[═══════════ From: %VN ════ %MO/%DA at %HR:%MI ═══════════] \AF%V0[%V9]
  1297. \FE-%V0[^G{DOS ERROR.  Sorry, unable to create message! \RE5[~\AL2[0]] \GB[Menu] \EM]
  1298. {Enter up to 40 lines.  Hit "[Enter"] on an empty line when done.{{
  1299. %V9{{ \SV9[1]                           \\ Line number counter, starts at 1
  1300. \GB[GetMsgLines] \EM
  1301.  
  1302. |GetMsgLines
  1303. \RE[\IV9+41[Message full, please end it.{\EM] %V9>" \RV1+[70]\IV1+[\EM]\AF%V0[%V1]\+V9[1]]
  1304. \GB[EnterOptions] \EM
  1305.  
  1306. |EnterOptions
  1307. \IV3+modem[\ca-[\UM[Carrier Lost, EnterOptions Block]\IVM+%UN[\gb[SaveComment]\EM]]]
  1308. \IV3+modem[\ca-[\UM[Carrier Lost, EnterOptions Block]\gb[Cycle]\EM]]
  1309. \ND[%V4] \SVT[%MI] \IE-%VS,%HR[\+vt[60]] \SVD[%VK] \+VD[-%VT]
  1310. \IVD+4[{" Please consider finishing the current activity.{]
  1311. \IVD+3[{" Please consider finishing the current activity.{]
  1312. \IVD+2[{" Your time limit is about to expire.  Prepare to logoff.{]
  1313. \IVD+1[{" Your time limit is about to expire.  Prepare to logoff.{]
  1314. \IVD+0[^G{" In a few seconds, you will be disconnected.{]
  1315. \ii+-,%vD[\svD[x]\UM[Time limit expired.]{Time limit expired!{\IVM+%UN[\GB[SaveComment]\EM]]
  1316. \IVD+X[ \GB[Logoff] \EM]
  1317. \IV3+LOCAL[\ST[ Local   Lev. %VL "[Tab"] for Sys. Menu]]
  1318. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[%VF %VD min.]
  1319. \FE-%S:Dialer.BSC[\EM] \IE-%QS,0[\IE+%HR,%VQ[\IVM+%UN[\GB[SaveComment]\EM]]]
  1320. \FE-%S:Dialer.BSC[\EM] \IE-%QS,0[\IE+%HR,%VQ[\GB[*Tab]]] \\ If Queue not empty and VQ matches the Dialer Hour go to block Tab.
  1321. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1322. {New message options:   "[C"]ancel   "[R"]ead again   "[A"]dd   "[S"]ave   "[S"]^H^H \RV1[1]
  1323. \IV3+modem[\ca-[\UM[Carrier Lost, EnterOptions Block]\IVM+%UN[\gb[SaveComment]\EM]]]
  1324. \IV3+modem[\ca-[\UM[Carrier Lost, EnterOptions Block]\gb[Cycle]\EM]]
  1325. \IV1+C[\DC[Del %V0] \ZS{Your new message was aborted.]
  1326. \IV1+S[\IVM+%UN[\GB[SaveComment] \EM]]
  1327. \IV1+[\IVM+%UN[\GB[SaveComment] \EM]]
  1328. \IV1+S[\DC[Type %V0 >> %VM]\DC[DEL %V0]\UM[Posted the message %VM]{Message saved.]
  1329. \IV1+[\DC[Type %V0 >> %VM]\DC[DEL %V0]\UM[Posted the message %VM]{Message saved.]
  1330. \IV1+A[{\GB[GetMsgLines] \EM]
  1331. \IV1+R[\IVM+%UN[\SVZ[%V0] \BL[List] \GB[EnterOptions] \EM]]
  1332. \IV1+R[\FE+%VM[\SVZ[%VM]\BL[List]] \SVZ[%V0]\bl[list] \GB[EnterOptions]]
  1333. \GB[Menu] \EM
  1334.  
  1335. |SaveComment
  1336. \DC[Type %V0 >> %UN] \DC[DEL %V0]
  1337. \IV3+Modem[\ca-[\UM[Carrier Lost, SaveComment Block]\gb[Cycle]\EM]]
  1338. {{Your comment to SysOp was saved.
  1339. \IVD+X[{{{ \GB[Logoff] \EM]
  1340. \GB[Menu] \EM
  1341.  
  1342. |ReadMsg
  1343. \IV3+Modem[\ca-[\UM[Carrier Lost, ReadMsg Block]\gb[Cycle]]]\ND[%V4]\BL[Timer]
  1344. \IVL-4[{Message to read, without extension:  ________^H^H^H^H^H^H^H^H \RVM[8]]
  1345. \IVL+4[{Message to read, include the extension:  ____________^H^H^H^H^H^H^H^H^H^H^H^H \RVM[12]]
  1346. \IV3+Modem[\ca-[\UM[Carrier Lost, ReadMsg Block]\gb[Cycle]]]
  1347.  \ZS \IVM+[{A message title was not selected. \GB[Menu] \em]
  1348. \IVM+NEW[\svz[%V4`NEW.MSG]   \ZS \BL[List]   \ZS \GB[Menu]\em]
  1349. \IVM+NEW.MSG[\svz[%V4`%VM]   \ZS \BL[List]   \ZS \GB[Menu]\em]
  1350. \II+"\,%VM[  \ZS{No spaces, dots or paths supported in the message's name.\GB[Menu]\em]
  1351. \II+"/,%VM[  \ZS{No spaces, dots or paths supported in the message's name.\GB[Menu]\em]
  1352. \II+" ,%VM[  \ZS{No spaces, dots or paths supported in the message's name.\GB[Menu]]
  1353. \IVL-4[\II+".,%VM[  \ZS{No spaces, dots or paths supported in the message's name.\GB[Menu]]]
  1354. \IVL-4[\SVM[%V4`%VM.MS%VL]]               \\ Expand name to path\filename.msg
  1355. \IVL+4[\SVM[%V4`%VM]]                     \\ But where did Elvis go anyway?
  1356. \FE-%VM[{Sorry, but that message does not exist.\GB[Menu]\em] \UM[Read message %VM]
  1357. \SVZ[%VM]   \ZS \BL[List]                 \\ List file contents to screen
  1358. \GB[MsgOpt] \EM
  1359.  
  1360. |ReadPers
  1361. \IV3+Modem[\CA-[\UM[Carrier Lost, ReadPers Block]\GB[Cycle]\EM]]
  1362. \ND[%V4]  \ZS \SVM[%V4`%VF.MS%VL]              \\ Expand name to path\filename.msg
  1363. \FE-%VM[Sorry, but you don't have any personal messages. \GB[Menu] \EB]
  1364. \SVZ[%VM] \BL[List]                            \\ List file contents to screen
  1365. \UM[Read the personal message: %VM] \GB[MsgOpt] \EM
  1366.  
  1367. |MsgOpt
  1368. \IV3+Modem[\CA-[\UM[Carrier Lost, MsgOpt Block]\gb[Cycle] \EM]] \ND[%V4]
  1369. \SVT[%MI] \IE-%VS,%HR[\+vt[60]] \SVD[%VK] \+VD[-%VT]
  1370. \IVD+4[{" Please consider finishing the current activity.{]
  1371. \IVD+3[{" Please consider finishing the current activity.{]
  1372. \IVD+2[{" Your time limit is about to expire.  Prepare to logoff.{]
  1373. \IVD+1[{" Your time limit is about to expire.  Prepare to logoff.{]
  1374. \IVD+0[^G{" In a few seconds, you will be disconnected.{]
  1375. \ii+-,%vD[\svD[x]\UM[Time limit expired.]{Time limit expired!{\IVM+%UN[\GB[SaveComment]\EM]]
  1376. \IVD+X[ \GB[Logoff] \EM]
  1377. \IV3+LOCAL[\ST[ Local   Lev. %VL "[Tab"] for Sys. Menu]]
  1378. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[%VF %VD min.]
  1379. \FE-%S:Dialer.BSC[\EM] \IE-%QS,0[\IE+%HR,%VQ[\IVM+%UN[\GB[SaveComment]\EM]]]
  1380. \FE-%S:Dialer.BSC[\EM] \IE-%QS,0[\IE+%HR,%VQ[\GB[*Tab]]] \\ If Queue not empty and VQ matches the Dialer Hour go to block Tab.
  1381. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1382. {Read message options:  "[D"]elete  "[R"]eply  "[A"]gain  "[ "]^H^H  \RV1[1]
  1383. \IV3+Modem[\ca-[\UM[Carrier Lost, MsgOpt Block]\gb[Cycle] \EM]]
  1384. \IV1+D[\DC[Del %VM] \UM[Deleted the message: %VM]  \ZS {The message was deleted.]
  1385. \IV1+A[\SVZ[%VM]   \ZS \BL[List] \GB[MsgOpt] \EM]
  1386. \IV1+R[ \GB[MsgHeader] \EM]
  1387. \GB[Menu] \EM
  1388.  
  1389. |KillMsg
  1390. \IV3+Modem[\ca-[\UM[Carrier Lost, KillMsg Block]\gb[Cycle]]] \ND[%V4]
  1391. \IVL-4[{Message to Delete, (no extension):  ________^H^H^H^H^H^H^H^H \RVM[8]]
  1392. \IVL+4[{Message to Delete, (include extension):  ?.MS_^H^H^H^H^H \RVM[12]]
  1393. \IV3+Modem[\ca-[\UM[Carrier Lost, KillMsg Block]\gb[Cycle]]]
  1394.  \ZS \IVM+[{No message selected for Deletion. \GB[Menu]\em]
  1395. \II+"\,%VM[  \ZS^G{No spaces, dots or paths supported in the message's name.\GB[Menu]\em]
  1396. \II+"/,%VM[  \ZS^G{No spaces, dots or paths supported in the message's name.\GB[Menu]\em]
  1397. \II+" ,%VM[  \ZS^G{No spaces, dots or paths supported in the message's name.\GB[Menu]\em]
  1398. \IVL-4[\II+".,%VM[  \ZS^G{No spaces, dots or paths supported in the message's name.\GB[Menu]\em]]
  1399. \IVL-4[\SVM[%V4`%VM.MS%VL]]  \\ expand name to path\filename.msg
  1400. \IVL+4[\SVM[%V4`%VM]]
  1401. \IVL-4[\IVM+%V4`NEW.MSG[{Can't Delete the New User message. \GB[Menu]\em]]
  1402. \FE-%VM[{That message does not exist. \GB[Menu]\em] \DC[DEL %VM]
  1403. \UM[Deleted message %VM] {The message was Deleted. \GB[Menu] \em
  1404.  
  1405. |ViewFile
  1406. \IV3+Modem[\ca-[\UM[Carrier Lost, ViewFile Block]\gb[Cycle]]]
  1407. \ND[%V5]`Name of file to view: " \RV0[70] 
  1408. \IV3+Modem[\ca-[\UM[Carrier Lost, ViewFile Block]\gb[Cycle]]]
  1409. \IV0+[{No file selected for viewing. \GB[Menu]\em]
  1410. \II+"\,%V0[\II+%VL,0,1[{Sorry, path is not supported.\GB[Menu]\em]] \\ If "\" in filename, require level 2 and Up
  1411. \II+.BSC,%V0[\IVL-4[{Can't display that file.\GB[Menu]\em]] \\ If ".BSC" in filename, require level 4
  1412. \IVL+0[\FE+%V5%V0[\SV0[%V5%V0]]
  1413. \IVL+1[\FE+%V5%V0[\SV0[%V5%V0]]
  1414. \IVL+2[\FE+%V5%V0[ \SV0[%V5%V0] \EM | \SV0[%VY2"\%V0]]]
  1415. \IVL+3[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  1416. \IVL+3[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]]]
  1417. \IVL+4[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  1418. \IVL+4[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]\FE+%VY4"\%V0[\SV0[%VY4"\%V0]]]]
  1419. \FE-%V0[{File not found, check the spelling. \SV0[] \GB[Menu]\em]
  1420. \II+.ZIP,%V0[{Choose "[Z"] for the ZIP files. \SV0[] \GB[Menu]\em]
  1421. \UM[view file %V0] \SVZ[%V0] \BL[List]        \\ List file contents to screen
  1422. \SV0[] \GB[Menu] \em
  1423.  
  1424. |Download
  1425. \IV3+Modem[\ca-[\UM[Carrier Lost, Download Block]\gb[Cycle]]] \ND[%V5]
  1426. \SV9[Q] \SV0[] \SVR[] \IVL-4[Enter file(s) to download, ""*"" is Okay: " \RV0[12]] 
  1427. \IV3+Modem[\ca-[\UM[Carrier Lost, Download Block]\gb[Cycle]]]
  1428. \IVL+4[Enter file(s) to download, ""*"" is Okay: " \RV0[70]] 
  1429. \IV3+Modem[\ca-[\UM[Carrier Lost, Download Block]\gb[Cycle]]]
  1430. \IV0+[{No file(s) were selected.\GB[Menu]\em] \\ Go to Main menu if no name
  1431. \II+"\,%V0[\IVL-4[^G{Sorry, path is not supported.\GB[Menu]\em]] \\ If "\" in filename, require level 4
  1432. ``````````````\II-"*,%V0[\FE+%V5%V0[\SVR[%V5%V0]]]
  1433. \II+%VL,2,3,4[\II-"*,%V0[\FE+%VY2"\%V0[\SVR[%VY2"\%V0]]]]
  1434. \II+%VL,3,4[  \II-"*,%V0[\FE+%VY3"\%V0[\SVR[%VY3"\%V0]]]]
  1435. \II+%VL,4[    \II-"*,%V0[\FE+%VY4"\%V0[\SVR[%VY4"\%V0]]]]
  1436. \II+%VL,4[    \II-"*,%V0[\FE+%V0[\SVR[%V0]]]]
  1437. \II-"*,%V0[\FE-%VR[{File not found, check the spelling.\GB[Menu]\em]]
  1438. \BL[SetProtocol] \IV9+Q[\GB[Menu]\em] \\ Go select a transfer protocol, back to files menu if no protocol
  1439. \II+"*,%V0[\II+%V9,X,C,R,1,Y,G,A[{Batch mode not supported for protocol "[%V9"].{]]
  1440. \II+"*,%V0[\II+%V9,X,C,R,1,Y,G,A[Try using "[Z"] or "[H"] instead. \GB[Menu]\em]]
  1441. {To cancel during transfer, press "[Alt + N"] or "[Control + X"] multiple times,{
  1442. \IV9+A[Press "[Return"] when ready: \WL{] \\ expect [CR] if ASCII download
  1443. Sending file(s) using protocol "[%V9"]  Start to Download now...{
  1444. \IVL+0[\II-%V9,X,C,R,1,Y,G,A[\DC-[DIR /O:-GN/S/B %V5%V0     >  %Dr:\Boymark.Lst]]]
  1445. \IVL+1[\II-%V9,X,C,R,1,Y,G,A[\DC-[DIR /O:-GN/S/B %V5%V0     >  %Dr:\Boymark.Lst]]]
  1446. \IVL+2[\II-%V9,X,C,R,1,Y,G,A[\DC-[DIR /O:-GN/S/B %V5%V0     >  %Dr:\Boymark.Lst]]]
  1447. \IVL+2[\II-%V9,X,C,R,1,Y,G,A[\DC-[DIR /O:-GN/S/B %VY"2"\%V0 >> %Dr:\Boymark.Lst]]]
  1448. \IVL+3[\II-%V9,X,C,R,1,Y,G,A[\DC-[DIR /O:-GN/S/B %V5%V0     >  %Dr:\Boymark.Lst]]]
  1449. \IVL+3[\II-%V9,X,C,R,1,Y,G,A[\DC-[DIR /O:-GN/S/B %VY"2"\%V0 >> %Dr:\Boymark.Lst]]]
  1450. \IVL+3[\II-%V9,X,C,R,1,Y,G,A[\DC-[DIR /O:-GN/S/B %VY"3"\%V0 >> %Dr:\Boymark.Lst]]]
  1451. \IVL+4[\II-%V9,X,C,R,1,Y,G,A[\II-"\,%V0[\DC-[DIR /O:-GN/S/B %V5%V0     >  %Dr:\Boymark.Lst]]]]
  1452. \IVL+4[\II-%V9,X,C,R,1,Y,G,A[\II-"\,%V0[\DC-[DIR /O:-GN/S/B %VY"2"\%V0 >> %Dr:\Boymark.Lst]]]]
  1453. \IVL+4[\II-%V9,X,C,R,1,Y,G,A[\II-"\,%V0[\DC-[DIR /O:-GN/S/B %VY"3"\%V0 >> %Dr:\Boymark.Lst]]]]
  1454. \IVL+4[\II-%V9,X,C,R,1,Y,G,A[\II-"\,%V0[\DC-[DIR /O:-GN/S/B %VY"4"\%V0 >> %Dr:\Boymark.Lst]]]]
  1455. \IVL+4[\II-%V9,X,C,R,1,Y,G,A[\II+"\,%V0[\DC-[DIR /O:-GN/S/B %V0        >> %Dr:\Boymark.Lst]]]]
  1456. \II-"*,%V0[\UM[Downloaded the file %VR using protocol "[%V9"]]]
  1457. \II+"*,%V0[\UM[Downloaded the file patern: %V0 using protocol "[%V9"]]]
  1458. \NC[7] \PA[10] \ZS   \\ Pause 10 seconds before receiving files
  1459. \II-%V9,X,C,R,1,Y,G,A,H[\DC[CD\] \UL%V9-["@%Dr:Boymark.Lst] ]
  1460. \IV9+H[\DC-[CD\ | %P:hslink -P%md -E%ms -U%VU "@%Dr:Boymark.Lst] ]
  1461. \II+%V9,X,C,R,1,Y,G,A[  \UL%V9-[%VR]  ]
  1462. \IV9+A[^K]                      \\ Send the "[Ctrl-K"] to close ASCII download
  1463. \\ If HS-Link and you can find Transcan Jr, scan file for Viruses (Less Memory)
  1464. \ZS\IV9+H[\FE+%P:TSJR.EXE[\DC[%P:TSJR.EXE /P%MD,$%MA,%MN,T %VU*.*]]]
  1465. \\ If HS-Link and you can find Transcan EXE, scan file for Viruses
  1466. \IV9+H[\FE-%P:TSJR.EXE[\FE+%P:TS.EXE[\DC[%P:TS.EXE /P%MD,$%MA,%MN,T %VU*.*]]]]
  1467. \\ If you can't find Transcan, substitute with McAfee & scan file for Viruses
  1468. \IV9+H[\FE-%P:TSJR.EXE[\FE-%P:TS.EXE[\DC[ECHO Y | SCAN /NOMEM /A /D /NOPAUSE /NOEXPIRE %VU*.*]]]]
  1469. \IV3+Modem[\ca-[\UM[Carrier Lost, Download Block]\gb[Cycle]]]
  1470. \NC[10] "[255D"[0;1;32m   \ZS \GB[Menu] \em
  1471.  
  1472. |SetProtocol                       \\ Sets the selected Protocol in %V9
  1473. \IV3+Modem[\ca-[\UM[Carrier Lost, SetProtocol Block]\gb[Cycle]]] \ND[%P:]
  1474. \\SV8[AXC1YG]                      \\ set %V8=all possible protocol letters
  1475. \SV8[1G] \SV9[]                    \\ set %V8=all possible protocol letters
  1476. \IP+K[\SV8[%V8`K]]                 \\ add 'K' to list if Kermit available
  1477. \IP+L[\SV8[%V8`L]]                 \\ add 'L' to list if Megalink available
  1478. \IP+P[\SV8[%V8`P]]                 \\ add 'P' to list if MPt available
  1479. \IP+S[\SV8[%V8`S]]                 \\ add 'S' to list if Sealink available
  1480. \IP+Z[\SV8[%V8`Z]]                 \\ add 'Z' to list if Zmodem available
  1481. \IP+H[\SV8[%V8`H]]                 \\ add 'H' to list if HS-Link available
  1482. {`````````╔═════════════════════"══"════╗{
  1483. ``````````║"    AVAILABLE PROTOCOLS:"   ║{
  1484. ``````````╠═════════════════════"══"════╣{   
  1485. ``````````║                     "  "    ║{
  1486. \II+Z,%V8[║    Zmodem           "[Z"]   ║{]
  1487. ``````````║                     "  "    ║{
  1488. \II+H,%V8[║    HS-Link          "[H"]   ║{]
  1489. ``````````║                     "  "    ║{
  1490. \II+G,%V8[║    G-Ymodem         "[G"]   ║{]
  1491. ``````````║                     "  "    ║{
  1492. \II+1,%V8[║    1K-Xmodem        "[1"]   ║{]
  1493. \II+K,%V8[║    Kermit           "[K"]   ║{]
  1494. \II+L,%V8[║    Megalink         "[L"]   ║{]
  1495. \II+P,%V8[║    MPt              "[P"]   ║{]
  1496. \II+S,%V8[║    Sealink          "[S"]   ║{]
  1497. \II+A,%V8[║    Ansi             "[A"]   ║{]
  1498. ``````````║                     "  "    ║{
  1499. ``````````║    Quit             "[Q"]   ║{
  1500. ``````````║                     "  "    ║{
  1501. ``````````╚═════════════════════"══"════╝{
  1502. {`````````     Protocol?        "[ "]^H^H \RV9[1] 
  1503. \IV3+Modem[\ca-[\UM[Carrier Lost, SetProtocol Block]\gb[Cycle]]]
  1504. \IV9+Q[  \ZS\EB]
  1505. \IVL-4[\IW-[\BL[Disconnect]]] \\ If not level 4 and no response, go to block Disconnect
  1506. \IV9+[  \ZS\GB[SetProtocol]\em]
  1507. \II+%V9,%V8[  \ZS\EB]         \\ If selection is ok, then end block.
  1508.  \ZS{Don't have protocol   "[%V9"]{ \GB[SetProtocol] \em
  1509.  
  1510. |Upload
  1511. \IV3+Modem[\CA-[\UM[Carrier Lost, Upload Block]\gb[Cycle]]]\ND[%V5]
  1512. \SVR[] \IVL-4[File %V1 Name: " \RV0[12] \IV0-[\SVM[%V0]]] 
  1513. \IVL+4[{File %V1 Path, Name: " \RV0[70] \IV0-[\SVM[%V0]]]
  1514. \IV3+Modem[\CA-[\UM[Carrier Lost, Upload Block]\GB[Cycle]]]
  1515. \IV3+Modem[\WP[1]\PL] \\ Wait for a pause of 1, and purge line (in case of Message Upload the Name)
  1516. \IV0-[\II-.,%VM[\SVM[%VM.]]]   \\ Add "." to filename if not there
  1517. \IV0-[\II+"\,%VM[\IVL-4[{Path not supported.{\GB[Menu]\em]]] \\ If "\" in filename, require level 4
  1518. \II+"\,%VM[\II+%V9,G,1,[{Batch and path not supported for "[%V9"]{]]
  1519. \II+"\,%VM[\II+%V9,G,1,[\BL[SetProtocol]\IV9+Q[\GB[Menu]\em]\GB[Upload]\em]]
  1520. \II+"*,%VM[\II+%V9,G,1,[{Batch and path not supported for "[%V9"]{]]
  1521. \II+"*,%VM[\II+%V9,G,1,[\BL[SetProtocol]\IV9+Q[\GB[Menu]\em]\GB[Upload]\em]]
  1522. \IV0-[\FE+%V5%VM[File %VM already exists.{{\IVL-4[\GB[Upload]\em]]] \\ Go back if file already here
  1523. \IV0-[\FE+%VY"2"\%VM[File %VM already exists.{{\IVL-4[\GB[Upload]\em]]] \\ Go back if file already here
  1524. \IV0-[\FE+%VY"3"\%VM[File %VM already exists.{{\IVL-4[\GB[Upload]\em]]] \\ Go back if file already here
  1525. \IV0-[\FE+%VY"4"\%VM[File %VM already exists.{{\IVL-4[\GB[Upload]\em]]] \\ Go back if file already here
  1526. \IV0-[50 characters Description: " \RV8+[50]]
  1527. \IV3+Modem[\WP[1]\PL] \\ Wait for a pause of 1, and purge line (in case of Message Upload the Description)
  1528. \IV3+Modem[\CA-[\UM[Carrier Lost, Upload Block]\GB[Cycle]]]
  1529. \IV0-[\SVR[%V0]\LVR[]\SVR[%LV]\IVR+12[\+VR[-4]\LV0[%VR]]\IVR+11[\+VR[-3]\LV0[%VR]]]
  1530. \IV0-[\IVR+10[\+VR[-2]\LV0[%VR]]\IVR+9[\+VR[-1]\LV0[%VR]]]
  1531. \IV0-[\II+".,%V0[\LV0[%IM]]]          \\ Trim off file's extension if exists
  1532. \\ Delete the Description if it already exists
  1533. \IV0-[\IV8-[\II+%VL,1,0[\FE+%V5TEMP"\%V0.DES[\DC[DEL %V5TEMP"\%V0.DES]]]]]
  1534. \IV0-[\IV8-[\II-%VL,1,0[\FE+%VU%V0.DES[\DC[DEL %VU%V0.DES]]]]]
  1535. \IV0-[\II+%VL,1,0[\AF%V5TEMP"\%V0.DES[%V8] | \AF%VU%V0.DES[%V8]]]
  1536. \IV1-21[\IV0-[\SV8[] \+V1[1]{ \GB[Upload]\em]]
  1537. \IV1+21[{The maximum of 20 Files were entered.  Thank you.{~~~~]   \ZS
  1538. \II+"\,%VM[\SV0[%VM]]          \\ If "\" in the file name, save Upload path
  1539. \II-"\,%VM[\SV0[%VU%VM]]       \\ Otherways, add Host+Level file path to name.
  1540. {To cancel during transfer, press Alt + N or Control + X multiple times,{
  1541. Ready to receive file(s) using protocol [%V9]  Start to Upload now...{{~
  1542. \PA[15] \DL%V9-[%V0]  \\ Receive file %V0 using protocol %V9
  1543. \UM[Uploaded file %V0 using protocol "[%V9"]]~~
  1544. \\ If you can find Transcan Jr, scan file for Viruses (Less Memory)
  1545. \FE+%P:TSJR.EXE[\DC[%P:TSJR.EXE /P%MD,$%MA,%MN,T %VU*.*]]
  1546. \\ If Transcan Jr not found, but Transcan EXE found, scan file for Viruses
  1547. \FE-%P:TSJR.EXE[\FE+%P:TS.EXE[\DC[%P:TS.EXE /P%MD,$%MA,%MN,T %VU*.*]]]
  1548. \\ If you can't find Transcan.  Substitute with McAfee & scan file for Viruses
  1549. \FE-%P:TSJR.EXE[\FE-%P:TS.EXE[\DC[ECHO Y | SCAN /NOMEM /A /D /NOPAUSE /NOEXPIRE %VU*.*]]]
  1550. \IV3+Modem[\ca-[\UM[Carrier Lost, Upload Block]\gb[Cycle]]]
  1551. "[255D"[0;1;32m   \ZS \GB[Menu] \em
  1552.  
  1553. |Disconnect
  1554. \IV3+Modem[\ca-[\UM[Carrier Lost, Disconnect Block]\gb[Cycle]]] \ND[%B:]
  1555. ^G{Are you sure you want to be disconnected (Y/n)?  "[Y"]^H^H \RV0[1]
  1556. \IV3+Modem[\ca-[\UM[Carrier Lost, Disconnect Block]\gb[Cycle]]]
  1557. \IV0-[\IV0-Y[\SV0[]\EB]]
  1558.  \ZS {Thank you for calling, %VF!{{~`Disconnecting...~ \GB[Cycle] \em
  1559.  
  1560. |Cycle                                  \\ This block runs between all calls.
  1561. \ND[%B:] \AM[H] \BB- \ST[ Hanging Up...]
  1562. \IV3+MODEM[ \ZS \DT-~~~~ \RE10[\CA+[~~]] \DT+ \PL] \\ If not a local test,
  1563. \IV3+MODEM[\CA+[\AM[A]~~\EC-\LF-\PL\RE10[\CA+[`ATZ{\PA[5]`+++~~~~ATH{\PA[5]\PL]]]]
  1564. \IV3+MODEM[\CA+[\RE10[\CA+[\UM[Trying to HangUp, Cycle Bl.]\PA[30]\GB[Cycle]|\EM]]|\EM]]
  1565. \ZS \IV3-LOCAL[\DMC[11] \SV0[12] \LVF[10] \IVG-[\LVG[4]]]
  1566. \SV0[]\SV1[]\SV6[]\SV7[]\SV8[]\SV9[]\SVA[]\SVB[] \\ Clear variables
  1567. \SVC[]\SVD[]\SVE[]\SVI[]\SVJ[]\SVK[]\SVL[]\SVM[]\SVN[] \SVP[]\SVPW[]
  1568. \SVR[]\SVS[]\SVT[]\SVU[]\SVW[]\SVX[]\SVY[]\SVZ[]
  1569. \BB- \NC[7] \TO[120] \KO[100] {{
  1570. `\ZS\SV0[13]\IV3-LOCAL[\DM48,%V0[ ╔═════════════════════════════╗ ] \+V0[1]]
  1571. ````````````\IV3-LOCAL[\DM48,%V0[ ║   The Phone was Hung Up     ║ ] \+V0[1]]
  1572. ````````````\IV3-LOCAL[\DM48,%V0[ ║   on %MO/%DA/%YR at %HR:%MI:%SE.  ║ ] \+V0[1]]
  1573. ``````\IV3-LOCAL[\IVG-[\DM48,%V0[ ║                             ║ ] \+V0[1]]
  1574. ``````\IV3-LOCAL[\IVG-[\DM48,%V0[ ║   %VF```````    %VG` baud.  ║ ] \+V0[1]]]
  1575. ````````````\IV3-LOCAL[\DM48,%V0[ ╚═════════════════════════════╝ ]] \DMC[31]
  1576. \SVF[]\SVG[]\IV3+MODEM[\CA+[\UM[Couldn't HangUp in the Cycle Block.  Host Aborted!]\AB]]
  1577. \SN[] \ST[ Hang Up Succesful!] \AM[H]~~\PL \ST[] \GB[WaitForCall] \em
  1578.  
  1579. |OperatorPage
  1580. \IV3+Modem[\ca-[\UM[Carrier Lost, OperatorPage Block]\gb[Cycle]]] \ND[%B:]
  1581. \SV1[%VL5]{`Ringing SysOp's bell for %V1 seconds:{{
  1582. \SV0[%VF]\LV0[10]\DMC[95] \\ Set %V0 = first 10 letters of caller's first name
  1583. \DM43,09[ ╔══"════════════════════════════"══╗ ]
  1584. \DM43,10[ ║  %V0``````` is paging Sysop!" "  ║ ]
  1585. \DM43,11[ ╠══"══"════════════════════════════╣ ]
  1586. \DM43,12[ ║  "[Tab"] = Sysop Menu            ║ ]
  1587. \DM43,13[ ║  "[C"]   = Chat with %V0```````  ║ ]
  1588. \DM43,14[ ║  "[K"]   = Kill the Beeps        ║ ]
  1589. \DM43,15[ ║  "[Esc"] = Aborts the Host Mode  ║ ]
  1590. \DM43,16[ ╚══"════════════════════════════"══╝ ] \DMC[31]
  1591. \BB+ \RE%V1[▓^G~▒ \IE+%IK,C[\BB-   \ZS \GB[Gossip]\EM] \IE+%IK,K[\BB-]█]
  1592. \BB-  \ZS {SysOp doesn't seem to be around at the{
  1593. moment. Leave a "[C"]omment or try later. \GB[Menu] \em
  1594.  
  1595. |Gossip
  1596. \IV3-Local[\UM[Chatted with SysOp at %HR:%MI:%SE]] ^G \BB+   \ZS
  1597. {{{%VF, you are chatting with the SysOp.  Type ""/"" to EXIT.{{
  1598. ═════════════════════════════════════════════════════════════════════════{{
  1599. \IV3+Modem[\ca-[\UM[Carrier Lost, ChatLines Block]\gb[Cycle]]]
  1600. \RE[\IV0+"/[\EM] \RV0+[74] \IV0+"/[\EM]]
  1601. \IV3+Modem[\ca-[\UM[Carrier Lost, ChatLines Block]\gb[Cycle]\EM]]
  1602. \BB- \BL[StartTime] ^G "[255D"[0;1;32m    \ZS \GB[Menu] \EM
  1603.  
  1604. |*TAB                                  \\ This runs automatically when "[Tab"] pressed
  1605. \KO[100]\SV9[#DEFGHJRSU]               \\ These are the available menu options
  1606. \IVN-[\SV9[%V9ACTL]]                   \\ If name not Blank, add more options
  1607. \IE-%AN,HOST[\AM[H]\EC+\LF+]           \\ Make sure we're using Host module
  1608. \SV8[%VF] \LV8[10]                     \\ Set %V8 to caller's first name (10 letters)
  1609. \FE-%S:Dialer.BSC[\EM | \IE+%HR,%VQ[^G   \ZS {{Please wait while trying to{delay the System Event!...]]
  1610. \KS \SV0[1] \DMC[111] \ND[%B:]
  1611. ```````````\DM42,%V0[ ╔═══"══"══════════════════════════════╗ ]  \+V0[1]
  1612. ```````````\DM42,%V0[ ║   SYSOP  MENU:" "                   ║ ]  \+V0[1]
  1613. ```````````\DM42,%V0[ ╟───"──"──────────────────────────────╢ ]  \+V0[1]
  1614. `\II+J,%V9[\DM42,%V0[ ║   "[J"]  Jump to Dos                ║ ]  \+V0[1] ]
  1615. `\II+A,%V9[\DM42,%V0[ ║   "[A"]  Add 15 minutes             ║ ]  \+V0[1] ]
  1616. `\II+R,%V9[\DM42,%V0[ ║   "[R"]  Return to Host             ║ ]  \+V0[1] ]
  1617. `\II+C,%V9[\DM42,%V0[ ║   "[C"]  Chat with %V8```````       ║ ]  \+V0[1] ]
  1618. `\II+#,%V9[\DM42,%V0[ ║   "[#"]  Change Area Codes          ║ ]  \+V0[1] ]
  1619. `\II+F,%V9[\DM42,%V0[ ║   "[F"]  Boyan file manager         ║ ]  \+V0[1] ]
  1620. `\II+S,%V9[\DM42,%V0[ ║   "[S"]  Scroll-back buffer         ║ ]  \+V0[1] ]
  1621. `\II+H,%V9[\DM42,%V0[ ║   "[H"]  Host configuration         ║ ]  \+V0[1] ]
  1622. `\II+L,%V9[\DM42,%V0[ ║   "[L"]  Change User's level        ║ ]  \+V0[1] ]
  1623. `\II+T,%V9[\DM42,%V0[ ║   "[T"]  Take away 5 minutes        ║ ]  \+V0[1] ]
  1624. `\II+E,%V9[\DM42,%V0[ ║   "[E"]  Edit host usage Log        ║ ]  \+V0[1] ]
  1625. \II+%UF,ON[\DM42,%V0[ ║   "[U"]  Usage log (Toggles it off) ║ ]  \+V0[1] |\DM42,%V0[ ║   "[U"]  Usage Log (Toggles it On)  ║ ]  \+V0[1] ]
  1626. ```````````\DM42,%V0[ ╟───"──"──────────────────────────────╢ ]  \+V0[1]
  1627. \FE-%S:Dialer.BSC[\EM]\IE+%HR,%VQ[\DM42,%V0[ ║   "[D"]  Delay the Dialer Script    ║ ]  \+V0[1]
  1628. `\II+G,%V9[\DM42,%V0[ ║   "[G"]  Hang Up & Reset the Modem  ║ ]  \+V0[1] ]
  1629. ```````````\DM42,%V0[ ╚═══"══"══════════════════════════════╝ ]  \+V0[1] \DMC[31]
  1630. \FE-%S:Dialer.BSC[\EM]\IE+%HR,%VQ[\DMC[140]\DM42,%V0[      Disconnecting for the Dialer!      ]\DMC[31]\+V0[1]
  1631. \FE-%S:Dialer.BSC[\EM | \IE+%HR,%VQ[\II+%HR,02,03,04,05,06,07[\AV[4] | \AV[6]]]]
  1632. \FE-%S:Dialer.BSC[\EM | \IE+%HR,%VQ[\RE5[~\AL2[0]~\AL2[0]~\AL2[1]~] \KO[30] \AV[6]]]
  1633. \KV0R[ SysOp Option: ] \RS
  1634. \II-%V0,%V9[\GB[*TAB]] \SV9[]
  1635. \FE-%S:Dialer.BSC[\EM]\IV0+D[\KVQ%VQ[  NEW time to START dialing:   ]\+vK[60]\SVQ[%VQ]]
  1636. \FE-%S:Dialer.BSC[\EM]\IV0+D[\KVH%VH[  NEW time to FINISH dialing:  ]\SV0[]\GB[Menu]\em]
  1637. \IV0+A[\SV0[]\+vK[15]\Bl[Timer]\ST[ Total time now: %VD]] \\ Adds Time to the user
  1638. \IV0+C[\SV0[]\GB[Gossip]\em]
  1639. \IV0+G[\SV0[]\GB[ForceOff]\em]
  1640. \IV0+#[\DC[DEL %F:AREACODE]\BL[AreaCodes]]
  1641. \IV0+L[\SV0[]\BL[ChangeUserLevel]\DM24[ Level %VL upload path is: %VU ]]
  1642. \IV0+F[\IVO-waiting[^G \ZS`Please Wait, SysOp went to Dos...~]\NC[7]\FM[%V4]\NC[10]]
  1643. \IV0+F[\SV0[]\IVO-waiting[^G{{SysOp is back, hold on...~]]
  1644. \IV0+H[\IVO-Waiting[^G  \ZS`Please Wait, SysOp went to Dos...~]\NC[7]\CB[A]\NC[10]]
  1645. \IV0+H[\IVO+Waiting[\AM[H]\SN[]\DC[COPY %B:HOST.CNF *.BAK]\NC[7]\ZS\GB[WaitForCall]\EM]]
  1646. \IV0+H[\DC[COPY %B:HOST.CNF *.BAK]\SV0[]^G{{SysOp is back, hold on...~\AM[H] \EC+ \LF+]
  1647. \IV0+J[\IVO-waiting[^G \ZS`Please Wait, SysOp went to Dos...]\NC[7]]
  1648. \IV0+J[\SV0[]\JD\NC[10]\IVO-waiting[^G{{SysOp is back, hold on...]]
  1649. \IV0+S[\SV0[]\RB]
  1650. \IV0+T[\SV0[]\+vK[-5] \Bl[Timer] \ST[ Total time now: %VD]]
  1651. \IV0+E[\IVO-Waiting[^G  \ZS`Please Wait, SysOp went to Dos...~]\DC[%WC %UN]]
  1652. \IV0+E[\SV0[] \IVO-Waiting[ ^G{{SysOp is back, hold on...~]]
  1653. \FE-%S:Dialer.BSC[\EM]\IE+%HR,%VQ[\SV0[]\GB[Dialer]\em]
  1654. \IV0+U[\UF*[%UN]]         \\ Toggles the Logging to the default usage log file
  1655. \IV0+R[\IVO+Waiting[ \NC[7] \ZS \GB[WaitForCall]\em]
  1656. \IV0+R[\IVO+Online[\IVN+[\NC[7] \ZS \GB[WaitForCall]\em]]
  1657. \IV0+R[\IVO+Online[\IV3+MODEM[\CA-[\NC[7] \ZS \GB[WaitForCall]\em]]]] 
  1658. \IV0+R[\SV0[] \ZS \GB[Menu]\em]
  1659. \SV0[] \GB[*TAB] \em
  1660.  
  1661. |ChangeUserLevel
  1662. \ND[%B:] \KS \DMC[11] 
  1663.  \DM1[      PLEASE SELECT THE  USER'S LEVEL   ]
  1664.  \DM2["     ═══════════════════════════════   ]\DMC[7] 
  1665.  \DM3["[0"] - 20  min   Comments only." ````  ]
  1666.  \DM4["  "                                    ]\DMC[9]
  1667.  \DM5["[1"] - 45  min   %V5`````````   Files  ]
  1668.  \DM6["  "                                    ]\DMC[14]
  1669.  \DM7["[2"] - 45  min   %V5`````````   and    ]
  1670.  \DM8["  "              %VY"2"\``````         ]
  1671.  \DM9["  "                                    ]\DMC[13]
  1672. \DM10["[3"] - 120 min   %V5`````````   and    ]
  1673. \DM11["  "              %VY"2"\``````         ]
  1674. \DM12["  "              %VY"3"\``````         ]\DMC[12]
  1675. \DM13[                                        ]
  1676. \DM14["[4"] - 360 min   All files, DOS. ````` ]\DMC[11]
  1677. \DM15["     ═══════════════════════════════   ] 
  1678. \DM16["   "[Esc"] to Quit Host Mode           ] \SV[] \SV1[] \DMC[31]
  1679. \KV1%VL[ New level for %VF: ]
  1680. \IV3+Modem[\CA-[\UM[Carrier Lost, ChangeUserLevel Block]\GB[Cycle]]]
  1681. \IV1+%VL[\RS \EB]                        \\ If same level, end block
  1682. \II-%V1,0,1,2,3,4[\RE2[\AL2[0]~] \GB[ChangeUserLevel] | \SVL[%V1]]
  1683. \IVL+0[\TM%VI[%VN;%VP;%VL;%VE]\DC[COPY %B:HOST.CNF *.BAK]\BL[StartTime]\RS\EB] \\ Store change in host user base
  1684. \IVL+1[\TM%VI[%VN;%VP;%VL;%VE]\DC[COPY %B:HOST.CNF *.BAK]\BL[StartTime]\RS\EB] \\ Store change in host user base
  1685. \IVL+2[\TM%VI[%VN;%VP;%VL;%VE]\DC[COPY %B:HOST.CNF *.BAK]\BL[StartTime]\RS\EB] \\ Store change in host user base
  1686. \IVL+3[\TM%VI[%VN;%VP;%VL;%VE]\DC[COPY %B:HOST.CNF *.BAK]\BL[StartTime]\RS\EB] \\ Store change in host user base
  1687. \IVL+4[\TM%VI[%VN;%VP;%VL;%VE]\DC[COPY %B:HOST.CNF *.BAK]\BL[StartTime]\RS\EB] \\ Store change in host user base
  1688. \GB[ChangeUserLevel] \em
  1689.  
  1690. |ZipView
  1691. \IV3+Modem[\ca-[\UM[Carrier Lost, ZipView Block]\gb[Cycle]]] \ND[%V5]
  1692. \IVL+4[{Name of file to Unzip: " \RV0[70]]
  1693. \IV3+Modem[\ca-[\UM[Carrier Lost, ZipView Block]\gb[Cycle]]]
  1694. \IVL-4[{Name of file to Unzip: " \RV0[12]]
  1695. \IV3+Modem[\ca-[\UM[Carrier Lost, ZipView Block]\gb[Cycle]]]
  1696. \IV0+[   \ZS {No file selected. \GB[Menu]\em]
  1697. \IVL+0[\FE+%V5%V0[\SV0[%V5%V0]]
  1698. \IVL+1[\FE+%V5%V0[\SV0[%V5%V0]]
  1699. \IVL+2[\FE+%V5%V0[ \SV0[%V5%V0] \EM | \SV0[%VY2"\%V0]]]
  1700. \IVL+3[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  1701. \IVL+3[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]]]
  1702. \IVL+4[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  1703. \IVL+4[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]\FE+%VY4"\%V0[\SV0[%VY4"\%V0]]]]
  1704. \FE-%V0[  \ZS {File not found, check the spelling.\GB[Menu]\em]
  1705. \II-.ZIP,%V0[\II-.EXE,%V0[\II-.QWK,%V0[\II-.REP,%V0[{That file is not Zipped, try "[V"]iew. \GB[Menu]\em]]]]
  1706. \UM[Viewed Compressed file %V0]
  1707.  \ZS{Unziping the file might take a while, hold on...
  1708. \ND[%V4]\DC[pkunzip -V %V0 > %V4`HostMsg.Tmp]   \ZS
  1709. \SVZ[%V4`HostMsg.Tmp] \bl[list] \GB[Menu]\em \\ List file contents to screen
  1710.  
  1711. |NewPassword
  1712. \IV3+Modem[\ca-[\UM[Carrier Lost, NewPassword Block]\gb[Cycle]]]\ND[%B:]
  1713.  \ZS {Type your current password (asterisks will echo): " \RV0*[15]
  1714. \IV3+Modem[\ca-[\UM[Carrier Lost, NewPassword Block]\gb[Cycle]]]
  1715. \IV0-%VP[^G {Wrong password! \GB[Menu]\em]
  1716. {Type the new password you would like: " \RV0*[15]
  1717. \IV3+Modem[\ca-[\UM[Carrier Lost, NewPassword Block]\gb[Cycle]]]
  1718. \IV0+[{Blank passwords are not allowed. \GB[Menu]\em]
  1719. {Type this password again to confirm:  " \RV1*[15]
  1720. \IV3+Modem[\ca-[\UM[Carrier Lost, NewPassword Block]\gb[Cycle]]]
  1721. \IE-%V0,%V1[^G{Your passwords didn't match! \GB[Menu]\em]
  1722. \UM[Changed the password] {Okay, your password has been changed.{
  1723. \SVP[%V0] \TM%VI[%VN;%VP;%VL;%VE] \DC[COPY %B:HOST.CNF *.BAK] \GB[Menu]\em  \\ Store change in host user base
  1724.  
  1725. |Shell
  1726. \IV3+Modem[\ca-[\UM[Carrier Lost, Shell Block]\gb[Cycle]]] \ND[%B:]
  1727. \IV3+LOCAL[\UM[Jumped to DOS at %HR:%MI:%SE] \NC[7] \JD] \\ If Local Host test, just Jump to DOS.
  1728. \IV3+LOCAL[\NC[10] \ZS \DC[echo "[00;37m] \GB[Menu] \EM]
  1729. \FE+%B:DOORS"\DOORWAY.EXE[\GB[Doorway]\em] \\ If Doorway.exe found, go to block Doorway
  1730. \UM[Jumped to DOS at %HR:%MI:%SE]   \ZS {`Type "EXIT" to return to the Host... \NC[7]
  1731. \SV0[%B:Host.Bat]                     \\ Create a new batch file Host.Bat
  1732. \FE+%V0[\DC[Del %V0]]                 \\ which has three lines:
  1733. \AF%V0[CTTY COM%MD]                   \\   CTTY COM1    (or COM2,COM3,COM4)
  1734. \AF%V0[COMMAND.COM]                   \\   COMMAND
  1735. \AF%V0[CTTY CON]                      \\   CTTY CON
  1736. {\DC[%B:Host.Bat]                     \\ Then execute the batch file.
  1737. \IV3+Modem[\ca-[\UM[Carrier Lost, Shell Block]\gb[Cycle]]]
  1738. "[255D"[0;1;32m \NC[10]   \ZS       \\ Display bright green letters on black background
  1739. \DC[echo "[00;37m] \GB[Menu] \em
  1740.  
  1741. |Doorway
  1742. \IV3+Modem[\ca-[\UM[Carrier Lost, Doorway Block]\gb[Cycle]]] \ND[%B:"\DOORS]
  1743.  \ZS {`Switch into your Doorway action module of your communication{
  1744. program; it is usually done by pressing "[Alt + Equals"] ...
  1745. \UM[Invoked Doorway at %HR:%MI:%SE] \BL[DoorSys]
  1746. \\DC[%B:DOORS"\DOORWAY SYS /B:MSZ /V:D^U /O:T /L: /C:DOS] \\ invoke DOORWAY
  1747. \DC[%B:DOORS"\DOORWAY SYS /V:D^U /O:T /L: /C:DOS] \\ invoke DOORWAY
  1748. \IV3+Modem[\ca-[\UM[Carrier Lost, Doorway Block]\gb[Cycle]]]
  1749. \NC[10] "[255D"[0;1;32m   \ZS `Hit "[Alt + Equals"] again, to return to your previous module.{
  1750. \DC[echo "[00;37m] \GB[Menu] \em
  1751.  
  1752. |Shutdown
  1753. \IV3+Modem[\ca-[\UM[Carrier Lost, Shutdown Block]\gb[Cycle]]]\ND[%B:]
  1754. ^G {Are you sure you want to Shut Down the host (Y/n) " \RV0[1]
  1755. \IV3+Modem[\ca-[\UM[Carrier Lost, Shutdown Block]\gb[Cycle]]]
  1756. \IV0-Y[\GB[Menu]] {{{Hanging up now...
  1757. {\AM[A] \HU \PL~~\CA+[^G   \ZS{{`Unsuccesfull!!! \GB[Cycle] \em] \\ This goes to the *WRAPUP block
  1758. \UM[Performed a Remote Shutdown at %HR:%MI:%SE] 
  1759.  
  1760. |*WRAPUP
  1761. \CA+[  ^G \SVO[Online] \AM[H] \EC+ \LF+] \NC[7] \ZS
  1762. \CA+[{Host program aborted by accident, but you are still online and connected.{]
  1763. \CA+[{Type something to announce that you're still here, or hang up.{{ \DMC[79]]
  1764. \CA+[\DM23,10[ ╔══"══════════════════════════════"═══╗ ]]
  1765. \CA+[\DM23,11[ ║  "   CARRIER is still present!  "   ║ ]]
  1766. \CA+[\DM23,12[ ║  "                              "   ║ ]]
  1767. \CA+[\DM23,13[ ║     "[Alt"] + I to Restart Host     ║ ]]
  1768. \CA+[\DM23,14[ ║  "                              "   ║ ]]
  1769. \CA+[\DM23,15[ ║     "[Alt"] + H and Disconnect!     ║ ]]
  1770. \CA+[\DM23,16[ ╚══"══════════════════════════════"═══╝ ]]
  1771. \SV0[] \SV1[] \SV6[] \SV7[] \SV8[] \SV9[] \SVA[] \SVB[] \SVC[] \\ Clear variables
  1772. \SVD[] \SVE[] \SVF[] \SVG[] \SVI[] \SVJ[] \SVK[] \SVL[] \SVM[] \SVN[] \SVP[] 
  1773. \SVPW[] \SVR[] \SVS[] \SVT[] \SVU[] \SVV[] \SVW[] \SVX[] \SVY[] \SVZ[] \ST[] 
  1774. \SN[]  \TO[120] \KO[100] \SP[50] \SL[20] \BB- \DMC[31] \ND[%S:]
  1775. \FE-%S:Dialer.BSC[\EM] \CA+[\EM] \IVQ-[\IVH-[\IE-%QS,0[\SC[Dialer]]]]
  1776. \CA-[\AM[A] \EC- \LF- \HU \PL \DMC[27] \ZS | \RE3[~\AL2[0]]  ] \ND[%V4]
  1777. \FE+%V4`HostFil.Tmp[\DC[Del %V4`HostFil.Tmp]]     \\ Delete HostFil.Tmp if it exists
  1778. \FE+%V4`HostMsg.Tmp[\DC[Del %V4`HostMsg.Tmp]]     \\ Delete HostMsg.Tmp if it exists
  1779. \FE+%V4`Comment.Tmp[\DC[Del %V4`Comment.Tmp]]     \\ Delete Comment.Tmp if it exists
  1780. \FE+%Dr:\Boymark.Lst[\DC[Del %Dr:\Boymark.Lst]]   \\ Delete Boymark.Lst if it exists
  1781. \DC[echo "[00;37m]
  1782. \CA-[\DM12,05[ ╔════════════════════════════════════════════════════════╗ ]]
  1783. \CA-[\DM12,06[ ║  If you'd like to thank me for the time spent writing  ║ ]]
  1784. \CA-[\DM12,07[ ║  this, and need to have some advice setting up your    ║ ]]
  1785. \CA-[\DM12,08[ ║  Mark Host, you can send what you can to:              ║ ]]
  1786. \CA-[\DM12,09[ ║                                                        ║ ]]
  1787. \CA-[\DM12,10[ ║        P.O. Box 4162, L.I.C. NY, New York 11104.       ║ ]]
  1788. \CA-[\DM12,11[ ║                                                        ║ ]]
  1789. \CA-[\DM12,12[ ║  For our contributors, the latest Markxx.zip version   ║ ]]
  1790. \CA-[\DM12,13[ ║  plus setup support and advice, is available from      ║ ]]
  1791. \CA-[\DM12,14[ ║  718 786 6134,,,,, If prompted for the "Level Increase  ║ ]]
  1792. \CA-[\DM12,15[ ║  Code", just enter your own personal Password.          ║ ]]
  1793. \CA-[\DM12,16[ ║                                                        ║ ]]
  1794. \CA-[\DM12,17[ ║  ╔══════════════════════════════════════════════════╗  ║ ]]
  1795. \CA-[\DM12,18[ ║  ║   Thank you for trying out Mark.Bsc  Ver. 2.4    ║  ║ ]]
  1796. \CA-[\DM12,19[ ║  ║   Your patronage and support is to be expected.  ║  ║ ]]
  1797. \CA-[\DM12,20[ ║  ╚══════════════════════════════════════════════════╝  ║ ]]
  1798. \CA-[\DM12,21[ ╚════════════════════════════════════════════════════════╝ ]]
  1799. \CA-[\UM[---- Host Mode Finished on %MO/%DA/%YR at %HR:%MI -----]]\DMC[31] \UF+ \AB
  1800.  
  1801. |Dialer
  1802. \IVO+Waiting[\ZS] \ND[%S:] \BB-
  1803. \FE-%S:Dialer.BSC[\SVQ[] \SVH[] \CA-[\SC[MARK] \em | \GB[Menu]\em] \DMC[95]
  1804. \DM41,02[ ╔════════════════════════════════════╗ ]
  1805. \DM41,03[ ║                                    ║ ]
  1806. \DM41,04[ ║  Running Mark & Cindi's Sherman's  ║ ]
  1807. \DM41,05[ ║                                    ║ ]
  1808. \DM41,06[ ║         DIALER.BSC  Script!...     ║ ]
  1809. \DM41,07[ ║                                    ║ ]
  1810. \DM41,08[ ╚════════════════════════════════════╝ ]
  1811. \IVO+Online[{{`Sorry, we have to disconnect, so{that we can run the System Event.~~~{{]
  1812. \IVO+Online[Thank you for your Understanding!{{~~~`Disconnecting...~~~{]
  1813. \IVO+Online[\UM[Forced off because of Dialer Mail Run, on %MO/%DA/%YR at %HR:%MI.]]
  1814. \DMC[31] \NC[7] \DT-~~~~ \RE10[\CA+[~~]] \DT+ \AM[A]~~ \EC- \LF- \PL    \\ Hang up the Modem
  1815. \RE10[\CA+[`ATZ{ \PA[5] +++~~~~ATH{ \PA[5] \PL]]        \\ Hang up the Modem
  1816. \CA+[\UM[Dificulties trying to Hang Up, Dialer Block!] \GB[Cycle] \EM] \PL
  1817. \UM[Host Mode gave control to Dialer script on %MO/%DA/%YR at %HR:%MI]
  1818. \SV0[] \SV1[] \SV6[] \SV7[] \SV8[] \SV9[] \SVA[] \SVB[] \SVC[] \\ Clear variables
  1819. \SVD[] \SVE[] \SVF[] \SVG[] \SVI[] \SVJ[] \SVK[] \SVL[] \SVM[] \SVN[] \SVP[] 
  1820. \SVPW[] \SVR[] \SVS[] \SVT[] \SVU[] \SVW[] \SVX[] \SVY[] \SVZ[] \ST[] \SN[]  
  1821. \TO[120] \KO[100] \SP[40] \SL[20] \PL \PA[3] \PL \ZS
  1822. \FE+%S:Dialer.BSC[\SC[Dialer]] \BB-           \\ Go execute the Dialer script
  1823. \DT-~~~~ \RE10[\CA+[~~]] \DT+ \PL             \\ Hang up the Modem
  1824. \RE10[\CA+[`ATZ{ \PA[5] +++~~~~ATH{ \PA[5] \PL]]
  1825. \CA+[\UM[Dificulties Hanging Up, after the Dialer Script!]]
  1826. \PA[4] \PL \ZS \SC[Mark] \em                   \\ And come back to Host.
  1827.  
  1828. |LogOff
  1829. \UM[User Logged Off by Computer on %MO/%DA/%YR at %HR:%MI.] {Disconnecting...~
  1830. \GB[Cycle] \em
  1831.  
  1832. |Notagree
  1833. \SV1[] \UM[Caller %VN %VG baud, Ph: %VB - Didn't agree with New.Msg!]
  1834.  \ZS ^G {Okay... No problem, there's a lot of other{ 
  1835. Bbs's to call.  Have a Nice Day.{~~\GB[LogOff] \em
  1836.  
  1837. |ForceOff
  1838. \IVO+WAITING[\NC[7] \ZS \GB[WaitForCall]] 
  1839. ^G   \ZS {{`SysOp needs the System at the moment.~~~{{{
  1840. Thanks for your understanding...~~~
  1841. \UM[Forced off by the Sysop on %MO/%DA/%YR at %HR:%MI.] {{{Disconnecting...~~~
  1842. {{\NC[7] \GB[Cycle] \em
  1843.  
  1844. |1                    \\  This is a Variable block  (Used for debug purposes)
  1845. \KS\ZS\KO[255] \\ If you need info on variables, place a \BL[1] command, anywhere in the script.
  1846. \DM01,01[00) V0: %V0 ]\DM01,02[01) V1: %V1 ]\DM01,03[02) V2: %V2 ]\DM01,04[03) V3: %V3 ]
  1847. \DM01,05[04) V4: %V4 ]\DM01,06[05) V5: %V5 ]\DM01,07[06) V6: %V6 ]\DM01,08[07) V7: %V7 ]
  1848. \DM01,09[08) V8: %V8 ]\DM01,10[09) V9: %V9 ]\DM01,12[10) VA: %VA ]\DM01,13[11) VB: %VB ]
  1849. \DM01,14[12) VC: %VC ]\DM01,15[13) VD: %VD ]\DM01,16[14) VE: %VE ]\DM01,17[15) VF: %VF ]
  1850. \DM01,18[16) VG: %VG ]\DM01,19[17) VH: %VH ]\DM01,20[18) VI: %VI ]\DM01,21[19) VJ: %VJ ]
  1851. \DM01,22[20) VQ: %VQ ]\DM01,23[21) VK: %VK ]\DM40,01[22) VL: %VL ]\DM40,02[23) VM: %VM ]
  1852. \DM40,03[24) VN: %VN ]\DM40,04[25) VO: %VO ]\DM40,05[26) VP: %VP ]\DM40,06[27) VPW: %VPW ]
  1853. \DM40,07[28) VR: %VR ]\DM40,08[29) VS: %VS ]\DM40,09[30) VT: %VT ]\DM40,10[31) VU: %VU ]
  1854. \DM40,11[32) VV: %VV ]\DM40,12[33) VW: %VW ]\DM40,13[34) VX: %VX ]\DM40,14[35) VY: %VY ]
  1855. \DM40,15[36) VZ: %VZ ]\DM40,16[37) BB: %BB ]\DM40,17[38) "%B: %B: ] \KV [] \KO[100] \RS \EB
  1856.  
  1857. "                                                  ╔════════════════════════╗{
  1858. "                                                  ║ You have connected to: ║{
  1859. "                                                  ║  (Your Bbs Name here)  ║{
  1860. "                                                  ║     (XXX) XXX-XXXX     ║{
  1861. "                                                  ╚════════════════════════╝{{
  1862.  
  1863. "                                          ╔════════════════════════════════╗{
  1864. "                                          ║     You have connected to:     ║{
  1865. "                                          ║  My Computer in the Host Mode. ║{
  1866. "                                          ║         (XXX) XXX-XXXX         ║{
  1867. "                                          ╚════════════════════════════════╝{{
  1868.