home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / MODEM / MARK33.ZIP / MARK.BSC < prev    next >
Text File  |  1994-01-12  |  161KB  |  2,732 lines
  1. \\ Mark Host v3.3 01/12/94, Boyan compatible. By Mark Sherman, NY.
  2.  
  3. \\ UNLESS THE EXPRESS PERMISSION IS OBTAINED, THIS PROGRAM MAY NOT BE
  4. \\ DISTRIBUTED, MODIFIED, INCLUDED IN ANY PACKAGES, FOR PROFIT, UNDER
  5. \\ PENALTY OF LAW.
  6.  
  7. \\ This software is not released into public domain, it is Shareware and
  8. \\ it's users are welcomed to distribute & register it.
  9.  
  10. \\ If you like this program, you can send what you think is apropriate to:
  11. \\ P.O. Box 4162, L.I.C. NY 11104 New York.
  12.  
  13. |InitHost
  14. \EM
  15. \SV0[] \SV1[] \SV6[] \SV7[] \SV8[] \SV9[] \SVA[]  \\ Clearing some variables
  16. \SVB[] \SVC[] \SVD[] \SVE[] \SVF[] \SVG[] \SVI[] \SVJ[] \SVK[] \SVL[] \SVM[] 
  17. \SVN[] \SVP[] \SVPW[] \SVR[] \SVS[] \SVT[] \SVU[] \SVV[] \SVW[] \SVX[] \SVY[] 
  18. \SVZ[] \KO[120] \ST[] \SN[]
  19. \AU- \AV[6] \BB- \ND[%B:] \NC[7] \DMC[31] \ZS
  20. \ZS \DMC[31] \IE-%AN,HOST[\AM[H]] \\ If not active, change to the Host module
  21. \ST[ Loading the Host Module]
  22. \IE-%AN,HOST[\UM[Unable to load HOST module.]\DM24[Unable to load HOST module.]\AB]
  23. \ST[ Checking the Dialer Status] \IE+%QS,0[\SVH[] \SVQ[]] \IVQ+[\SVH[]] \IVH+[\SVQ[]]
  24. \IE-%QS,0[\IE+%HR,%VQ[\CA+[\GB[*Tab]]]]
  25. \\  The following checks if we have the Host Directories configured O.K.
  26. \ST[ Checking Host Message Directory]
  27. \IV4+[\ZS\DMC[09]\DM20,10[ Your Host Message Directory is Missing! ]\SV0[N]]
  28. \ST[ Checking Files Message Directory]
  29. \IV5+[\ZS\DMC[10]\DM20,12[ Your Host Files   Directory is Missing! ]\SV0[N]]
  30. \IV0+N[\RE5[~\AL2[0]] \SV0[] \CB[A]]
  31. \ST[ Checking Host Message Directory]
  32. \IV4+[\ZS\DMC[09]\DM20,10[ Your Host Message Directory is Missing! ]\SV0[N]]
  33. \ST[ Checking Files Message Directory]
  34. \IV5+[\ZS\DMC[10]\DM20,12[ Your Host Files   Directory is Missing! ]\SV0[N]]
  35. \IV0+N[\RE5[~\AL2[0]]\SV0[]\CB[A]] \\ If not configured yet, try one more time!
  36. \IV4+[\SV0[N]] \ST[ Checking Host Message Directory]
  37. \IV5+[\SV0[N]] \ST[ Checking Files Message Directory]
  38. \IV0+N[\ZS\DMC[79]\DM20,10[ Your Host Directories need to be configured! ]\DMC[31]\RE5[~\AL2[0]]\AB]
  39. \\ If not there yet, make Host Message Directory:
  40. \FE-%V4`WELCOME.MSG[\SV0[%V4]\LV0[]\SV0[%LV]\+V0[-1]\SV1[%V4]\LV1[%V0]\DC[MD %V1]]
  41. \FE-%V4`WELCOME.MSG[\AF%V1"\WELCOME.MSG[]] \FE-%V4`WELCOME.MSG[\SV0[N]]
  42. \IV0+N[\ZS\DMC[79]\DM22,10[ Can't create Host Message Directory. ]\DMC[31]\RE5[~\AL2[0]]\AB]
  43. \ST[ Checking Host's Doors Directory] \\ If not there yet, make Host's Doors Directory
  44. \FE-%B:DOORS"\DOORS.DIR[\DC[MD %B:DOORS]]
  45. \FE-%B:DOORS"\DOORS.DIR[\AF%B:DOORS"\DOORS.DIR[Do not delete this file %B:DOORS"\DOORS.DIR]]
  46. \FE-%B:DOORS"\DOORS.DIR[\ZS\DMC[79]\DM22,10[ Can't create Host's Doors Directory.]]
  47. \FE-%B:DOORS"\DOORS.DIR[\DMC[31]\RE5[~\AL2[0]]\AB]
  48. \SV0[%B:]\LV0[]\SV0[%LV]\+V0[-1]\SV1[%B:]\LV1[%V0]\SV1[CD %V1 | BOYAN.COM MARK.BSC]
  49. \ST[ Checking Host Door A Sub Directory.]
  50. \FE-%B:DOORS"\DOORA"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORA ]]
  51. \FE-%B:DOORS"\DOORA"\BOYAN.BAT[    \AF%B:DOORS"\DOORA"\BOYAN.BAT[%V1] ]
  52. \FE-%B:DOORS"\DOORA"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorA Sub Directory! ]]
  53. \FE-%B:DOORS"\DOORA"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  54. \ST[ Checking Host Door B Sub Directory.]
  55. \FE-%B:DOORS"\DOORB"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORB ]]
  56. \FE-%B:DOORS"\DOORB"\BOYAN.BAT[    \AF%B:DOORS"\DOORB"\BOYAN.BAT[%V1] ]
  57. \FE-%B:DOORS"\DOORB"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorB Sub Directory! ]]
  58. \FE-%B:DOORS"\DOORB"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  59. \ST[ Checking Host Door C Sub Directory.]
  60. \FE-%B:DOORS"\DOORC"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORC ]]
  61. \FE-%B:DOORS"\DOORC"\BOYAN.BAT[    \AF%B:DOORS"\DOORC"\BOYAN.BAT[%V1] ]
  62. \FE-%B:DOORS"\DOORC"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorC Sub Directory! ]]
  63. \FE-%B:DOORS"\DOORC"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  64. \ST[ Checking Host Door D Sub Directory.]
  65. \FE-%B:DOORS"\DOORD"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORD ]]
  66. \FE-%B:DOORS"\DOORD"\BOYAN.BAT[    \AF%B:DOORS"\DOORD"\BOYAN.BAT[%V1] ]
  67. \FE-%B:DOORS"\DOORD"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorD Sub Directory! ]]
  68. \FE-%B:DOORS"\DOORD"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  69. \ST[ Checking Host Door E Sub Directory.]
  70. \FE-%B:DOORS"\DOORE"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORE ]]
  71. \FE-%B:DOORS"\DOORE"\BOYAN.BAT[    \AF%B:DOORS"\DOORE"\BOYAN.BAT[%V1] ]
  72. \FE-%B:DOORS"\DOORE"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorE Sub Directory! ]]
  73. \FE-%B:DOORS"\DOORE"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  74. \ST[ Checking Host Door F Sub Directory.]
  75. \FE-%B:DOORS"\DOORF"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORF ]]
  76. \FE-%B:DOORS"\DOORF"\BOYAN.BAT[    \AF%B:DOORS"\DOORF"\BOYAN.BAT[%V1] ]
  77. \FE-%B:DOORS"\DOORF"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorF Sub Directory! ]]
  78. \FE-%B:DOORS"\DOORF"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  79. \ST[ Checking Host Door H Sub Directory.]
  80. \FE-%B:DOORS"\DOORH"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORH ]]
  81. \FE-%B:DOORS"\DOORH"\BOYAN.BAT[    \AF%B:DOORS"\DOORH"\BOYAN.BAT[%V1] ]
  82. \FE-%B:DOORS"\DOORH"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorH Sub Directory! ]]
  83. \FE-%B:DOORS"\DOORH"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  84. \ST[ Checking Host Door I Sub Directory.]
  85. \FE-%B:DOORS"\DOORI"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORI ]]
  86. \FE-%B:DOORS"\DOORI"\BOYAN.BAT[    \AF%B:DOORS"\DOORI"\BOYAN.BAT[%V1] ]
  87. \FE-%B:DOORS"\DOORI"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorI Sub Directory! ]]
  88. \FE-%B:DOORS"\DOORI"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  89. \ST[ Checking Host Door J Sub Directory.]
  90. \FE-%B:DOORS"\DOORJ"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORJ ]]
  91. \FE-%B:DOORS"\DOORJ"\BOYAN.BAT[    \AF%B:DOORS"\DOORJ"\BOYAN.BAT[%V1] ]
  92. \FE-%B:DOORS"\DOORJ"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorJ Sub Directory! ]]
  93. \FE-%B:DOORS"\DOORJ"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  94. \ST[ Checking Host Door K Sub Directory.]
  95. \FE-%B:DOORS"\DOORK"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORK ]]
  96. \FE-%B:DOORS"\DOORK"\BOYAN.BAT[    \AF%B:DOORS"\DOORK"\BOYAN.BAT[%V1] ]
  97. \FE-%B:DOORS"\DOORK"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorK Sub Directory! ]]
  98. \FE-%B:DOORS"\DOORK"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  99. \ST[ Checking Host Door L Sub Directory.]
  100. \FE-%B:DOORS"\DOORL"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORL ]]
  101. \FE-%B:DOORS"\DOORL"\BOYAN.BAT[    \AF%B:DOORS"\DOORL"\BOYAN.BAT[%V1] ]
  102. \FE-%B:DOORS"\DOORL"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorL Sub Directory! ]]
  103. \FE-%B:DOORS"\DOORL"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  104. \ST[ Checking Host Door M Sub Directory.]
  105. \FE-%B:DOORS"\DOORM"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORM ]]
  106. \FE-%B:DOORS"\DOORM"\BOYAN.BAT[    \AF%B:DOORS"\DOORM"\BOYAN.BAT[%V1] ]
  107. \FE-%B:DOORS"\DOORM"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorM Sub Directory! ]]
  108. \FE-%B:DOORS"\DOORM"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  109. \ST[ Checking Host Door N Sub Directory.]
  110. \FE-%B:DOORS"\DOORN"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORN ]]
  111. \FE-%B:DOORS"\DOORN"\BOYAN.BAT[    \AF%B:DOORS"\DOORN"\BOYAN.BAT[%V1] ]
  112. \FE-%B:DOORS"\DOORN"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorN Sub Directory! ]]
  113. \FE-%B:DOORS"\DOORN"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  114. \ST[ Checking Host Door O Sub Directory.]
  115. \FE-%B:DOORS"\DOORO"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORO ]]
  116. \FE-%B:DOORS"\DOORO"\BOYAN.BAT[    \AF%B:DOORS"\DOORO"\BOYAN.BAT[%V1] ]
  117. \FE-%B:DOORS"\DOORO"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorO Sub Directory! ]]
  118. \FE-%B:DOORS"\DOORO"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  119. \ST[ Checking Host Door P Sub Directory.]
  120. \FE-%B:DOORS"\DOORP"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORP ]]
  121. \FE-%B:DOORS"\DOORP"\BOYAN.BAT[    \AF%B:DOORS"\DOORP"\BOYAN.BAT[%V1] ]
  122. \FE-%B:DOORS"\DOORP"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorP Sub Directory! ]]
  123. \FE-%B:DOORS"\DOORP"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  124. \ST[ Checking Host Door R Sub Directory.]
  125. \FE-%B:DOORS"\DOORR"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORR ]]
  126. \FE-%B:DOORS"\DOORR"\BOYAN.BAT[    \AF%B:DOORS"\DOORR"\BOYAN.BAT[%V1] ]
  127. \FE-%B:DOORS"\DOORR"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorR Sub Directory! ]]
  128. \FE-%B:DOORS"\DOORR"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  129. \ST[ Checking Host Door S Sub Directory.]
  130. \FE-%B:DOORS"\DOORS"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORS ]]
  131. \FE-%B:DOORS"\DOORS"\BOYAN.BAT[    \AF%B:DOORS"\DOORS"\BOYAN.BAT[%V1] ]
  132. \FE-%B:DOORS"\DOORS"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorS Sub Directory! ]]
  133. \FE-%B:DOORS"\DOORS"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  134. \ST[ Checking Host Door T Sub Directory.]
  135. \FE-%B:DOORS"\DOORT"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORT ]]
  136. \FE-%B:DOORS"\DOORT"\BOYAN.BAT[    \AF%B:DOORS"\DOORT"\BOYAN.BAT[%V1] ]
  137. \FE-%B:DOORS"\DOORT"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorT Sub Directory! ]]
  138. \FE-%B:DOORS"\DOORT"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  139. \ST[ Checking Host Door U Sub Directory.]
  140. \FE-%B:DOORS"\DOORU"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORU ]]
  141. \FE-%B:DOORS"\DOORU"\BOYAN.BAT[    \AF%B:DOORS"\DOORU"\BOYAN.BAT[%V1] ]
  142. \FE-%B:DOORS"\DOORU"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorU Sub Directory! ]]
  143. \FE-%B:DOORS"\DOORU"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  144. \ST[ Checking Host Door V Sub Directory.]
  145. \FE-%B:DOORS"\DOORV"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORV ]]
  146. \FE-%B:DOORS"\DOORV"\BOYAN.BAT[    \AF%B:DOORS"\DOORV"\BOYAN.BAT[%V1] ]
  147. \FE-%B:DOORS"\DOORV"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorV Sub Directory! ]]
  148. \FE-%B:DOORS"\DOORV"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  149. \ST[ Checking Host Door W Sub Directory.]
  150. \FE-%B:DOORS"\DOORW"\BOYAN.BAT[\DC[MD %B:DOORS"\DOORW ]]
  151. \FE-%B:DOORS"\DOORW"\BOYAN.BAT[    \AF%B:DOORS"\DOORW"\BOYAN.BAT[%V1] ]
  152. \FE-%B:DOORS"\DOORW"\BOYAN.BAT[\ZS\DMC[79]\DM22,10[ Can't create Host DoorW Sub Directory! ]]
  153. \FE-%B:DOORS"\DOORW"\BOYAN.BAT[\DMC[31] \RE5[~\AL2[0]]\AB]
  154. \\ If not there yet, make Level 1 Host Temp Upload Directory:
  155. \FE-%V5TEMP"\DIR1[\SV0[%V5]\LV0[]\SV0[%LV]\+V0[-1]\SV1[%V5]\LV1[%V0]]
  156. \FE-%V5TEMP"\DIR1[\DC[MD %V1 | MD %V1\TEMP] \AF%V1"\TEMP"\DIR1[Do not Delete this file %V1\TEMP"\DIR1]]
  157. \FE-%V5TEMP"\DIR1[\SV0[N]]
  158. \IV0+N[\ZS\DMC[79]\DM10,10[ Can't create Host Temp Upload Directory file %V5TEMP"\DIR1 ]\DMC[31]\RE5[~\AL2[0]]\AB]
  159. \SV0[] \SV1[] \\ If not there yet, make Level 2 Host Temp Upload Directory:
  160. \SV0[%V5]\LV0[]\SV0[%LV]\+V0[-1] \\ Remove the backwards slash from the path
  161. \IV0+15[\+V0[-5]]\IV0+14[\+V0[-4]]\IV0+13[\+V0[-3]]\IV0+12[\+V0[-2]]\IV0+11[\+V0[-1]]
  162. \SV1[%V5] \LV1[%V0] \SV0[%V1"2]
  163. \FE-%V0"\TEMP"\DIR2[\DC[MD %V0 | MD %V0"\TEMP] \AF%V0"\TEMP"\DIR2[Do not Delete this file %V0"\TEMP"\DIR2]]
  164. \FE-%V0"\TEMP"\DIR2[\SV1[N]]
  165. \IV1+N[\ZS\DMC[79]\DM10,10[ Can't create Host Temp Upload Directory file %V0"\TEMP"\DIR2 ]\DMC[31]\RE5[~\AL2[0]]\AB]
  166. \SV0[%V1"3]   \\ If not there yet, make Level 3 Host Temp Upload Directory:
  167. \FE-%V0"\TEMP"\DIR3[\DC[MD %V0 | MD %V0"\TEMP] \AF%V0"\TEMP"\DIR3[Do not Delete this file %V0"\TEMP"\DIR3]]
  168. \FE-%V0"\TEMP"\DIR3[\SV1[N]]
  169. \IV1+N[\ZS\DMC[79]\DM10,10[ Can't create Host Temp Upload Directory file %V0"\TEMP"\DIR3 ]\DMC[31]\RE5[~\AL2[0]]\AB]
  170. \SV0[%V1"4]   \\ If not there yet, make Level 4 Host Temp Upload Directory:
  171. \FE-%V0"\TEMP"\DIR4[\DC[MD %V0 | MD %V0"\TEMP] \AF%V0"\TEMP"\DIR4[Do not Delete this file %V0"\TEMP"\DIR4]]
  172. \FE-%V0"\TEMP"\DIR4[\SV1[N]]
  173. \IV1+N[\ZS\DMC[79]\DM10,10[ Can't create Host Temp Upload Directory file %V0"\TEMP"\DIR4 ]\DMC[31]\RE5[~\AL2[0]]\AB]
  174. \SV0[%V1"5]   \\ If not there yet, make Level 5 Host Temp Upload Directory:
  175. \FE-%V0"\TEMP"\DIR5[\DC[MD %V0 | MD %V0"\TEMP] \AF%V0"\TEMP"\DIR5[Do not Delete this file %V0"\TEMP"\DIR5]]
  176. \FE-%V0"\TEMP"\DIR5[\SV1[N]]
  177. \IV1+N[\ZS\DMC[79]\DM10,10[ Can't create Host Temp Upload Directory file %V0"\TEMP"\DIR5 ]\DMC[31]\RE5[~\AL2[0]]\AB]
  178. \BL[AreaCodes] \UM[]
  179. \UM[  ░▒░▒░▒░▒░▒░▒░▒░   Mark Host Invoked on %MO/%DA/%YR at %HR:%MI   ▒░▒░▒░▒░▒░▒░▒░▒]
  180. \ZS \GB[StandBy]
  181.  
  182. |StandBy
  183. \EM
  184. \PL \SVO[Waiting] \KO[120] \NC[7] \AV[6] \BB-
  185. \SV0[]\SV1[]\SV6[]\SV7[]\SV8[]\SV9[]\SVA[]\SVB[]      \\ Clear variables
  186. \SVC[]\SVD[]\SVE[]\SVF[]\SVG[]\SVI[]\SVJ[]\SVK[]\SVM[]\SVN[]\SVP[]\SVPW[]
  187. \SVR[]\SVS[]\SVT[]\SVU[]\SVV[]\SVW[]\SVX[]\SVY[]\SVZ[] \SP[0] \SL[0] \SN[]
  188. \CA+[\SVG[%MS] \SVL[1] \GB[Hello]] \\ If carrier detected when started Host, set the User level to 1, go to Hello
  189. \IV3-MODEM[\GB[Hello]\EM] \SV0[00] \\ Go to Hello if not a modem connection
  190. \TO[10] \IE-%AN,HOST[\AM[H]] \EC- \LF-
  191. \IE-%MS,%MM[\CS[%MM]] \CP[None] \MA[3]  \\ Maximum modem's speed, no parity
  192. ATX4S0=0{                               \\ Tell modem not to auto answer
  193. \WF[OK]\TO[180] \IW-[{\UM[No "OK" from modem, StandBy block.]\GB[Cycle]\EM | \ST[]]
  194. ```\DMC[07]\DM50,01[    Mark Host v3.3 01/12/93    ]
  195. ```\DMC[11]\DM50,02[ ╔═══════════════════════════╗ ]
  196. ```````````\DM50,03[ ║    WAITING  FOR  CALLS    ║ ]
  197. ```````````\DM50,04[ ║                           ║ ]
  198. ```````````\DM50,05[ ╟───────────────────────────╢ ]
  199. ```````````\DM50,06[ ║  "[Tab"] Sysop Menu         ║ ]
  200. ```````````\DM50,07[ ║  "[Esc"] Quits Host Mode    ║ ]
  201. ```````````\DM50,08[ ║  "[A"]   Answers manually   ║ ]
  202. \II+%UF,ON[\DM50,09[ ║  Activity log is now on.  ║ ] | \DM50,09[ ║  Activity log is now off. ║ ]]
  203. ```````````\DM50,10[ ╚═══════════════════════════╝ ]\DMC[04]
  204. \\ The following line checks if the Dialer is set to Dial at a certain 
  205. \\ Hour, and if the hours match, exits for Dialer script and comes back.
  206. \FE-%S:Dialer.BSC[\SVQ[] \SVH[]] \\ Empty variables Q and H if Dialer script not found
  207. \IE+%QS,0[\SVQ[] \SVH[]]         \\ Empty variables Q and H if the Queue is empty
  208. \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]|\GB[Dialer]]]]]]
  209. \\  If the Dialer script is not running, just wait for RING:
  210. \IVQ+[\RE[\DM55,04[%MO/%DA/%YR  %HR:%MI:%SE:%V0]\+V0[1]\IF+RING[\EM]\IE+%IK,A[\EM]\IV0+59[\SV0[00]]]]
  211. \II-%V2,13,14[\TO[7] \SV0[%V2] \+V0[-1]]  \\ Let %V0 = tot. number of rings -1
  212. \II-%V2,13,14[\RE%V0[\WF[RING]]]          \\ Wait for %V0 additional rings.
  213. \IW-[\UM[Phone did not ring enough times, %MO/%DA/%YR at %HR:%MI.]\GB[StandBy]] \\ If not enough rings, go to block StandBy.
  214. \DMC[31]\NC[113]\ZS \\ Make screen bright, so it can be seen from another room!
  215. \SV0[]\TO[50]       \\ Set the Carier Waiting Time to 50 seconds
  216. ATA{                \\ Tell your Modem to Answer the Phone,
  217. \WF[CONNECT]        \\ Wait for the "CONNECT" message.
  218. \IW-[{\UM[Mark Host answered phone, no modem detected on %MO/%DA/%YR at %HR:%MI.]\GB[Cycle]] \\ If not found, cycle for next call.
  219. \PA[2]              \\ Pause 2 seconds before looking for the Connect Speeds.
  220. \IF+115200[\SVG[115200]\SVJ[Y]\IE+%AD,ON[\CS[%VG]] ]
  221. \IF+57600[\SVG[57600]\SVJ[Y]\IE+%AD,ON[\CS[%VG]]   ] \\ Toggle Variable J as:
  222. \IF+38400[\SVG[38400]\SVJ[Y]\IE+%AD,ON[\CS[%VG]]   ] \\ [Y]es, [N]o, [M]essage
  223. \IF+28800[\SVG[28800]\SVJ[Y]\IE+%AD,ON[\CS[38400]] ] \\ to activate the desired
  224. \IF+24000[\SVG[24000]\SVJ[Y]\IE+%AD,ON[\CS[38400]] ] \\ speeds.
  225. \IF+19200[\SVG[19200]\SVJ[Y]\IE+%AD,ON[\CS[%VG]]   ] \\ Then, if the amount of
  226. \IF+16800[\SVG[16800]\SVJ[Y]\IE+%AD,ON[\CS[19200]] ] \\ rings equals 13 and J=N
  227. \IF+14400[\SVG[14400]\SVJ[Y]\IE+%AD,ON[\CS[19200]] ] \\ a caller (not SysOp)
  228. \IF+12000[\SVG[12000]\SVJ[Y]\IE+%AD,ON[\CS[19200]] ] \\ will be disconnected.
  229. `\IF+9600[\SVG[9600] \SVJ[Y]\IE+%AD,ON[\CS[%VG]]   ] \\ If 13 rings, and J=B
  230. `\IF+4800[\SVG[4800] \SVJ[M]\IE+%AD,ON[\CS[%VG]]   ] \\ a message (you will not
  231. `\IF+2400[\SVG[2400] \SVJ[M]\IE+%AD,ON[\CS[%VG]]   ] \\ support this speed in
  232. `\IF+1200[\SVG[1200] \SVJ[M]\IE+%AD,ON[\CS[%VG]]   ] \\ the future, will be
  233. ``\IF+300[\SVG[300]  \SVJ[N]\IE+%AD,ON[\CS[%VG]]   ] \\ sent to the caller.
  234. \IVG+[\UM[Problem finding the Connect Speeds, using modem's maximum.]]
  235. \IVG+[\SVG[%MM] \IE+%AD,ON[\CS[%VG]]] \CP[None]
  236. \IV3+Modem[\CA-[\UM[Carrier Lost, StandBy Block]\GB[Cycle]\EM]]
  237. \NC[7] \ZS \GB[Hello] \\ Clear our screen and go to Hello Block
  238.  
  239. |Hello
  240. \EM
  241. \TO[180]       \\ General Wait Time for input.
  242. \IV3-LOCAL[\IVG+115200[\IE+%AD,ON[\CS[%VG]  ]]]
  243. \IV3-LOCAL[\IVG+57600[\IE+%AD,ON[\CS[%VG]   ]]]
  244. \IV3-LOCAL[\IVG+38400[\IE+%AD,ON[\CS[%VG]   ]]]
  245. \IV3-LOCAL[\IVG+28800[\IE+%AD,ON[\CS[38400] ]]]
  246. \IV3-LOCAL[\IVG+24000[\IE+%AD,ON[\CS[38400] ]]]
  247. \IV3-LOCAL[\IVG+19200[\IE+%AD,ON[\CS[%VG]   ]]]
  248. \IV3-LOCAL[\IVG+16800[\IE+%AD,ON[\CS[19200] ]]]
  249. \IV3-LOCAL[\IVG+14400[\IE+%AD,ON[\CS[19200] ]]]
  250. \IV3-LOCAL[\IVG+12000[\IE+%AD,ON[\CS[19200] ]]]
  251. \IV3-LOCAL[\IVG+9600[ \IE+%AD,ON[\CS[%VG]   ]]]
  252. \IV3-LOCAL[\IVG+4800[ \IE+%AD,ON[\CS[%VG]   ]]]
  253. \IV3-LOCAL[\IVG+2400[ \IE+%AD,ON[\CS[%VG]   ]]]
  254. \IV3-LOCAL[\IVG+1200[ \IE+%AD,ON[\CS[%VG]   ]]]
  255. \IV3-LOCAL[\IVG+300[  \IE+%AD,ON[\CS[%VG]   ]]]
  256. \IV3-LOCAL[\IVG+%MM[  \IE+%AD,ON[\CS[%VG]   ]]]
  257. \IV3-LOCAL[\UM[%VG baud connection]  \CP[None]]
  258. \IV3+Modem[\CA-[\UM[Carrier Lost, Hello Block]\GB[Cycle]\EM]]
  259. \FE+%V4`HostFil.Tmp[\DC[Del %V4`HostFil.Tmp]]   \\ Delete HostFil.Tmp if it exists
  260. \FE+%V4`HostMsg.Tmp[\DC[Del %V4`HostMsg.Tmp]]   \\ Delete HostMsg.Tmp if it exists
  261. \FE+%V4`Comment.Tmp[\DC[Del %V4`Comment.Tmp]]   \\ Delete Comment.Tmp if it exists
  262. \FE+%Dr:\Boymark.Lst[\DC[Del %Dr:\Boymark.Lst]] \\ Delete Boymark.Lst if it exists
  263. \SVO[Online] \BB-     \IV3-LOCAL[\EC+ \LF+ \PL]
  264. \II+%HR,00,01,02,03,04,05,06,07,08,09,10[\AV[3] | \AV[6]] \\ If late, set alarm lower.
  265. \IV3-LOCAL[{{`Mark Host v3.3 Written 01/12/94 (c) by Mark Sherman,  New York. \ZS]
  266. \FE+%V4`WELCOME.MSG[\AM[A] \EC- \LF-]\IV3-LOCAL[\PL] \\ Change to Ansi if WELCOME.MSG exists
  267. \CA+[\RE3[\CA-[\GB[Cycle]\EM]\AL2[0]~]\AL2[1]]\AV[6] \\ If CARRIER detected, beep few times
  268. \FE+%V4`WELCOME.MSG[ \IE+%UF,ON[\SV0[ON]\UF-]]       \\ Turn off the Log (for the ASCII Upload)
  269.  \ZS \FE+%V4`WELCOME.MSG[\ULA-[%V4`WELCOME.MSG]]    \\ If found, Ansi Upload the Welcome file 
  270. \FE+%V4`WELCOME.MSG[\IV0+ON[\UF+]]                   \\ Turn the Log back On
  271. \PA[1] \PL "[255D"[0;1;32m \NC[10] \PL \IE-%AN,HOST[\AM[H]] \EC+ \LF+ \PL
  272. \IV2+13[\IVJ+M[Soon, I will no longer support %VG baud.~{]]
  273. \BL[GetName&PW]\IV3+Modem[\CA-[\UM[Carrier Lost, Hello Block]\SVN[]\GB[Cycle]\EM]]
  274. \IVN+[{{Try again:{{\BL[GetName&PW]]
  275. \IV3+Modem[\CA-[\UM[Carrier Lost, Hello Block]\SVN[]\GB[Cycle]\EM]]
  276. \IVN+[^G   \ZS`{{Last try, on this call:{{\BL[GetName&PW]]
  277. \IV3+Modem[\CA-[\UM[Carrier Lost, Hello Block]\SVN[]\GB[Cycle]\EM]]
  278. \IVN+[^G {{Too many attempts!  Sorry, access denied.{\SVI[]\GB[LogOff]\EM]
  279. \\\\\\\\\\\\\\\\\\\  Logoff if not Sysop, 13 RINGS, and speed not supported:
  280. \IVL-5[\IV2+13[\IVJ+N[\UM[%VN, No %VG baud! - %MO/%DA/%YR-%HR:%MI]]]]
  281. \IVL-5[\IV2+13[\IVJ+N[ \ZS{Sorry, %VG baud not supported.{\SVN[]\GB[LogOff]\EM]]]
  282. \\IVL+0[       \BL[ResetTime]]  \\ Remove one "\", and Level 0 would get a Time Reset
  283. \\IVL+1[       \BL[ResetTime]]  \\ Remove one "\", and Level 1 would get a Time Reset
  284. \\IVL+2[       \BL[ResetTime]]  \\ Remove one "\", and Level 2 would get a Time Reset
  285. \\IVL+3[       \BL[ResetTime]]  \\ Remove one "\", and Level 3 would get a Time Reset
  286. \\IVL+4[       \BL[ResetTime]]  \\ Remove one "\", and Level 4 would get a Time Reset
  287. \IVI-41[\IVL+5[\BL[ResetTime]]] \\ If you Add one "\", Level 5 would NOT get a Time Reset
  288. \IVI+41[       \BL[ResetTime]]  \\ Reset the time if this is the SysOp!
  289. \IVD+0[\UM[%VN, Out of Time, %MO/%DA/%YR-%HR:%MI]]        \\ Logoff if out of
  290. \IVD+0[  \ZS {`Sorry %VF, you're out of time for today,{] \\ time for today.
  291. \IVD+0[{`Please call back after Midnight, or tomorow!~~{ \GB[LogOff]\EM]
  292. \BL[Commands&Paths]   \ZS \\ Establish User's available commands and Upload Path
  293. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  294. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  295. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  296. \\ If no personal message, and not validated yet, remind user of our Policy:
  297. \IVL+0[\FE-%V4`%VF.MS%VL[\FE+%V4`NEW.MSG[\SVZ[%V4`NEW.MSG]\BL[ListVZ]]]] \\ If personal message don't exists, remind the caller of "NEW.MSG" file
  298. \FE+%V4`%VF.MS%VL[\BL[ReadPers]] \\ Check for any Personal message:
  299. \FE+%V4`BULLETIN.GEN[\SV0[B]]          \\ Search for BULLETIN.GEN file, and
  300. \FE+%V4`BULLETIN.%VL[\SV0[B]]          \\ BULLETIN.level number file, and if
  301. \IV0+B[\SV0[]  \BL[Bulletin]]          \\ they exist, go display them.
  302. \\ If no personal message, and not Validated yet, ask about message to SysOp:
  303. \FE-%V4`%VF.MS%VL[\IVL+0[{Enter a message to SysOp before disconnecting?  (N/y) "[N"]^H^H \RV0[1]{]]
  304. \IV3+Modem[\CA-[\UM[Carrier Lost, Hello Block]\GB[Cycle]\EM]]
  305. \\ If Yes, go leave a Comment to SysOp
  306. \FE-%V4`%VF.MS%VL[\IVL+0[\IV0+Y[\BL[EnterComment]]]]
  307. \IVL+0[{{Have a good day, %VF.{~\GB[LogOff]\EM]      \\ If level 0 LogOff
  308. \GB[Menu]
  309.  
  310. |GetName&PW
  311. \SV0[] \SVB[] \SVD[] \SVE[] \SVP[] \SVR[] \SVW[]
  312. \IV3+LOCAL[\ST[ Local Test "[Tab"] for SysOp Menu.]]
  313. \IVG-[     \ST[ %VG baud.  "[Tab"] for Sys. Menu]]
  314. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  315. `First and Last name?  " \RVN[23]
  316. \IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block, User: %VN]\GB[Cycle]\EM]]
  317. \IVN+[^G {`First and Last name?  " \RVN[23]{]
  318. \IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block, User: %VN]\GB[Cycle]\EM]]
  319. \IVN+[\UM[Blank Name.]^G  \ZS{{Incorrect logon, access denied.{\GB[LogOff]\EM]
  320. \SVF[%VN] \II+ ,%VF[\LVF[%IM]]            \\ Set %VF = user's First name
  321. \SV0[%VN] \DV0[%II]
  322. \II+ ,%V0[\LV0[%IM] \SVN[%VF `%V0] \SV0[] | \SV0[] ]
  323. \II+;,%VN[\SV0[%VN] \DV0[%II] \LVN[%IM] ] \\ Parse "First Last;password"
  324. \IV3+LOCAL[\ST[ Local Test  "[Tab"] for SysOp Menu.]]
  325. \IVG-[     \ST[ %VG baud.  "[Tab"] for Sys. Menu]] \SN[ %VN]
  326. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  327. \BL[Trimer]
  328. \IV3+Modem[\CA-[\UM[%VN, Lost Carrier, GetName&PW Block]\SVN[]\GB[Cycle]\EM]]
  329. \IVK-[\SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT]]
  330. \IVI+111[\UM[User %VN could not be found in the Database.]]
  331. \IVI+111[  \ZS {"" %VN "" is not on the user's list.{ \SVI[]\SVR[41]]
  332. \IVI+[\RE[\IV3+Modem[\CA-[\SVN[]\GB[Cycle]\EM]]\TV1[%VR]\IV1+[\SVR[%VR]\EM]\+VR[1]]] \\ Search user base for blank #
  333. \IVR+111[{Sorry, User base is full!{\UM[%VN, user base is full!]\SVN[]\GB[LogOff]\EM]
  334. \IVI+[\SVW[New] \IVR+41[\SVL[5]\SVJ[Y]] \IVL-[\SVI[%VR]]] \\If %VI empty=New User
  335. \IVW+New[\SVP[]\SVPW[]\BL[Validator]\IVN+[\EB] \SV1[0]   \ZS {\BL[NewPassword]]\\ If first User, it must be the SysOp, set level 5
  336. \IVW+New[\IVI-[\BL[ResetTime]\BL[Commands&Paths]\IE-%AN,HOST[\AM[H]]\SVV[%MO/%DA/%YR]]] \\ Timing from the begining
  337. \IVW+New[\IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\TM%VI[%VN;%VP;%VL;%VE;%VV;%VD;]]]]]]] \\ and add entry to user base
  338. \IVW+New[\IVI-[\IVN-[\IVP-[\IVL-[\IVE-[ \UM[* New User: %VN, %VL %VE * ]]]]]]]
  339. \IVW+New[\SV1[] \SV0[] \SVW[]   \ZS \EB]
  340. \II+ ,%VN[\SVF[%VN] \LVF[%IM] \SVF[%VF] | \SVF[%VN]]  \\ Extract the First name from the Name
  341. \IV3+LOCAL[\UM[%VN Lev. %VL - Local Test - on %MO/%DA/%YR at %HR:%MI.]]
  342. \IVG-[\UM[%VN %VG baud, Lev. %VL on %MO/%DA/%YR at %HR:%MI.]]
  343. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  344. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  345. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  346. \IVL+[\IVI-41[\SVL[1] | \SVL[5] \SVJ[Y]]]
  347. \IVP-[`Enter your password:  " \RV0*[10]  \ZS]
  348. \IVP-[\IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block]\SVN[]\GB[Cycle]\EM]]]
  349. \IVP-[\IW-[\SV0[]] \IV0+[^G {`Enter your Password!  " \RV0*[10]{]]
  350. \IVP-[\IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block]\SVN[]\GB[Cycle]\EM]]]
  351. \IVP-[\IW-[\SV0[]] \IV0+[\UM[%VN, no response, or blank Password.]]]
  352. \IVP-[\IV0+[\SVN[]^G \ZS{{Incorrect logon, access denied.{\GB[LogOff]\EM]]
  353. \IVP-[\IV0-%VP[\UM[Entered the wrong password: %V0]]]
  354. \IVP-[\IV0-%VP[\BL[SecondTry]]]
  355. \IVP-[\IV0-%VP[\UM[Entered the wrong password: %V0]]]
  356. \IVP-[\IV0-%VP[\BL[ThirdTry]]]
  357. \IVP-[\IV0-%VP[\UM[Entered the wrong password: %V0]^G \ZS{{Access denied.{]]
  358. \IVP-[\IV0-%VP[\SVN[]\GB[LogOff]\EM]]    \\ LogOff if wrong Password.
  359. \IVP+[\SVW[New]]\IVE+[\SVW[New]] \\ If Password or Phone is missing, set VW=New
  360. \SV1[] \SV0[] \IVW-New[\SVW[]\EB]
  361. \IVP+[{Your Password is missing.{{Kindly complete:{\SV1[0]\BL[NewPassword]]
  362. \IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block Block]\SVN[]\GB[Cycle]\EM]]
  363. \IVE+[{Your Voice telephone number is missing.{{Kindly complete:{\BL[Validator]]
  364. \IV3+Modem[\CA-[\UM[Carrier Lost, GetName&PW Block Block]\SVN[]\GB[Cycle]\EM]]
  365. \IVN+[\EB] \SVV[%MO/%DA/%YR] \\ If known User, or connected when started Host, start
  366. \IVI-[\BL[ResetTime] \BL[Commands&Paths]\IE-%AN,HOST[\AM[H]]] \\ Reset Time from the begining
  367. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[ \TM%VI[%VN;%VP;%VL;%VE;%VV;%VD;]]]]]] \\ and add entry to user base
  368. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[ \UM[Info updated on: %VN, %VL %VE]]]]]]
  369. \SV1[] \SV0[] \SVW[]   \ZS \EB
  370.  
  371. |Secondtry
  372. \IV3+Modem[\CA-[\UM[Carrier Lost, Secondtry Block]\SVN[]\GB[Cycle]\EM]]
  373. ^G {Wrong password, try again.{
  374. {Enter your password: " \RV0*[10]{
  375. \IV3+Modem[\CA-[\UM[Carrier Lost, Secondtry Block]\SVN[]\GB[Cycle]\EM]]
  376. \IW-[\SVN[]{\GB[LogOff]\EM] \EB       \\ If no response, go to block LogOff
  377.  
  378. |ThirdTry
  379. \IV3+Modem[\CA-[\UM[Carrier Lost, ThirdTry Block]\SVN[]\GB[Cycle]\EM]]
  380. ^G {Wrong password.  Last try!{
  381. {Enter your password: " \RV0*[10]{
  382. \IV3+Modem[\CA-[\UM[Carrier Lost, ThirdTry Block]\SVN[]\GB[Cycle]\EM]]
  383. \IW-[\SVN[]{\GB[LogOff]\EM] \EB      \\ If no response, go to block LogOff
  384.  
  385. |Trimer
  386. \IV3+Modem[\CA-[\UM[Carrier Lost, Trimer Block]\SVN[]\GB[Cycle]\EM]]
  387. \ST[%VG  "[Tab"] for Sys. Menu]
  388. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  389. \SVI[41]\RE[\IV3+Modem[\CA-[\GB[Cycle]]]\TVA[%VI]\II+;,%VA[\SVP[%VA]\LVA[%IM]\IVA+%VN[\SVN[%VA]\EM]]\+VI[1]\IVI+111[\EB]]
  390. \DVP[%II]                           \\ %VP contains User's Password
  391. \II-;,%VP[\BL[ResetTime]\EB]        \\ If ";" is missing, Reset the Time
  392. \SVL[%VP] \LVP[%IM]                 \\ Trim off Password portion into %VP
  393. \DVL[%II]                           \\ %VL contains User's Level
  394. \II-;,%VL[\BL[ResetTime]\EB]        \\ If ";" is missing, Reset the Time
  395. \SVE[%VL] \LVL[%IM]                 \\ Trim off User Level portion into %VL
  396. \DVE[%II]                           \\ %VE contains the Extended Info (User's Phone and the initial calling baud)
  397. \II-;,%VE[\BL[ResetTime]\EB]        \\ If ";" is missing, Reset the Time
  398. \SVV[%VE] \LVE[%IM]                 \\ Trim off the Extended Info user level portion into %VE
  399. \DVV[%II]                           \\ %VV is the last Date this User called your Host
  400. \II-;,%VV[\BL[ResetTime]\EB]        \\ If ";" is missing, Reset the Time
  401. \SVK[%VV] \LVV[%IM]                 \\ Trim off the last Date this User called into %VV
  402. \DVK[%II]                           \\ %VD is (any) available time left for today
  403. \II-;,%VK[\IVK+[\BL[ResetTime]\EB]] \\ If ";" is missing, Reset the Time
  404. \IVV-[\IVV-%MO/%DA/%YR[\BL[ResetTime]\EB]]
  405. \II+;,%VK[\LVK[%IM]] \SVK[%VK]      \\ Reset Caller's available time if he didn't call today.
  406. \+VK[%MI] \SVK[%VK]  \SVS[%HR]      \\ Here, we find how much time caller has
  407. \SVT[%MI] \SVD[%VK] \+VD[-%VT]      \\ available left for today (if any).
  408. \II+-,%VD[\SVD[0]]  \EB
  409.  
  410. |Commands&Paths
  411. \SV0[] \SV1[] \SVC[] \IVL+[\SVL[1]]
  412. \IVL+0[\SVC[`BC```G`I``````````X``]]  \\ Here you can modify and set the
  413. \IVL+1[\SVC[`BCDEFG`I`K`MNPR`VUXWZ]]  \\ available Commands for each User's Level
  414. \IVL+2[\SVC[`BCDEFG`I`K`MNPR`VUXWZ]]  
  415. \IVL+3[\SVC[`BCDEFG`I`K`MNPR`VUXWZ]]
  416. \IVL+4[\SVC[`BCDEFG`I`K`MNPR`VUXWZ]]
  417. \IVL+5[\SVC[ABCDEFGHIJKLMNPRSVUXWZ]]
  418. \SV0[%V5] \LV0[] \SV0[%LV]\+V0[-1]  \\ Remove the backwards slash from  Upload the path
  419. \IV0+15[\+V0[-5]] \IV0+14[\+V0[-4]] \IV0+13[\+V0[-3]] \IV0+12[\+V0[-2]]
  420. \IV0+11[\+V0[-1]] \SV1[%V5] \LV1[%V0] \SVY[%V1]     \\ %VY is %V5 without the backwards slash
  421. \II+%VL,0,1[\SVU[%V5TEMP"\] | \SVU[%V1%VL"\TEMP"\]] \\ %VU is the User's Upload Temp path for that level
  422. \FE+%V4`HostFil.Tmp[\DC[Del %V4`HostFil.Tmp]]       \\ Delete HostFil.Tmp if it exists
  423. \FE+%V4`HostMsg.Tmp[\DC[Del %V4`HostMsg.Tmp]]       \\ Delete HostMsg.Tmp if it exists
  424. \SV0[] \SV1[] \EB
  425.  
  426. |ResetTime
  427. \SVK[]   \SVS[%HR] \SVT[%MI] \\ Set variable S to the Hour, and T to the Minute.
  428. \IVL+0[ \SVK[20] ]           \\ Here, you can modify and set the available
  429. \IVL+1[ \SVK[45] ]           \\ time per day, for each User's Level.
  430. \IVL+2[ \SVK[45] ]           \\ Example: \IVL+2[ \SVK[XXXX] ]  makes level 2 get
  431. \IVL+3[ \SVK[60] ]           \\ a total of XXXX minutes available per day.
  432. \IVL+4[ \SVK[120]]
  433. \IVL+5[ \SVK[360]]
  434. \IVK+[\ST[Level is missing, 20 min. available.]] \\ If level is missing, give
  435. \IVK+[\DM1,24[Level is missing, setting available time to 20 minutes.]] \\ 20 min.
  436. \IVK+[\SVK[20]]     \+VK[%MI]     \SVK[%VK]
  437. \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]] \EB
  438.  
  439. |Validator
  440. \\ %VL (User Level) is NOT empty when User was in database, or carrier detected
  441. \ND[%F:] \SV6[] \SV9[] \SVB[] \SVY[] \SVX[]         \\  when started Mark Host
  442. \\ ----  If speed not accepted, or it's a closed Host, set %VY to "N":  -----
  443. \IVL+[\IV2+13[ \IVJ+N[\SVY[N]]] \IV2+14[ \SVY[N]]]
  444. \\ -----------  Give User a chance to re-enter his / her Name:  -------------
  445. {`Did you enter your name correctly as %VN (Y/n) "[?"]^H^H \RV0[1]{
  446. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  447. \IW-[\SV0[]] \II-%V0,Y,N[\SV0[]] \IV0+[{Invalid, or no response.{]
  448. \IV0+[{Did you enter your name correctly as %VN (Y/n) "[?"]^H^H \RV0[1]{]
  449. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  450. \IW-[\SV0[]] \II-%V0,Y,N[\SV0[]]
  451. \\ -----------------  Log off if invalid or no answer:  ---------------------
  452. \IV0+[\UM[Wouldn't confirm the name: %VN.]^G \ZS{{Invalid, or no response.{]
  453. \IV0+[\SVN[] \IVL+[\GB[LogOff]\EM] \EB]
  454. \\ --------------------  Go back if just a mistake:  ------------------------
  455. \IV0+N[\UM[Name Incorrectly entered as %VN.] \SVN[]  \ZS \EB]
  456. \\ ------------  Ask User if he /she wants to Apply for access:  ------------
  457. \IVL+[\IVY-N[  \ZS{`All New Users are required to pass the call back validation.{]]
  458. \IVL+[\IVY-N[{Want to apply for access to this System? (Y/n) "[?"]^H^H \RV0[1]   \ZS]]
  459. \IV3+Modem[\CA-[\UM[%VN, Lost Carrier, Validator Block]\SVN[]\GB[Cycle]\EM]]
  460. \IVL+[\IVY-N[ \IW-[\SV0[]] \II-%V0,Y,N[\SV0[]]]
  461. \IVL+[\IVY-N[ \IV0+[^G{{Invalid, or no response.{]]]
  462. \IVL+[\IVY-N[ \IV0+[{Would you like to apply for access to this System? (Y/n) "[?"]^H^H\RV0[1]]]]
  463. \IV3+Modem[\CA-[\UM[%VN, Lost Carrier, Validator Block]\SVN[]\GB[Cycle]\EM]]
  464. \IVL+[\IVY-N[ \IW-[\SV0[]] \II-%V0,Y,N[\SV0[]]]
  465. \\ -----------------  Log off if invalid or no answer:  ---------------------
  466. \IVL+[\IVY-N[\IV0+[\UM[%VN, invalid or no response on registering.]]]]
  467. \IVL+[\IVY-N[\IV0+[^G \ZS{{Invalid, or no response.{\SVN[]\GB[LogOff]\EM]]]
  468. \IVL+[\IVY-N[\IV0+N[\UM[%VN %VG baud, didn't proceed with registration.]]]]
  469. \IVL+[\IVY-N[\IV0+N[  \ZS {No problem %VN, there's a lot of other{]]]
  470. \IVL+[\IVY-N[\IV0+N[Bbs's to call.  Have a Nice Day.~~{\SVN[]\GB[LogOff]\EM]]]\SVY[] \ZS{
  471. "  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ {
  472. "  █   Call Back Verifier v3.3 (c) 01/12/94 by Mark Sherman, New York.    █▒ {
  473. "  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▒░{
  474. "       ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░^H~{
  475. {{"       Is your AREA CODE different than my AREA CODE?  (Y/n) "[?"]^H^H \RV6[1]{
  476. \IW-[\SV6[]] \II-%V6,Y,N[\SV6[]]
  477. \IV6+[^G{Invalid, or no response.{]
  478. \IV6+[{"       Is your AREA CODE different than my AREA CODE?  (Y/n) "[?"]^H^H \RV6[1]{]
  479. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  480. \IW-[\SV6[]] \II-%V6,Y,N[\SV6[]]
  481. \\ ------------  Log off if wouldn't confirm the Area Code  -----------------
  482. \IV6+[\UM[%VN, wouldn't confirm Area Code.]]
  483. \IV6+[^G \ZS{Invalid, or no response.{\SVN[]\IVL-[\EB]{Access denied.{\GB[LogOff]\EM]
  484. \\ ------------  Get Area Code:  --------------------------------------------
  485. \IV6+N[\SV6[¥]] 
  486. \IV6-¥[{Please enter (only) the AREA CODE of your telephone number:  "___^H^H^H\RV6[3]{]
  487. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]] \IV6+[\SV6[¥]{]
  488. \\ ------------  Get the Telephone number:  ----------------------------------
  489. {Your Telephone number, No Area Code, Spaces or Brackets "_______^H^H^H^H^H^H^H \RV9[7]{
  490. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  491. \IW-[\SV9[]] \IV9+[^G{Invalid, or no response.{]
  492. \IV9+[{Your Telephone number, No Area Code, Spaces or Brackets "_______^H^H^H^H^H^H^H \RV9[7]{]
  493. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  494. \IW-[\SV9[]] \IV9+[\UM[%VN, no response or empty Phone Number.]]
  495. \IV9+[^G \ZS{Invalid, or no response.{\SVN[]\IVL-[\EB]{Access denied.{\GB[LogOff]\EM]
  496. \IV6+¥[\SVB[%V9] | \SVB[%V6%V9]]
  497. \\ --------------------  Verify the Entry:  ---------------------------------
  498. {Did you enter your Phone, correctly as: %VB  (Y/n) "[?"]^H^H \RV0[1]{
  499. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  500. \IW-[\SV0[]] \II-%V0,Y,N[\SV0[]]\IV0+[^G{Invalid, or no response.{]
  501. \IV0+[{Did you enter your Phone, correctly as:  %VB (Y/n) "[?"]^H^H \RV0[1]{]
  502. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  503. \IW-[\SV0[]] \II-%V0,Y,N[\SV0[]]\IV0+[^G \ZS{{Invalid, or no response.{]
  504. \\ Log off if wouldn't confirm the Phone Number:
  505. \IV0+[\UM[%VN, no confirmation on Ph: %VB]]
  506. \IV0+[^G \ZS{Invalid, or no response.{\SVN[]\IVL-[\EB]{Access denied.{\GB[LogOff]\EM]
  507. \IV0+N[\SVN[] \UM[Phone incorrectly entered as: %VB] \EB] \SV1[]
  508. \IVL+[\IV2+13[\IVJ+N[\UM[User: %VN, No %VG baud! Ph: %VB - %MO/%DA/%YR-%HR:%MI]]]]
  509. \IVL+[\IV2+13[\IVJ+N[  \ZS{Sorry, %VG baud not supported.~~~~~{{\GB[LogOff]\EM]]]
  510. \IVL+[\IV2+14[\UM[%VN, %VG baud - Ph: %VB - Denied access, Closed System.]]
  511. \IVL+[\IV2+14[  \ZS{Sorry, this Host is Closed for New Users.~~~~~{{\GB[LogOff]\EM]]
  512. \IV6+¥[\SVJ[YES] | \SVJ[NO]]
  513. \IVL+[\IVJ+NO[\RE[\IV3+Modem[\CA-[\GB[Cycle]\EM]]\GV7[%F:AREACODE]\IE+%V6,%V7[\SVJ[YES]\GV7[]\EM]\II+^Z,%V7[\GV7[]\EM]]]
  514. \IVJ+NO[\IVL+[ \ZS{{Verifier is not setup to call back area code %V6, now.{]]
  515. \IVJ+NO[\IVL+[{If needed, would you later accept a collect call to{]]
  516. \IVJ+NO[\IVL+[voice validate you?  (No will disconnect)    (Y/n) "[?"]^H^H \RV0[1]{]]
  517. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  518. \IVJ+NO[\IVL+[   \IW-[\SV0[]]  \II-%V0,Y,N[\SV0[]]]]
  519. \IVJ+NO[\IVL+[\IV0+[^G{Invalid, or no response.{]]]
  520. \IVJ+NO[\IVL+[\IV0+[{If needed, would you later accept a collect call to{]]]
  521. \IVJ+NO[\IVL+[\IV0+[voice validate you?  (No will disconnect)    (Y/n) "[?"]^H^H \RV0[1]{]]]
  522. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  523. \IVJ+NO[\IVL+[   \IW-[\SV0[]]  \II-%V0,Y,N[\SV0[]]]]
  524. \IVJ+NO[\IVL+[\IV0+[\UM[%VN no answer about calling colect Ph: %VB]]]]
  525. \\ Log off if wouldn't answer
  526. \IVJ+NO[\IVL+[\IV0+[^G{Invalid, or no response.{ \SVN[] \GB[LogOff]\EM]]]
  527. \IVJ+NO[\IVL+[\UM[%VN answered: %V0 about calling colect Ph: %VB]]]
  528. \IVJ+NO[\IVL+[\IV0-Y[  \ZS{Sorry %VF, can't make long distance calls!~~~~{{]]]
  529. \\ Logoff if we can't make long distance calls:
  530. \IVJ+NO[\IVL+[\IV0-Y[ \SVN[] \GB[LogOff]\EM]]]
  531. \\ -----------------------  Validate the Entry:  -----------------------------
  532. {Searching duplicates, this can take a few minutes:  " \BL[NotAllowed]
  533. \\ Edit not alloved numbers here:
  534. \IV1+[\IV6+¥[\SV0[%V9] \LV0[3] \II+%V0,411,540,976[\SV1[is to be skipped]]]]
  535. \IV1+[\IV9+5551212[\SV1[belongs to Informations]]] \\ Edit Informations # here
  536. \\ If main number is shorter than 7 figures, skip it:
  537. \IV1+[\SV0[%V9] \LV0[] \SV0[%LV] \II+%V0,0,1,2,3,4,5,6,[\SV1[is too short]]]
  538. \\ Give another chance to re-enter the correct Phone number:
  539. \IV1-[\UM[Phone: %VB %V1!] \IVL+[\UM[User prompted to log on again.]]]
  540. \IV1-[^G   \ZS {{Phone %V1! \IVL+[\SVN[] \EB]] \SV1[40]
  541. \RE["|^H\IV3+Modem[\CA-[\GB[Cycle]]]/^H\+V1[1]\IV1+111[\EM]\TVA[%V1]─^H\II+%VB,%VA[\EM]"\^H]
  542. \IV1+%VI[\SVA[]] \\ If the Phone number belongs to the same user, empty %VA.
  543. \II+%VB,%VA[\UM[%VN, entered Ph: %VB which belongs to User:]\UM[%VA]]
  544. \II+%VB,%VA[\DMC[140]\DM17,01[This Phone number is being in use by User %V1!]\DMC[31]]
  545. \II+%VB,%VA[\RE7[~\AL2[0]]]
  546. \II+%VB,%VA[\IVL+[ \ZS{{This Phone number is being in use by another User.{^G~]]
  547. \\ Log off if Phone number is being in use by another User.
  548. \II+%VB,%VA[\IVL+[^G{Sorry, only one Account per Phone number!~~~~~{{\GB[LogOff]\EM]]
  549. \FE-%F:HISTORY[\AF%F:HISTORY[These numbers were called back by your Boyan Host:]]\SV1[0]
  550. \RE[\IV3+Modem[\CA-[\GB[Cycle]\EM]]"|^H\GV7[%F:HISTORY]\II+%VB,%V7[\+V1[1]]"/^H\II+^Z,%V7[\EM]"─^H\IV1+10[\EM]"\^H]
  551. \\ If allready called 10 times do not accept, and LogOff:
  552. \GV7[] \IV1+10[\UM[%VN, %VG baud, already called 10 times Ph: %VB!]]
  553. \IV1+10[\IVL+[  \ZS{`Sorry, %VB was already called 10 times!{~\GB[LogOff]\EM]]\SV1[]\SVX[]
  554. \IV6+¥[       \FE+%F:DONTCALL[\SVX[%F:DONTCALL]\SV1[%VX]]]
  555. \IV6-¥[       \FE+%F:LONGDIST[\SVX[%F:LONGDIST]\SV1[%VX]]]
  556. \IV6-¥[\IV1+[\FE+%F:DONTCALL[\SVX[%F:DONTCALL]\SV1[%VX]]]]
  557. \IV1-[\RE["|^H\GV7[%V1]\IV3+Modem[\CA-[\GB[Cycle]]]\ST[%V7]\II+^Z,%V7[\ST[]\EM]"/^H"─^H\II+%VB,%V7[\SV1[FOUND]\EM]"\^H]]
  558. \IV1-[\GV7[] \IV1+FOUND[\II+SKIP,%V7[\SV1[SKIP] | \SV1[BBS]]]]
  559. \IVX-[\IV1-%VX[\UM[Questionable Phone: %VB] \UM[%V7] ^G   \ZS{{]]
  560. \\ If user's number is on the DONTCALL list, Logoff:
  561. \IV1+SKIP[\IVL+[Sorry, can't validate you there!~~~~~{{\GB[LogOff]\EM]]
  562. \IV1+BBS[%VF, are you the Sysop of:{{ %V7{{]
  563. \IV1+BBS[Answer "[Y"]es or "[N"]o  (Y/n) "[?"]^H^H \RV0[1]{]
  564. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  565. \IV1+BBS[\IW-[\SV0[]] \II-%V0,Y,N[\SV0[]]]
  566. \IV1+BBS[\IVL+[\IV0+[^G{`ONE MORE TIME: (Y/n) "[?"]^H^H \RV0[1]{]]]
  567. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  568. \IV1+BBS[\IW-[\SV0[]] \II-%V0,Y,N[\SV0[]]]
  569. \IV1+BBS[\IV0+[\UM[No answer if SysOp of the above BBS]]] \\ Log off if wouldn't answer
  570. \IV1+BBS[\IVL+[\IV0+[ \ZS{{Access denied.{\GB[LogOff]\EM]]] \\ Log off if wouldn't answer
  571. \IV1+BBS[\IVL+[\IV0+N[\UM[%VF isn't the SysOp of the above Bbs.]]]]
  572. \IV1+BBS[\IVL+[\IV0+N[^G   \ZS{You MUST enter your OWN Phone number!]]]
  573. \IV1+BBS[\IVL+[\IV0+N[\UM[User prompted to log on again.]\SVN[]\EB]]] \\ Give another chance to re-enter the correct Phone number.
  574. \IV1+BBS[\IVL+[\IV0+Y[\UM[%VF claims to be the SysOp of the above Bbs.]]]]
  575. \IV1+BBS[\IVL+[\IV0+Y[\SVJ[]]]]
  576. \IV1+BBS[\IVL+[\IV0+Y[{Would you grant me an account with your bbs? (Y/n)]]]
  577. \IV1+BBS[\IVL+[\IV0+Y[ "[?"]^H^H \RV0[1]{]]]
  578. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  579. \IV1+BBS[\IVL+[   \IW-[\SV0[]]  \II-%V0,Y,N[\SV0[]]]]
  580. \IV1+BBS[\IVL+[\IV0+[^G{`ONE MORE TIME: (Y/n) "[?"]^H^H \RV0[1]{]]]
  581. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  582. \IV1+BBS[\IVL+[   \IW-[\SV0[]]  \II-%V0,Y,N[\SV0[]]]]
  583. \IV1+BBS[\IVL+[\IV0+[\UM[No answer on granting access there]]]]
  584. \IV1+BBS[\IVL+[\IV0+[ \ZS{{Access denied.{\GB[LogOff]\EM]]] \\ Log off if wouldn't answer
  585. \IV1+BBS[\IVL+[\UM[Granting you access there? "[%V0"]]]]
  586. \\ -----------  If User name was in the Database, End block:  ---------------
  587. \IV3+LOCAL[\ST[ Local Test  "[Tab"] for SysOp Menu.]]
  588. \IVG-[     \ST[ %VG baud.  "[Tab"] for Sys. Menu]]   \SN[ %VN]
  589. \IVL-[\IV3+Modem[\SVE[%VB %VG] | \SVE[%VB %MM]] \EB]
  590. \\ Otherways, send "NEW.MSG" file if exists and ask User if he/she agrees:
  591. \FE+%V4`NEW.MSG[\SVZ[%V4`NEW.MSG] \ZS\BL[ListVZ]]
  592. \FE+%V4`NEW.MSG[Do you agree with the above? No, will disconnect you (Y/n) "[?"]^H^H \RV0[1]{]
  593. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  594. \FE+%V4`NEW.MSG[\IW-[\SV0[]]  \II-%V0,Y,N[\SV0[]]]
  595. \FE+%V4`NEW.MSG[\IV0+[^G...One more time: (Y/n) "[?"]^H^H \RV0[1]{]]
  596. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  597. \FE+%V4`NEW.MSG[\IW-[\SV0[]] \II-%V0,Y,N[\SV0[]]]
  598. \FE+%V4`NEW.MSG[\IV0+[\UM[%VN, invalid, or no answer on Terms]]]
  599. \\ Log off if wouldn't answer
  600. \FE+%V4`NEW.MSG[\IV0+[ \ZS{{Invalid, or no answer.{{ \SVN[] \GB[LogOff]\EM]]
  601. \FE+%V4`NEW.MSG[\IV0+N[\GB[Notagree]\EM]] \\ If the answer is no, Notagree block
  602. \SVL[0]                                  \\ New User's Level set at 0
  603. \BL[ResetTime]                           \\ Start timing from the begining
  604. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  605. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  606. ═══════════════   YOU ARE NOW LEAVING A MESSAGE FOR THE SYSOP   ═══════════════{
  607. \SVM[%UN] \BL[MsgHeader] \EM
  608. \IVJ+YES[{Next, Mark Host will make 1 attempt to verify{]
  609. \IVJ+YES[%VB,  and let you select your Password.{]
  610. \IVJ+YES[{{If you choose not to be called now, further access{]
  611. \IVJ+YES[will be denied, and you will be disconnected.{]
  612. \IVJ+YES[{{Are you ready to receive this call now?  (Y/n) "[?"]^H^H \RVY[1]{]
  613. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  614. \IVJ+YES[\IW-[\SVY[]] \II-%VY,Y,N[\SVY[]]]
  615. \IVJ+YES[\IVY+[{{Are you ready to receive this call now?  (Y/n) "[?"]^H^H \RVY[1]{]]
  616. \IV3+Modem[\CA-[\UM[Carrier Lost, Validator Block]\SVN[]\GB[Cycle]\EM]]
  617. \IVJ+YES[\IW-[\SVY[]] \II-%VY,Y,N[\SVY[]]]
  618. \IVJ+YES[\IVY+[\UM[%VN, no answer on calling back.]]]
  619. \IVJ+YES[\IVY+[^G \ZS{Invalid, or no response.{\SVN[]{Access denied.{\GB[LogOff]\EM]]
  620. \\ Logoff if not ready to be validated.
  621. \IVJ+YES[\IVY-Y[  \ZS{Sorry %VF, you will have to try again when ready.~~~~~{\GB[LogOff]\EM]]
  622. \IVJ+YES[\IV3+MODEM[\SVX[M] \SV0[30] | \SV0[10]]]
  623. \IVJ+YES[  \ZS{{When you see the word "RING" appear on your screen, type{]
  624. \IVJ+YES[the letters "ATA", as shown, and press the "[Enter"] key.{]
  625. \IVJ+YES[{Once reconnected, you will be prompted to choose your Password.{]
  626. \IVJ+YES[{Hanging up and calling you back in %V0 seconds:{{]
  627. \IVJ+YES[\UM[Calling back Ph: %VB] \IV3+Modem[\AF%F:HISTORY[%VB]]]
  628. \IVX+M[\IVJ+YES[\NC[7]\DT-~~ \RE10[\CA+[~~]] \DT+ \PL ~~~~\AM[A]~~~~ \EC-~~ \LF-~~]]
  629. \IVX+M[\IVJ+YES[\IE-%MS,%MM[\CS[%MM]] \CP[None]`ATZ{ \PA[5] `ATX1{ \PA[5]]]
  630. \IVX+M[\IVJ+YES[\CA+[\UM[Difficulties hanging up before Calling Back %VB!]]]]
  631. \IVX+M[\IVJ+YES[\CA+[\SVO[Online]\RE3[+++~~~~~~ATH{\PA[4]\PL\ZS]\SVN[]\GB[Cycle]\EM]]]
  632. \IVJ+YES[\DM1,24[Pausing for %V0 sec. before dialing...] \PA[%V0]]
  633. \IVX+M[\IVJ+YES[\IV6+¥[`ATDT  %VB{]]] \\ Tell Modem to Dial User's Phone number.
  634. \IVX+M[\IVJ+YES[\IV6-¥[`ATDT 1%VB{]]] \\ Tell Modem to Dial User's Phone number.
  635. \IVX+M[\IVJ+YES[\TO[60]]        \\ Set the Carier Waiting Time to 60 seconds
  636. \IVX+M[\IVJ+YES[\WF[CONNECT]]]  \\ Wait for the "CONNECT" message.
  637. \IVX+M[\IVJ+YES[\TO[180]\SVO[Online]]]
  638. \IVX+M[\IVJ+YES[\IW-[\UM[Unsuccessful.] \RE3[{\ZS\PA[4]\PL\ZS]\SVN[]\GB[Cycle]\EM]]]
  639. \IVX+M[\IVJ+YES[\PA[2]]] \\ Pause 2 seconds before looking speeds.
  640. \IVX+M[\IVJ+YES[\IF+115200[\SVG[115200]\IE+%AD,ON[\CS[%VG]] ]]]
  641. \IVX+M[\IVJ+YES[\IF+57600[\SVG[57600]\IE+%AD,ON[\CS[%VG]]   ]]]
  642. \IVX+M[\IVJ+YES[\IF+38400[\SVG[38400]\IE+%AD,ON[\CS[38400]] ]]]
  643. \IVX+M[\IVJ+YES[\IF+28800[\SVG[28800]\IE+%AD,ON[\CS[38400]] ]]]
  644. \IVX+M[\IVJ+YES[\IF+24000[\SVG[24000]\IE+%AD,ON[\CS[38400]] ]]]
  645. \IVX+M[\IVJ+YES[\IF+19200[\SVG[19200]\IE+%AD,ON[\CS[%VG]]   ]]]
  646. \IVX+M[\IVJ+YES[\IF+16800[\SVG[16800]\IE+%AD,ON[\CS[19200]] ]]]
  647. \IVX+M[\IVJ+YES[\IF+14400[\SVG[14400]\IE+%AD,ON[\CS[19200]] ]]]
  648. \IVX+M[\IVJ+YES[\IF+12000[\SVG[12000]\IE+%AD,ON[\CS[19200]] ]]]
  649. \IVX+M[\IVJ+YES[\IF+9600[ \SVG[9600] \IE+%AD,ON[\CS[%VG]]   ]]]
  650. \IVX+M[\IVJ+YES[\IF+4800[ \SVG[4800] \IE+%AD,ON[\CS[%VG]]   ]]]
  651. \IVX+M[\IVJ+YES[\IF+2400[ \SVG[2400] \IE+%AD,ON[\CS[%VG]]   ]]]
  652. \IVX+M[\IVJ+YES[\IF+1200[ \SVG[1200] \IE+%AD,ON[\CS[%VG]]   ]]]
  653. \IVX+M[\IVJ+YES[\IF+300[  \SVG[300]  \IE+%AD,ON[\CS[%VG]]   ]]]
  654. \IVX+M[\IVJ+YES[\CP[None] \PL ~\AM[H] ~\EC+ ~\LF+ ~"[255D"[0;1;32m \NC[10]   \ZS]
  655. \IVJ+YES[\UM[Verified the Phone number: %VB]   \ZS{]
  656. \IVJ+YES["  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█{]
  657. \IVJ+YES["  █   Call Back Verifier v3.3 (c) 01/12/94 by Mark Sherman, New York.    █▒{]
  658. \IVJ+YES["  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▒░{]
  659. \IVJ+YES["       ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░^H~{{{]
  660. \IVJ+YES["       Hello %VF.  Your phone number was verified.{ | { ] \SVJ[]
  661. \SVI[%VR] \IV3+Modem[\SVE[%VB %VG] | \SVE[%VB %MM]]
  662. \SVV[%MO/%DA/%YR] \IVD+[\SVD[0]]    \\ Save the Extended information
  663. \SV1[0]\SVW[New] \BL[NewPassword]   \\ Go Choose a Password
  664. ^G \BL[LevelIncrease]               \\ Let User enter an instant upgrade Code
  665. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\IE-%AN,HOST[\AM[H]]\TM%VI[%VN;%VP;%VL;%VE;%VV;%VD;]]]]]]
  666. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[ \UM[* New User: %VN, %VL %VE * ]]]]]]   \ZS
  667. \IVL+???[\GB[Menu]]          \\ Provision to take user to Menu if level = ???
  668. \IVL+0[{{`Your application will be reviewed.~{] \\ If Level 0 LogOff
  669. \IVL+0[{`Have a good day, %VF.~{ \IV3+Local[\PA[7]] \GB[LogOff]\EM]
  670. \IVL-0[{{`A User record was created for you.~{] \\ If Level not 0, invite
  671. \IVL-0[{`%VF, please call back and enjoy your{] \\  User back, but still LogOff
  672. \IVL-0[`%VD minutes left for today!~{ \IV3+Local[\PA[5]]\GB[LogOff]\EM]
  673.  
  674. |LevelIncrease \\ This gives User a chance to enter a "Business" Upgrade code
  675. \IV3+Modem[\CA-[\UM[Carrier Lost, LevelIncrease Block]\GB[Cycle]\EM]]
  676. \ND[%B:]\SV1[%VL]{`Level Increase Code, press "[Enter"] if you don't know it:{
  677. {"            ______________________________^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
  678. \RV0*[30]   \ZS 
  679. \IV3+Modem[\CA-[\UM[Carrier Lost, LevelIncrease Block]\GB[Cycle]\EM]] \IW-[{\EB]
  680. \IV0+[\UM[Entered a blank Level Increase Code.  The User's level is now: %VL.]\EB]
  681. \IV0+%VP[\SV1[1]]           \\ If user enters his/her password, increase level to 1
  682. \IV0+Elite[\SV1[2]]         \\ If user enters this code, increase level to 2
  683. \\==== SHAMPAGE.CFG[1] ==== \\
  684. \\IV0+XXX[\SV1[3]]          \\ If user enters this code, increase level to 3
  685. \\IV0+XXXX[\SV1[4]]         \\ If user enters this code, increase level to 4
  686. \\IV0+XXXXX[\SV1[5]]        \\ If user enters this code, increase level to 5 (be very carefull with this one!)
  687. \IV0+%VP[\UM[Entered personal Password as Level Increase Code.  User's level is: %V1.]]
  688. \IV0-%VP[\UM[Typed "" %V0 "" as Level Increase Code, level is: %V1.]]
  689. \IVL+%V1[\EB]\SVL[%V1]\BL[ResetTime] \\ Start timing from the begining
  690. \BL[Commands&Paths]                  \\ Establish the Upload / Download path
  691. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\SVV[%MO/%DA/%YR]\IE-%AN,HOST[\AM[H]]]]]]]
  692. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\TM%VI[%VN;%VP;%VL;%VE;%VV;%VD;]]]]]] \EB
  693.  
  694. |NotAllowed
  695. "|^H\II+"~,%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  696. /^H \II+"`,%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  697. /^H \II+!,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  698. ─^H \II+"@,%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  699. "\^H\II+"#,%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  700. "|^H\II+$,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  701. /^H \II+"%,%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  702. /^H \II+^,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  703. ─^H \II+&,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  704. "\^H\II+*,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  705. "|^H\II+(,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  706. /^H \II+),%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  707. /^H \II+_,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  708. ─^H \II+-,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  709. "\^H\II++,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  710. "|^H\II+=,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  711. /^H \II+"|,%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  712. /^H \II+"\,%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  713. ─^H \II+Q,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  714. "\^H\II+W,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  715. "|^H\II+E,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  716. /^H \II+R,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  717. /^H \II+T,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  718. ─^H \II+Y,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  719. "\^H\II+U,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  720. "|^H\II+I,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  721. /^H \II+O,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  722. /^H \II+P,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  723. ─^H \II+"{,%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  724. "\^H\II+"[,%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  725. "|^H\II+},%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  726. /^H \II+"],%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  727. /^H \II+A,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  728. "\^H\II+S,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  729. "|^H\II+D,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  730. /^H \II+F,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  731. /^H \II+G,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  732. "\^H\II+H,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  733. "|^H\II+J,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  734. /^H \II+K,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  735. /^H \II+L,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  736. "\^H\II+:,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  737. "|^H\II+;,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  738. /^H \II+"",%VB[\SV1[%VB]\DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  739. /^H \II+',%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  740. ─^H \II+Z,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  741. "\^H\II+X,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  742. "|^H\II+C,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  743. /^H \II+V,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  744. /^H \II+B,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  745. ─^H \II+N,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  746. "\^H\II+M,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  747. "|^H\II+<,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  748. /^H \II+.,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  749. /^H \II+>,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  750. ─^H \II+/,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  751. "\^H\II+?,%VB[\SV1[%VB] \DV1[%IM]\LV1[1]\SV1[contains "" %V1 "" which is NOT allowed]\EB]
  752. "|^H \EB
  753.  
  754. |MENU
  755. \EM
  756. \BB- \LD- \IV3+Modem[\CA-[\UM[Carrier Lost, Menu Block]\GB[Cycle]\EM]]
  757. \IVC+[\BL[Commands&Paths]] \IVK+[\BL[ResetTime]] \IVD+[\BL[ResetTime]]
  758. \\ If we were in the Tab Block, or chatting, give the Time back to User:
  759. \IVX+RestoreTime[\SV8[%MI]\IVS-%HR[\SVS[%HR]]\+V8[-%VT]\II+-,%V8[\SV8[5]]\+VK[%V8] | \SV8[] \SVX[]]
  760. \IVX+RestoreTime[\SV8[] \SVX[]] \SVM[]
  761. \SVT[%MI] \IE-%VS,%HR[\+VT[60]]\SVD[%VK]\+VD[-%VT]\II+-,%VD[\SVD[0]]
  762. \IVL+0[{{Have a good day, %VF.~{                     \GB[LogOff]\EM]{
  763. ``````````"  █▀▀▀▀▀"▀▀"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"▀▀"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█{
  764. ``````````"  █     "  "        Mark Host v3.3     MAIN  MENU  COMMAND:           "  "   █{
  765. ``````````"  █▀▀▀▀▀"▀▀"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"▀▀"▀▀█{
  766. ``````````"  █     "  "                                 "  "                            █▒{
  767. ``````````"  █     "  "                                 "  "                            █▒░{
  768. ``````````"  █     "[G"]  Goodbye                       "[B"]  Bulletins                █▒░░{
  769. ``````````"  █     "[F"]  File listing                  "[W"]  Doors Menu               █▒░░{
  770. ``````````"  █     "[U"]  Upload files                  "[P"]  Page SysOp               █▒░░{
  771. ``````````"  █     "[D"]  Download files                "[N"]  New password             █▒░░{
  772. ``````````"  █     "[R"]  Read a message                "[M"]  Message titles           █▒░░{
  773. ``````````"  █     "[C"]  Comment to SysOp              "[K"]  Kill a message           █▒░░{
  774. ``````````"  █     "[I"]  Level increase code           "[Z"]  ZipView a .Zip file      █▒░░{
  775. ``````````"  █     "[V"]  View text or .Des file        "[E"]  Enter a new message      █▒░░{
  776. ```\IVL+5["  █     "[S"]  Shut down Host                "[J"]  Jump to Dos              █▒░░{]
  777. ```\IVL+5["  █     "[H"]  Boyan macro command           "[A"]  Activity Log             █▒░░{]
  778. ```\IVL+5["  █     "[L"]  List any path or file         "  "                            █▒░░{]
  779. ``````````"  █     "  "                                 "  "                            █▒░░{
  780. ``````````"  █▄▄▄▄▄"▄▄"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"▄▄"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▒░░{
  781. ``````````"        "  " ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"░░"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░{{
  782. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]  \\ Logoff if out of
  783. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]      \\ time for today.
  784. \IVD+0[\GB[LogOff]\EM]
  785. \IVD+4["            Please consider finishing the current activity.{]
  786. \IVD+3["            Please consider finishing the current activity.{]
  787. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  788. \IVD+1[^G"            In a few seconds, you will be disconnected.{  ]
  789. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  790. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  791. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  792. \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.
  793. \FE+%V4`%VF.Ms%VL[``````````"         "  " Personal message exists,  "[X"] to read it.{]
  794. ```````"            %VD min left.  Your selection:  "[ "]^H^H \RV0[1]{
  795. \IV3+Modem[\CA-[\UM[Carrier Lost, Menu Block]\GB[Cycle]\EM]]
  796. \IW-[            \BL[Disconnect]        \SV0[]    ] \\ If no response,
  797. \IV0+G[\SV0[]    \BL[Disconnect]        \SV0[]    ] \\ block Disconnect.
  798. \IV0+[        \ZS\GB[Menu]                        ] \\ If no selection, go back
  799. \II-%V0,%VC[  \ZS"   Sorry, "[%V0"] is not a valid option.{ \SV0[]\GB[Menu]]
  800. \IV0+F[\SV0[]    \BL[ListFiles]         \SV0[]    ]
  801. \IV0+V[\SV0[]    \BL[ViewFile]          \SV0[]    ]
  802. \IV0+Z[\SV0[]    \BL[ZipView]           \SV0[]    ]
  803. \IV0+D[\SV0[]    \BL[Download]          \SV0[]    ]
  804. \IV0+U[\SV0[] \ZS\BL[SetProtocol]\IV9+[\EM]\SV1[1]  \ZS\BL[Upload]]
  805. \IV0+B[\SV0[]\FE+%V4`BULLETIN.GEN[\SV0[B] | \SV0[NB]] \IV0+NB[\FE+%V4`BULLETIN.%VL[\SV0[B]]]]
  806. \IV0+B[\SV0[] \ZS\BL[Bulletin]\SV0[]] \IV0+NB[  \ZS"  Sorry, No Bulletins available at this time.{]
  807. \IV0+X[\SV0[] \ZS\BL[ReadPers]          \SV0[]    ]
  808. \IV0+M[\SV0[] \ZS\BL[ListMsgs]          \SV0[]    ]
  809. \IV0+R[\SV0[]    \BL[ReadMessage]       \SV0[]    ]
  810. \IV0+C[\SV0[] \ZS\BL[EnterComment]      \SV0[]    ]
  811. \IV0+E[\SV0[]    \BL[SelectMessageTitle]\SV0[]    ]
  812. \IV0+I[\SV0[] \ZS\BL[LevelIncrease]     \SV0[] \ZS]
  813. \IV0+K[\SV0[]    \BL[KillMsg]           \SV0[]    ]
  814. \IV0+N[\SV0[] \ZS\BL[NewPassword]       \SV0[]    ]
  815. \IV0+L[\SV0[]    \BL[ListAnyDir]        \SV0[]    ]
  816. \IV0+J[\SV0[]    \BL[Shell]             \SV0[]    ]
  817. \IV0+S[\SV0[]    \BL[Shutdown]          \SV0[]    ]
  818. \IV0+A[  \ZS\FE-%UN[Activity Log does not exist.{]] \\ Log doesn't exist
  819. \IV0+A[\FE+%UN[\UM[Read the Activity Log %UN] \SVZ[%UN] \BL[ListVZ] ] \\ View Activity Log
  820. \IV0+A[Activity Log:  "[D"]elete "[S"]witch it" \II+%UF,ON[off|on]  "  "[ "]^H^H\RV1[1]{\IV1+D[\DC[DEL %UN]]
  821. \IV0+A[\IV1+S[\UF*]   \ZS{The Activity Log is now %UF.{]
  822. \IV0+H[{MACRO " \RV0[90]{\IV0+[  \ZS \EM | \UM[MACRO: %V0]@V0]] \\ Execute the Macro Remotely!
  823. \IV0+W[\UM[Entered the Door Menu at %HR:%MI]   \ZS \GB[Door]]
  824. \IV0+P[  \ZS{Checking if the SysOp is available now...\UM[Paged SysOp at %HR:%MI:%SE]]
  825. \\ Adjust the Okay Hours for Mark Host to chat with your users, bellow
  826. \\ If you DON NOT want your Host to EVER chat with users, disable the line entirelly
  827. \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]\BL[DOORa]]]]
  828. \\ Adjust the Hours that you can be paged (default is all hours)
  829. \\ If you should you NEVER be paged, disable the line entirelly. (For regular paging)
  830. \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]]]
  831. \IV0+P[{SysOp not around, Please leave a [C]omment or try later.{]
  832. \GB[Menu]
  833.  
  834. |ListFiles \\ This block creates a temp list with files available for download
  835. \IV3+Modem[\CA-[\UM[Carrier Lost, ListFiles Block]\GB[Cycle]\EM]]
  836. \ND[%V4]   \ZS `Files available for download:{
  837. \IVL-5[\FE+%V4`HostFil.Tmp[\SVZ[%V4`HostFil.Tmp] \SV8[0] \GB[HostFilTmp]]]
  838. \UM[Listed files available for Download.]
  839. \II+%VL,0,1,2,3,4,5[\DC[DIR  %VY   >  %V4`HostFil.Tmp]]
  840. \II+%VL,2,3,4,5[    \DC[DIR  %VY"2 >> %V4`HostFil.Tmp]]
  841. \II+%VL,3,4,5[      \DC[DIR  %VY"3 >> %V4`HostFil.Tmp]]
  842. \II+%VL,4,5[        \DC[DIR  %VY"4 >> %V4`HostFil.Tmp]]
  843. \II+%VL,5[          \DC[DIR  %VY"5 >> %V4`HostFil.Tmp]]
  844.                                         \GB[HostFilTmp]
  845.  
  846. |ListAnyDir  \\ This block creates a temp list of files from any directory
  847. \IV3+Modem[\CA-[\UM[Carrier Lost, ListAnyDir Block]\GB[Cycle]\EM]]
  848. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  849. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  850. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  851. \SV0[]{Directory, path or file to list: " \RV0[70] \\ Read the directory path into %V0
  852. \IV3+Modem[\CA-[\GB[Cycle]\EM]] \IW-[\BL[Disconnect]\GB[ListAnyDir]] \\ If no response, block Disconnect
  853. \IV0+[\DC[DIR %VY   >  %V4`HostFil.Tmp]]
  854. \IV0+[\DC[DIR %VY"2 >> %V4`HostFil.Tmp]]
  855. \IV0+[\DC[DIR %VY"3 >> %V4`HostFil.Tmp]]
  856. \IV0+[\DC[DIR %VY"4 >> %V4`HostFil.Tmp]]
  857. \IV0+[\DC[DIR %VY"5 >> %V4`HostFil.Tmp]]           \\ Use DOS to create
  858. \IV0-[\DC[DIR %V0   >  %V4`HostFil.Tmp]]           \\ list in temp. file
  859. \IV0+[\UM[Listed: %VY, %VY"2, %VY"3, %VY"4, %VY"5] \\ Write to the Activity
  860. \IV0-[\UM[Listed: %V0]]                            \\ Log what was listed
  861.  \ZS   \GB[HostFilTmp]
  862.  
  863. |HostFilTmp
  864. \IV3+Modem[\CA-[\UM[Carrier Lost, HostFilTmp Block]\GB[Cycle]\EM]]
  865. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  866. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  867. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  868. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  869. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  870. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  871. \IVD+0[\GB[LogOff]\EM]            \\ Logoff if out of time for today.
  872. \IVD+4["            Please consider finishing the current activity.{]
  873. \IVD+3["            Please consider finishing the current activity.{]
  874. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  875. \IVD+1[^G"            In a few seconds, you will be disconnected.{]
  876. \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.
  877. \SVZ[%V4`HostFil.Tmp] \ND[%V4]
  878. \RE21[\IV3+Modem[\CA-[\GB[Cycle]\EM]] \GV7[%VZ] \II+^Z,%V7[{\EM] %V7{]{
  879. \II-^Z,%V7[░░░  %VD min left. ░░░   "[Q"]uit   "[Z"]ipView   "[V"]iew   "[D"]ownload   "[ "]^H^H \RV1[1]]
  880. \II+^Z,%V7[░░░░░░░░░   End of Listing.  ░░░░░░░░░   "[Z"]ipView   "[V"]iew   "[D"]ownload   "[ "]^H^H \RV1[1]]
  881. \IV3+Modem[\CA-[\UM[Carrier Lost, HostFilTmp Block]\GB[Cycle]\EM]]
  882. \IW-[\GV7[] \SV7[]{ \BL[Disconnect]]       \\ If no response, block Disconnect
  883. \IV1+Q[\GV7[]\SV1[]                       \ZS{    \EB]
  884. \IV1+D[\GV7[]\SV1[]\SV7[]{\BL[Download]\SV1[] \SV7[] ]
  885. \IV1+Z[\GV7[]\SV7[]      {\BL[ZipView] \SV1[] \SV7[]{]
  886. \IV1+V[\GV7[]\SV7[]      {\BL[ViewFile]\SV1[] \SV7[] ]
  887. \II+^Z,%V7[\IV1+[ \GV7[]\SV1[]\SV8[]      \ZS{\EB   ]]
  888. \IV7-[  \ZS{] \GB[HostFilTmp]
  889.  
  890. |ViewFile
  891. \II+%VL,0,1[`Name of file to view:  " \RV0[12]{]
  892. \II+%VL,2,3,4,5[`Path, Name of file to view:  " \RV0[70]{]
  893. \IV3+Modem[\CA-[\UM[Carrier Lost, ViewFile Block]\GB[Cycle]\EM]]
  894. \IW-[\BL[Disconnect]   \ZS \EB] \IV0+[  \ZS{\EB] \\ If no response, go to block Disconnect
  895. \II+"\,%V0[\II+%VL,0,1[  \ZS`Sorry, insufficient security to display path.{\EB]] \\ If "\" in filename, require level 2 and Up
  896. \II+.BSC,%V0[\IVL-5[  \ZS`Sorry, insufficient security to display *.BSC files.{\EB]] \\ If ".BSC" in filename, require level 5
  897. \IVL+0[\FE+%V5%V0[\SV0[%V5%V0]]]
  898. \IVL+1[\FE+%V5%V0[\SV0[%V5%V0]]]
  899. \IVL+2[\FE+%V5%V0[ \SV0[%V5%V0] \EM | \SV0[%VY2"\%V0]]]
  900. \IVL+3[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  901. \IVL+3[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]]]
  902. \IVL+4[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  903. \IVL+4[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]\FE+%VY4"\%V0[\SV0[%VY4"\%V0]]]]
  904. \IVL+5[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  905. \IVL+5[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]\FE+%VY4"\%V0[\SV0[%VY4"\%V0]]]]
  906. \IVL+5[\FE+%VY5"\%V0[\SV0[%VY5"\%V0]]]
  907. \FE-%V0[  \ZS`File not found, please check the spelling.{\EB]
  908. \II+.ZIP,%V0[  \ZS`Choose "[Z"] for a ZIP file.{\EB]
  909. \UM[Viewed file %V0] \SVX[0]
  910. \RE[\IV3+Modem[\CA-[\GB[Cycle]\EM]]\GVM[%V0]\II+^Z,%VM[\EM]%VM{\+VX[1]\IVX+23[░"[Q"]uit " \RVX[1]{\IVX+Q[\EM]\SVX[0]]]
  911. \II+^Z,%VM[{░░░░░░░░░░░░░░░░   End of file.  Press "[Enter"] to continue   ░░░░░░░░░░░░░░░░^H\RVX[1]  \ZS]
  912. \GVM[] \SVM[] \SVX[] { \EB
  913.  
  914. |ZipView
  915. \IVL-5[`Name of file to Unzip:  " \RV0[12]{]
  916. \IVL+5[`Path, Name of file to Unzip:  " \RV0[70]{]
  917. \IV3+Modem[\CA-[\UM[Lost Carrier ZipView block]\GB[Cycle]\EM]]
  918. \IW-[\BL[Disconnect]  \ZS \EB] \IV0+[  \ZS{\EB] \\ If no response, go to block Disconnect
  919. \IVL+0[\FE+%V5%V0[\SV0[%V5%V0]]]
  920. \IVL+1[\FE+%V5%V0[\SV0[%V5%V0]]]
  921. \IVL+2[\FE+%V5%V0[ \SV0[%V5%V0] \EM | \SV0[%VY2"\%V0]]]
  922. \IVL+3[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  923. \IVL+3[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]]]
  924. \IVL+4[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  925. \IVL+4[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]\FE+%VY4"\%V0[\SV0[%VY4"\%V0]]]]
  926. \IVL+5[\FE+%V5%V0[\SV0[%V5%V0]\SVM[Y]\EM]\FE+%VY2"\%V0[\SV0[%VY2"\%V0]\SVM[Y]]]
  927. \IVL+5[\IVM-Y[\FE+%VY3"\%V0[\SV0[%VY3"\%V0]\EM]\FE+%VY4"\%V0[\SV0[%VY4"\%V0]]]]
  928. \IVL+5[\FE+%VY5"\%V0[\SV0[%VY5"\%V0]]]
  929. \FE-%V0[  \ZS`File not found, please check the spelling.{\EB]
  930. \II-.ZIP,%V0[\II-.EXE,%V0[\II-.QWK,%V0[\II-.REP,%V0[  \ZS`Select "[V"]iew for non Ziped files.{\EB]]]]
  931.  \ZS`Please wait while Unziping the file...
  932. \SV1[] \FE+%P:AviewCom.Exe[\SV1[A]]
  933. \IV1-[\FE+%P:GSZ.EXE[\SV1[GE]\EM]\FE+%P:GSZ.COM[\SV1[GC]\EM]\FE+%P:DSZ.EXE[\SV1[DE]\EM]\FE+%P:DSZ.COM[\SV1[DC]\EM]\SV1[]]
  934. \IV1-[\FE+%P:AviewCom.Pro[\DC[DEL %P:AviewCom.Pro]]]
  935. \IV1+GE[\AF%P:AviewCom.Pro[Xmodem CRC,X,gsz.exe,gsz.exe,port %MD speed %MS ha both sx "%3]]
  936. \IV1+GC[\AF%P:AviewCom.Pro[Xmodem CRC,X,gsz.com,gsz.com,port %MD speed %MS ha both sx "%3]]
  937. \IV1+DE[\AF%P:AviewCom.Pro[Xmodem CRC,X,dsz.exe,dsz.exe,port %MD speed %MS ha both sx "%3]]
  938. \IV1+DC[\AF%P:AviewCom.Pro[Xmodem CRC,X,dsz.com,dsz.com,port %MD speed %MS ha both sx "%3]]
  939. \IV1+GE[\AF%P:AviewCom.Pro[Ymodem Batch,B,gsz.exe,gsz.exe,port %MD speed %MS ha both sb "%3]]
  940. \IV1+GC[\AF%P:AviewCom.Pro[Ymodem Batch,B,gsz.com,gsz.com,port %MD speed %MS ha both sb "%3]]
  941. \IV1+DE[\AF%P:AviewCom.Pro[Ymodem Batch,B,dsz.exe,dsz.exe,port %MD speed %MS ha both sb "%3]]
  942. \IV1+DC[\AF%P:AviewCom.Pro[Ymodem Batch,B,dsz.com,gsz.com,port %MD speed %MS ha both sb "%3]]
  943. \\IV1+GE[\AF%P:AviewCom.Pro[Ymodem-g,G,gsz.exe,gsz.exe,port %MD speed %MS ha both sb -g "%3]]
  944. \\IV1+GC[\AF%P:AviewCom.Pro[Ymodem-g,G,gsz.com,gsz.com,port %MD speed %MS ha both sb -g "%3]]
  945. \\IV1+DE[\AF%P:AviewCom.Pro[Ymodem-g,G,dsz.exe,dsz.exe,port %MD speed %MS ha both sb -g "%3]]
  946. \\IV1+DC[\AF%P:AviewCom.Pro[Ymodem-g,G,dsz.com,dsz.com,port %MD speed %MS ha both sb -g "%3]]
  947. \IV1+GE[\AF%P:AviewCom.Pro[Zmodem,Z,%P:gsz.exe,gsz.exe,port %MD speed %MS ha both sz -r "%3]]
  948. \IV1+GC[\AF%P:AviewCom.Pro[Zmodem,Z,%P:gsz.com,gsz.com,port %MD speed %MS ha both sz -r "%3]]
  949. \IV1+DE[\AF%P:AviewCom.Pro[Zmodem,Z,%P:dsz.exe,dsz.exe,port %MD speed %MS ha both sz -r "%3]]
  950. \IV1+DC[\AF%P:AviewCom.Pro[Zmodem,Z,%P:dsz.com,dsz.com,port %MD speed %MS ha both sz -r "%3]]
  951. \IV1+GE[\AF%P:AviewCom.Pro[Zmodem MobyTurbo,T,%P:gsz.exe,gsz.exe,port %MD speed %MS ha both sz -rm "%3]]
  952. \IV1+GC[\AF%P:AviewCom.Pro[Zmodem MobyTurbo,T,%P:gsz.com,gsz.com,port %MD speed %MS ha both sz -rm "%3]]
  953. \IV1+DE[\AF%P:AviewCom.Pro[Zmodem MobyTurbo,T,%P:dsz.exe,dsz.exe,port %MD speed %MS ha both sz -rm "%3]]
  954. \IV1+DC[\AF%P:AviewCom.Pro[Zmodem MobyTurbo,T,%P:dsz.com,dsz.com,port %MD speed %MS ha both sz -rm "%3]]
  955. \IV1-[\UM[AviewCom Unziped: %V0] | \UM[Unziped the file: %V0]]   \ZS
  956. \IV1-[\IV3+LOCAL[\DC[%P:AviewCom %V0 com0 -a1 -p%P: -t%VD]]]
  957. \IV1-[\IV3-LOCAL[\DC[%P:AviewCom %V0 com%MD -a1 -p%P: -b%MA -i%MN -r%MS -t%VD]"[255D"[0;1;32m \ZS]]
  958. \IV1-[\IV3+Modem[\CA-[\UM[Lost Carrier in AviewCom]\GB[Cycle]\EM]]]
  959. \IV1+[\DC[Pkunzip -V %V0 > %V4`HostMsg.Tmp]]  \\ If AviewCom is not found,
  960. \IV1+[\SV0[%V4`HostMsg.Tmp] \SVX[0]]          \\ List file contents to screen
  961. \IV1+[\RE[\IV3+Modem[\CA-[\GB[Cycle]\EM]]\GVM[%V0]\II+^Z,%VM[\EM]`%VM{\+VX[1]\IVX+22[{░░ "[Q"]uit " \RVX[1]{\IVX+Q[\EM]\SVX[0]]]]
  962. \IV1+[\IV3+Modem[\CA-[\UM[Lost Carrier Unziping a file]\GB[Cycle]\EM]]]
  963. \IV1+[\II+^Z,%VM[{░░░░░░░░░░░░░░░░   End of file.  Press "[Enter"] to continue   ░░░░░░░░░░░░░░░░^H \RVX[1]  \ZS{]]
  964. \IV1+[\IV3+Modem[\CA-[\UM[Lost Carrier Unziping a file]\GB[Cycle]\EM]]]
  965. \IV1+[\GVM[] \SVM[] \SVX[]] \EB
  966.  
  967. |Download
  968. \IV3+Modem[\CA-[\UM[Carrier Lost, Download Block]\GB[Cycle]\EM]] \ND[%V5]
  969. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  970. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  971. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  972. \IVD+0[\GB[LogOff]\EM]            \\ Logoff if out of time for today.
  973. \IVD+4["            Please consider finishing the current activity.{]
  974. \IVD+3["            Please consider finishing the current activity.{]
  975. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  976. \IVD+1[^G"            In a few seconds, you will be disconnected.{]
  977. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  978. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  979. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  980. \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.
  981. \SV0[] \SVR[] \IVL-5[`File(s) to download, "" * "" is Okay: " \RV0[12]  \ZS]
  982. \IVL+5[`Path, File(s) to download, "" * "" is Okay: " \RV0[70]  \ZS]
  983. \IV3+Modem[\CA-[\UM[Carrier Lost, Download Block]\GB[Cycle]\EM]]
  984. \IW-[\BL[Disconnect]   \ZS \GB[Download]] \IV0+[\EB] \\ If no response, go to block Disconnect
  985. \II+"\,%V0[\IVL-5["   Insufficient security to download from a path.{\EB]] \\ If "\" in filename, require level 5
  986. \II+"\,%V0[\FE+%V0[\SVR[%V0]]]   \\ If "\" and file exists, make VR full path
  987. \IVR+[                \II-"*,%V0[\FE+%V5%V0[   \SVR[%V5%V0]    ]]]
  988. \IVR+[\II+%VL,2,3,4,5[\II-"*,%V0[\FE+%VY2"\%V0[\SVR[%VY2"\%V0]]]]]
  989. \IVR+[\II+%VL,3,4,5[  \II-"*,%V0[\FE+%VY3"\%V0[\SVR[%VY3"\%V0]]]]]
  990. \IVR+[\II+%VL,4,5[    \II-"*,%V0[\FE+%VY4"\%V0[\SVR[%VY4"\%V0]]]]]
  991. \IVR+[\II+%VL,5[      \II-"*,%V0[\FE+%VY5"\%V0[\SVR[%VY5"\%V0]]]]]
  992. \IVR+[                \II-"*,%V0["   File not found, please check the spelling.{\EB]]
  993.  \ZS \BL[SetProtocol] \IV9+[\EB] \\ Select a protocol, end block if empty protocol
  994. \II+"*,%V0[\II+%V9,X,C,R,1,Y,G,A["   Batch not supported for protocol "[%V9"].  Try using  "[Z"] or "[H"] instead.{ \EB]]
  995. \II-"*,%V0[\UM[Downloading %VR with prot. "[%V9"]]]
  996. \II+"*,%V0[\UM[Downloading file patern: %V0 with prot. "[%V9"]]]
  997. \SV1[]{{"[A"]bort transfer   "[G"]oodBye when done   "[C"]ontinue   "[C"]^H^H \RV1[1]   \ZS
  998. \IW-[\BL[Disconnect]   \ZS \GB[Download]] \\ If no response, go to block Disconnect
  999. \IV3+Modem[\CA-[\UM[Carrier Lost, Upload Block]\GB[Cycle]\EM]]
  1000. \IV1+A[\SV1[]\SV0[]\SV1[]\SVR[]\UM[Transfer aborted.]{"   Transfer aborted.{\EB]
  1001. \IV1+G[\UM[selecting automatic disconnect after Transfer.] | \SV1[]]
  1002. \IVR+[                \II-"\,%V0[\DC[DIR /O:-GN/S/B %V5%V0     >  %Dr:\Boymark.Lst] ]]
  1003. \IVR+[\II+%VL,2,3,4,5[\II-"\,%V0[\DC[DIR /O:-GN/S/B %VY"2"\%V0 >> %Dr:\Boymark.Lst]]]]
  1004. \IVR+[\II+%VL,3,4,5[  \II-"\,%V0[\DC[DIR /O:-GN/S/B %VY"3"\%V0 >> %Dr:\Boymark.Lst]]]]
  1005. \IVR+[\II+%VL,4,5[    \II-"\,%V0[\DC[DIR /O:-GN/S/B %VY"4"\%V0 >> %Dr:\Boymark.Lst]]]]
  1006. \IVR+[\IVL+5[         \II-"\,%V0[\DC[DIR /O:-GN/S/B %VY"5"\%V0 >> %Dr:\Boymark.Lst]]]]
  1007. \IVR+[\IVL+5[         \II+"\,%V0[\DC[DIR /O:-GN/S/B %V0        >  %Dr:\Boymark.Lst]]]]
  1008. \IV9+H[{`Pausing 7 sec. for the Bidirectional Transfer " \RE30[\IV3+Modem[\CA-[\GB[Cycle]\EM]].~]]
  1009. \IV9+A[{`Press "[Return"] when ready: \WL{]    \\ Expect [CR] if ASCII download
  1010. \IV9+A[\IW-[\BL[Disconnect]   \ZS \GB[Download]]] \\ If no response, go to block Disconnect
  1011. {{"[Alt+N"] or "[Control+X"] multiple times cancels.{{`Sending file(s) using protocol "[%V9"]{{`Start to Download now:{
  1012. \IV3+Local[\PA[3]]~~\IVR+[\II-%V9,X,C,R,1,Y,G,A,H[\DC[CD\] \UL%V9-["@%Dr:Boymark.Lst]]]
  1013. \IVR+[\IV9+H[\DC-[CD\ | %P:Hslink -P%MD -E%MS -O -R -U%VU "@%Dr:Boymark.Lst]]]
  1014. \IVR-[\II-%V9,X,C,R,1,Y,G,A,H[\DC[CD\] \UL%V9-[%VR]]]
  1015. \IVR-[\IV9+H[\DC-[CD\ | %P:Hslink -P%MD -E%MS -O -R -U%VU %VR]]]
  1016. \IVR-[\II+%V9,X,C,R,1,Y,G,A[ \IE+%UF,ON[ \SV8[ON] \UF- ]]] \\ If it's on, Turn off the Log
  1017. \IVR-[\II+%V9,X,C,R,1,Y,G,A[\UL%V9-[%VR]]]
  1018. \IVR-[\II+%V9,X,C,R,1,Y,G,A[\IV8+ON[\UF+]]]     \\ If it was on, Turn the Log back On
  1019. \IVR-[{\IV9+A[^K]]                              \\ Send the "[Ctrl-K"]
  1020. \PL \NC[10] "[255D"[0;1;32m   \ZS             \\ to close ASCII download
  1021. \FE+%Dr:\Boymark.Lst[\DC[DEL %Dr:\Boymark.Lst]] \\ Delete the files list, if exists
  1022. \IV9+H[{`Please wait while processing " ]
  1023. \IV9+H[\RE45[\IV3+Modem[\CA-[\GB[Cycle]\EM]].~]] \PL \NC[10] "[255D"[0;1;32m   \ZS
  1024. \\ If HS-Link and you can find Transcan Jr, scan file for Viruses (Less Memory)
  1025.  \ZS \IV9+H[\FE+%P:TSJR.EXE[\DC[%P:TSJR.EXE /P%MD,$%MA,%MN,T %VU*.*]]]
  1026. \\ If HS-Link and you can find Transcan EXE, scan file for Viruses
  1027. \IV9+H[\FE-%P:TSJR.EXE[\FE+%P:TS.EXE[\DC[%P:TS.EXE /P%MD,$%MA,%MN,T %VU*.*]]]]
  1028. \\ If you can't find Transcan, substitute with McAfee & scan file for Viruses
  1029. \IV9+H[\FE-%P:TSJR.EXE[\FE-%P:TS.EXE[\DC[ECHO Y | SCAN /NOMEM /A /D /NOPAUSE /NOEXPIRE %VU*.*]]]]
  1030. \NC[10] "[255D"[0;1;32m   \ZS
  1031. \IV3+Modem[\CA-[\UM[Carrier Lost, Download Block]\GB[Cycle]\EM]]
  1032. \IV1+G[^G{{"[S"]top the disconnect in 10 seconds?]
  1033. \IV1+G[\SV0[10]\RE11[  %V0\TO[1]\IV3+Modem[\CA-[\GB[Cycle]]]\RV1-[1]\TO[180]\IV1-[ \ZS\EM]\+V0[-1]]{{\GB[LogOff]\EM]
  1034. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  1035. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]            \\ If out of time
  1036. \IVD+0[{`Prepare to get disconnected in 10 seconds...\PA[10]{]  \\ for today,
  1037. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]        \\ SysOp could
  1038. \IV3+Modem[\CA-[\UM[Carrier Lost, Download Block]\GB[Cycle]\EM]]\\ add time. If
  1039. \IVD+0[\GB[LogOff]\EM]                                          \\ not,  Logoff.
  1040. \IV1-[\UM[Automatic disconnect canceled by User.]  \ZS"   Automatic disconnect canceled.]
  1041. \SV1[]\SV0[]\SV1[]\SVR[] {\EB
  1042.  
  1043. |SetProtocol     \\ This block, saves a selected protocol in variable %V9
  1044. \IV3+Modem[\CA-[\UM[Carrier Lost, SetProtocol Block]\GB[Cycle]\EM]] \ND[%P:]
  1045. \\SV8[AXC1YG]                   \\ Set %V8 = All possible internal protocols
  1046. \SV8[1G] \SV9[]                 \\ Set %V8 = Desired internal protocols
  1047. \IP+Z[\SV8[%V8`Z]]              \\ Add 'Z' to list if Zmodem is available
  1048. \IP+H[\SV8[%V8`H]]              \\ Add 'H' to list if HS-Link is available
  1049. \IP+K[\SV8[%V8`K]]              \\ Add 'K' to list if Kermit is available
  1050. \IP+L[\SV8[%V8`L]]              \\ Add 'L' to list if Megalink is available
  1051. \IP+P[\SV8[%V8`P]]              \\ Add 'P' to list if MPt is available
  1052. \IP+S[\SV8[%V8`S]]              \\ Add 'S' to list if Sealink is available
  1053. {`````````"                      █▀▀"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"▀▀█{
  1054. ``````````"                      █  "  AVAILABLE PROTOCOLS  "  █{
  1055. ``````````"                      █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"▀▀"▀▀▀▀█▒{
  1056. \II+Z,%V8["                      █    Zmodem           "[Z"]   █▒░{]
  1057. ``````````"                      █                     "  "    █▒░{
  1058. \II+H,%V8["                      █    HS-Link          "[H"]   █▒░{]
  1059. ``````````"                      █                     "  "    █▒░{
  1060. \II+G,%V8["                      █    G-Ymodem         "[G"]   █▒░{]
  1061. ``````````"                      █                     "  "    █▒░{
  1062. \II+1,%V8["                      █    1K-Xmodem        "[1"]   █▒░{]
  1063. \II+K,%V8["                      █    Kermit           "[K"]   █▒░{]
  1064. \II+L,%V8["                      █    Megalink         "[L"]   █▒░{]
  1065. \II+P,%V8["                      █    MPt              "[P"]   █▒░{]
  1066. \II+S,%V8["                      █    Sealink          "[S"]   █▒░{]
  1067. \II+A,%V8["                      █    Ansi             "[A"]   █▒░{]
  1068. ``````````"                      █                     "  "    █▒░{
  1069. ``````````"                      █    Quit             "[Q"]   █▒░{
  1070. ``````````"                      █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"▄▄"▄▄▄▄█▒░{
  1071. ``````````"                           ░░░░░░░░░░░░░░░░░"░░"░░░░░░░{{
  1072. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  1073. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  1074. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  1075. \IVD+0[\GB[LogOff]\EM]            \\ Logoff if out of time for today.
  1076. \IVD+4["            Please consider finishing the current activity.{]
  1077. \IVD+3["            Please consider finishing the current activity.{]
  1078. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  1079. \IVD+1[^G"            In a few seconds, you will be disconnected.{]
  1080. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1081. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1082. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1083. \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.
  1084. ``````````"                           Protocol?        "[ "]^H^H \RV9[1]{
  1085. \IV3+Modem[\CA-[\UM[Carrier Lost, SetProtocol block]\GB[Cycle]\EM]]
  1086. \IW-[\BL[Disconnect]  \ZS \GB[SetProtocol]] \\ If no response, go to block Disconnect
  1087. \IV9+[  \ZS"                        Protocol was not selected.{\GB[SetProtocol]]
  1088. \IV9+Q[\SV9[]   \ZS \EB]
  1089. \II+%V9,%V8[\EB]                            \\ If selection is Ok, end block
  1090. \II-%V9,%V8[  \ZS "                    Protocol  "" %V9 ""  is not available.{]
  1091. \SV9[] \GB[SetProtocol]
  1092.  
  1093. |Upload
  1094. \IV3+Modem[\CA-[\UM[Carrier Lost, Upload Block]\GB[Cycle]\EM]]\ND[%V5]
  1095. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1096. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1097. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1098. \SVR[] \IVL-5[`File %V1 Name: " \RV0[12]{ \IV0-[\SVM[%V0]]] 
  1099. \IVL+5[`File %V1 Path, Name: " \RV0[70]{ \IV0-[\SVM[%V0]]]
  1100. \IV3+Modem[\CA-[\UM[Carrier Lost, Upload Block]\GB[Cycle]\EM]]
  1101. \IW-[{\BL[Disconnect]{\GB[Upload]] \\ If no response, go to block Disconnect
  1102. \IV3+Modem[\PL\PA[1]\PL]           \\ Wait for a pause of 1, and purge line (in case of Message Upload the Name)
  1103. \IV0-[\II+"\,%VM[\IVL-5[`Insufficient security for path.{{\GB[Upload]]]] \\ If "\" in filename, require level 5
  1104. \II+"\,%VM[\II+%V9,G,1,[  \ZS"                 Path is not supported for protocol "[%V9"]{]]
  1105. \II+"*,%VM[\II+%V9,G,1,[  \ZS"               Batch mode is not supported for protocol "[%V9"]{]]
  1106. \II+"\,%VM[\II+%V9,G,1,[\SV0[] \BL[SetProtocol]\IV9+[\EB]\GB[Upload]]]
  1107. \II+"*,%VM[\II+%V9,G,1,[\SV0[] \BL[SetProtocol]\IV9+[\EB]\GB[Upload]]]
  1108. \IV0-[\FE+%V5%VM[    File %VM already exists.{{\IVL-5[\GB[Upload]]]] \\ Go back if file already here
  1109. \IV0-[\FE+%VY"2"\%VM[File %VM already exists.{{\IVL-5[\GB[Upload]]]] \\ Go back if file already here
  1110. \IV0-[\FE+%VY"3"\%VM[File %VM already exists.{{\IVL-5[\GB[Upload]]]] \\ Go back if file already here
  1111. \IV0-[\FE+%VY"4"\%VM[File %VM already exists.{{\IVL-5[\GB[Upload]]]] \\ Go back if file already here
  1112. \IV0-[\FE+%VY"5"\%VM[File %VM already exists.{{\IVL-5[\GB[Upload]]]] \\ Go back if file already here
  1113. \IV0-[\FE+%VM[       File %VM already exists.{{\IVL-5[\GB[Upload]]]] \\ Go back if file already here
  1114. \IV0-[50 characters Description: " \RV8+[50]{]
  1115. \IV3+Modem[\CA-[\UM[Carrier Lost, Upload Block]\GB[Cycle]\EM]]
  1116. \IV3+Modem[\PL\PA[1]\PL] \\ Wait for a pause of 1, and purge line (in case of Message Upload the Description)
  1117. \IV8-[\IV0-[\SVR[%V0]\LVR[]\SVR[%LV]\IVR+12[\+VR[-4]\LV0[%VR]]\IVR+11[\+VR[-3]\LV0[%VR]]]]
  1118. \IV8-[\IV0-[\IVR+10[\+VR[-2]\LV0[%VR]]\IVR+9[\+VR[-1]\LV0[%VR]]]]
  1119. \IV8-[\IV0-[\II+".,%V0[\LV0[%IM]]]] \\ Trim off file's extension if exists
  1120. \\ Delete the Description if it already exists
  1121. \IV0-[\IV8-[\II+%VL,1,0[\FE+%V5TEMP"\%V0.DES[\DC[DEL %V5TEMP"\%V0.DES]]]]]
  1122. \IV0-[\IV8-[\II-%VL,1,0[\FE+%VU%V0.DES[\DC[DEL %VU%V0.DES]]]]]
  1123. \IV0-[\IV8-[\II+%VL,1,0[\AF%V5TEMP"\%V0.DES[%V8] | \AF%VU%V0.DES[%V8]]]]
  1124. \IV1-20[\IV0-[\SV8[] \+V1[1]{ \GB[Upload]]]
  1125. \IV1+20[{The maximum of 20 files were entered, please proceed:{]
  1126. \II-.,%VM[   \SVM[%VM.]]            \\ Add "." to filename if not there
  1127. \II+"\,%VM[  \SV0[%VM] ]            \\ If "\" in the file name, save Upload path
  1128. \II-"\,%VM[\SV0[%VU%VM]]            \\ Otherways, add Host+Level file path to name.
  1129. \SV1[]{"[A"]bort transfer   "[G"]oodBye when done   "[C"]ontinue   "[C"]^H^H \RV1[1]{
  1130. \IV3+Modem[\CA-[\UM[Carrier Lost, Upload Block]\GB[Cycle]\EM]]
  1131. \IW-[{\BL[Disconnect]{ \SV1[1] \SVM[] \GB[Upload]] \\ If no response, go to block Disconnect
  1132. \UM[Uploading %V0 with Prot. "[%V9"]]
  1133. \IV1+A[   \ZS "   Upload aborted.{ \SV1[] \SV0[] \SV8[] \SVM[] \EB]
  1134. \IV1+G[\UM[selecting automatic disconnect after Transfer.] | \SV1[]]
  1135. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[1]]
  1136.  \ZS{"[Alt+N"] or "[Control+X"] multiple times to cancel.{
  1137. {`Ready to receive using protocol [%V9]{{`Start to Upload now...~{{
  1138. \IE+%UF,ON[\SV8[ON]\UF-]            \\ If it's on, Turn off the Log
  1139. \PA[15] \IV9+H[\DC-[CD\ | %P:Hslink -P%MD -E%MS -O -R -U%V0]]
  1140. \IV9-H[\DL%V9-[%V0]]                \\ Receive file %V0 with Protocol %V9
  1141. \IV8+ON[\UF+]                       \\ If it was on, Turn the Log back On
  1142. \PL \NC[10] "[255D"[0;1;32m   \ZS
  1143. \IV9+H[{`Please wait while processing " ]
  1144. \IV9+H[\RE45[\IV3+Modem[\CA-[\GB[Cycle]\EM]].~]] \PL \NC[10] "[255D"[0;1;32m   \ZS
  1145. \\ If you can find Transcan Jr, scan file for Viruses (Less Memory)
  1146. \FE+%P:TSJR.EXE[\DC[%P:TSJR.EXE /P%MD,$%MA,%MN,T %VU*.*]]
  1147. \\ If Transcan Jr not found, but Transcan EXE found, scan file for Viruses
  1148. \FE-%P:TSJR.EXE[\FE+%P:TS.EXE[\DC[%P:TS.EXE /P%MD,$%MA,%MN,T %VU*.*]]]
  1149. \\ If you can't find Transcan.  Substitute with McAfee & scan file for Viruses
  1150. \FE-%P:TSJR.EXE[\FE-%P:TS.EXE[\DC[ECHO Y | SCAN /NOMEM /A /D /NOPAUSE /NOEXPIRE %VU*.*]]]
  1151. "[255D"[0;1;32m   \ZS          \\ Give User back the Time spent Uploading:
  1152. \SV8[%MI] \IVS-%HR[\SVS[%HR]] \+V8[-%VT] \II+-,%V8[\SV8[5]] \SV0[%V8] \+V0[%V8] \+VK[%V0]
  1153. \\IV0-0["   Upload took %V8 min.  Compensating, by adding to your time %V0 min.{]
  1154. \IV3+Modem[\CA-[\UM[Carrier Lost, Upload Block]\GB[Cycle]\EM]]
  1155. \SV8[] \SVM[] \SVR[] \IV1+G[^G{{"[S"]top the disconnect in 10 seconds?]
  1156. \IV1+G[\SV0[10]\RE11[  %V0\TO[1]\IV3+Modem[\CA-[\GB[Cycle]]]\RV1-[1]\TO[180]\IV1-[ \ZS\EM]\+V0[-1]]{{\GB[LogOff]\EM]
  1157. \IV1-[\UM[Automatic disconnect canceled by User.]  \ZS{"   Automatic disconnect canceled.]
  1158. \SV1[] \SV0[] \SV8[] \SVM[] { \EB
  1159.  
  1160. |Bulletin
  1161. \IV3+Modem[\CA-[\UM[Carrier Lost, ListMsgs Block]\GB[Cycle]\EM]]
  1162. \UM[Read the available Bulletins.]
  1163. \FE+%V4`BULLETIN.GEN["                     General Announcement to ALL callers:{]
  1164. \FE+%V4`BULLETIN.GEN["                     ════════════════════════════════════^H~~~~{]
  1165. \FE+%V4`BULLETIN.GEN[\SVZ[%V4`BULLETIN.GEN]\BL[ListVZ] \ZS] \\ Show general bulletin
  1166. \FE+%V4`BULLETIN.%VL["              Announcement for all users with this access level:{]
  1167. \FE+%V4`BULLETIN.%VL["              ══════════════════════════════════════════════════^H~~~~{]
  1168. \FE+%V4`BULLETIN.%VL[\SVZ[%V4`BULLETIN.%VL]\BL[ListVZ]] \\ Show bulletin.level
  1169. \IV3+Modem[\CA-[\UM[Carrier Lost, ListMsgs Block]\GB[Cycle]\EM]]   \ZS \EB
  1170.  
  1171. |ListMsgs
  1172. \IV3+Modem[\CA-[\UM[Carrier Lost, ListMsgs Block]\GB[Cycle]\EM]]
  1173. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  1174. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  1175. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  1176. \IVD+0[\GB[LogOff]\EM]           \\ Logoff if out of time for today.
  1177. \SVZ[%V4`HostMsg.Tmp]\UM[Listed available messages]   \ZS 
  1178. \IVD+4["            Please consider finishing the current activity.{]
  1179. \IVD+3["            Please consider finishing the current activity.{]
  1180. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  1181. \IVD+1[^G"            In a few seconds, you will be disconnected.{]
  1182. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1183. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1184. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1185. `List of available Messages:{
  1186. \IVL-5[\DC[DIR %V4*.MS%VL > %VZ] | \DC[DIR %V4*.MS* > %VZ]]
  1187. \BL[ListVZ] \GB[ReadMessage]
  1188.  
  1189. |ListVZ
  1190. \FE+%V4`%VF.MS%VL[\IVD+4[{" Please consider finishing the current activity.{]]
  1191. \FE+%V4`%VF.MS%VL[\IVD+3[{" Please consider finishing the current activity.{]]
  1192. \FE+%V4`%VF.MS%VL[\IVD+2[{" Your time limit is about to expire.  Prepare to logoff.{]]
  1193. \FE+%V4`%VF.MS%VL[\IVD+1[^G{{" In a few seconds, you will be disconnected.{]]
  1194. \ND[%V4] \SV1[0]
  1195. \RE[\IV3+Modem[\CA-[\GB[Cycle]\EM]]\GV7[%VZ]\II+^Z,%V7[\EM]%V7{\+V1[1]\IV1+22[{░ "[Q"]uit " \RV1[1]{\IV1+Q[\EM]\SV1[0]]]
  1196. \II+^Z,%V7[{░ Press "[Enter"] to continue ░^H \RV1[1]{]
  1197. \GV7[] \SV1[] \SV7[] \IV3+Modem[\CA-[\UM[Carrier Lost, List block.]\GB[Cycle]\EM]]
  1198. \IW-[\BL[Disconnect]] \EB                  \\ Block disconnect if no response
  1199.  
  1200. |ReadMessage
  1201. \IV3+Modem[\CA-[\UM[Carrier Lost, ReadMessage Block]\GB[Cycle]\EM]]\ND[%V4]
  1202. \IVL-5[`Message to read, without extension:  ________^H^H^H^H^H^H^H^H\RVM[8]{]
  1203. \IVL+5[`Message to read, with extension:  ____________^H^H^H^H^H^H^H^H^H^H^H^H\RVM[12]{]
  1204. \IV3+Modem[\CA-[\UM[Carrier Lost, ReadMessage Block]\GB[Cycle]\EM]]
  1205. \IW-[{\BL[Disconnect]{\GB[ReadMessage]]  \\ If no response, go to block Disconnect
  1206.  \ZS \IVM+["   A message title was not selected.{\EB]
  1207. \IVM+NEW[\SVZ[%V4`NEW.MSG]     \BL[ListVZ]       \EB]
  1208. \IVM+NEW.MSG[\SVZ[%V4`NEW.MSG] \BL[ListVZ]       \EB]
  1209. \II+"\,%VM[No spaces, dots or paths supported in message name.{\GB[ReadMessage]]
  1210. \II+"/,%VM[No spaces, dots or paths supported in message name.{\GB[ReadMessage]]
  1211. \II+" ,%VM[No spaces, dots or paths supported in message name.{\GB[ReadMessage]]
  1212. \IVL-5[\II+".,%VM[No spaces, dots or paths supported in the message name.{\GB[ReadMessage]]]
  1213. \IVL-5[\SVM[%V4`%VM.MS%VL]]                      \\ Expand name
  1214. \IVL+5[\SVM[%V4`%VM]]                            \\ to path\filename.msg
  1215. \FE-%VM[Message not found, please check the spelling.{\GB[ReadMessage]]
  1216. \UM[Read message %VM] \SVZ[%VM] \BL[ListVZ]      \\ Show Message contents
  1217. \BL[ReadMsgOptions] \EB
  1218.  
  1219. |ReadPers
  1220. \IV3+Modem[\CA-[\UM[Carrier Lost, ReadPers Block]\GB[Cycle]\EM]]
  1221. \SVM[%V4`%VF.MS%VL]   \ZS \\ Expand name to path\filename.msg
  1222. \FE-%VM[You don't have any personal messages.{ \EB]
  1223. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1224. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1225. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1226. \UM[Read the personal message: %VM]
  1227. \IVD+4[{" Please consider finishing the current activity.{]
  1228. \IVD+3[{" Please consider finishing the current activity.{]
  1229. \IVD+2[{" Your time limit is about to expire.  Prepare to logoff.{]
  1230. \IVD+1[^G{{" In a few seconds, you will be disconnected.{]
  1231. \SVZ[%VM] \BL[ListVZ] \GB[ReadMsgOptions] \EB
  1232.  
  1233. |ReadMsgOptions
  1234. \IV3+Modem[\CA-[\UM[Carrier Lost, ReadMsgOptions Block]\GB[Cycle]\EM]]
  1235. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  1236. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  1237. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  1238. \IVD+0[\GB[LogOff]\EM]            \\ Logoff if out of time for today.
  1239. \IVD+4["            Please consider finishing the current activity.{]
  1240. \IVD+3["            Please consider finishing the current activity.{]
  1241. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  1242. \IVD+1[^G"            In a few seconds, you will be disconnected.{]
  1243. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1244. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1245. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1246. \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.
  1247. ░ Read message options:     ░  "[D"]elete  "[R"]eply  "[A"]gain  "[ "]  ░░░░░░░░^H^H^H^H^H^H^H^H^H^H^H^H\RV1[1]{
  1248. \IV3+Modem[\CA-[\UM[Carrier Lost, ReadMsgOptions Block]\GB[Cycle]\EM]]
  1249. \IW-[{\BL[Disconnect]{\GB[ReadMsgOptions]]  \\ If no response, go to block Disconnect
  1250. \IV1+D[\UM[Deleted the message: %VM]\DC[Del %VM]  \ZS {"   The message was deleted.{]
  1251. \IV1+R[\SV1[]\GB[MsgHeader]]
  1252. \IV1+A[\SVZ[%VM]   \ZS \BL[ListVZ] \GB[ReadMsgOptions]]
  1253. \IV1+[  \ZS] { \EB
  1254.  
  1255. |KillMsg
  1256. \IV3+Modem[\CA-[\UM[Carrier Lost, KillMsg Block]\GB[Cycle]\EM]] \ND[%V4]
  1257. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  1258. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  1259. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  1260. \IVD+0[\GB[LogOff]\EM]            \\ Logoff if out of time for today.
  1261. \IVD+4["            Please consider finishing the current activity.{]
  1262. \IVD+3["            Please consider finishing the current activity.{]
  1263. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  1264. \IVD+1[^G"            In a few seconds, you will be disconnected.{]
  1265. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1266. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1267. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1268. \IVL-5[%VD min left.  Message to Delete, (no extension):  ________^H^H^H^H^H^H^H^H\RVM[8]{]
  1269. \IVL+5[{%VD min left.  Message to Delete, (include extension):  ?.MS_^H^H^H^H^H\RVM[12]{]
  1270. \IV3+Modem[\CA-[\UM[Carrier Lost, KillMsg Block]\GB[Cycle]\EM]]
  1271. \IW-[{\BL[Disconnect]\EB]          \\ If no response, go to block Disconnect
  1272.  \ZS \IVM+[{"   No message selected for Deletion.{\EB]
  1273. \II+"\,%VM[{^G"   No spaces, dots or paths supported in the message's name.{\EB]
  1274. \II+"/,%VM[{^G"   No spaces, dots or paths supported in the message's name.{\EB]
  1275. \II+" ,%VM[{^G"   No spaces, dots or paths supported in the message's name.{\EB]
  1276. \IVL-5[\II+".,%VM[{^G"   No spaces, dots or paths supported in the message's name.{\EB]]
  1277. \IVL-5[\SVM[%V4`%VM.MS%VL]]        \\ Expand name to path\filename.msg
  1278. \IVL+5[\SVM[%V4`%VM]]
  1279. \IVL-5[\IVM+%V4`NEW.MSG[{"   Can't Delete the New User message.{\EB]]
  1280. \FE-%VM[{"   That message does not exist.{  \EB]         \DC[DEL %VM]
  1281. \UM[Deleted message %VM]{"   The message was Deleted.{ \EB
  1282.  
  1283. |SelectMessageTitle
  1284. \ND[%V4]\IV3+Modem[\CA-[\UM[Carrier Lost, SelectMessageTitle Block]\GB[Cycle]\EM]]
  1285. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1286. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1287. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1288.  \ZS {{{`If you put a user's FIRST name, he/she will be automatically{
  1289. read it on the next logon.  DO NOT enter messages for SysOp here.{
  1290. {%VD min left.  Type a name for your message (1-8 letters): ________^H^H^H^H^H^H^H^H \RVM[8]{
  1291. \IV3+Modem[\CA-[\UM[Carrier Lost, SelectMessageTitle Block]\GB[Cycle]\EM]]
  1292. \IW-[{\BL[Disconnect]{ \GB[SelectMessageTitle]] \\ If no response, go to block Disconnect
  1293. \IVM+[  \ZS "   A message name was not selected.{ \EB]
  1294. \II+"\,%VM[  \ZS{No spaces, dots or paths supported in the message's name.{{\GB[SelectMessageTitle]]
  1295. \II+"/,%VM[  \ZS{No spaces, dots or paths supported in the message's name.{{\GB[SelectMessageTitle]]
  1296. \II+" ,%VM[  \ZS{No spaces, dots or paths supported in the message's name.{{\GB[SelectMessageTitle]]
  1297. \II+".,%VM[  \ZS{No spaces, dots or paths supported in the message's name.{{\GB[SelectMessageTitle]]
  1298. \IVL+5[{"   Message prepared for what level (0-5) _^H \RV0[1]{]
  1299. \IV3+Modem[\CA-[\UM[Carrier Lost, SelectMessageTitle Block]\GB[Cycle]\EM]]
  1300. \IW-[{\BL[Disconnect]{ \GB[SelectMessageTitle]] \\ If no response, go to block Disconnect
  1301. \IVL+5[\IV0+[  \ZS {"   A User's Level was not selected.{ \EB]
  1302. \IVL-5[\SVM[%V4`%VM.MS%VL]]    \\ Make %VM = full path\filename.msg
  1303. \IVL+5[\SVM[%V4`%VM.MS%V0]]    \\ If Sysop, make %VM = full path\filename.ms? level
  1304. \FE+%VM[ \ZS{{ "    The following, is a message with the same name:~~~{{]
  1305. \FE+%VM[\SVZ[%VM] \BL[ListVZ] \GB[ReadMsgOptions]{\EB]
  1306.  \ZS \GB[MsgHeader] {\EB
  1307.  
  1308. |EnterComment
  1309. {"  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ {
  1310. `"  █              YOU ARE NOW LEAVING A MESSAGE FOR THE SYSOP             █▒ {
  1311. `"  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▒░{
  1312. `"       ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░{{
  1313. \SVM[%UN] \GB[MsgHeader]
  1314.  
  1315. |MsgHeader
  1316. \ND[%V4]\IV3+Modem[\CA-[\UM[Carrier Lost, MsgHeader Block]\GB[Cycle]\EM]]
  1317. \SV0[%V4`HostMsg.Tmp] \FE+%V0[\DC[Del %V0]]
  1318. \SV9[───────────  From: %VN, %MO/%DA/%YR at %HR:%MI  ───────────]
  1319. \AF%V0[] \AF%V0[%V9] \AF%V0[]
  1320. \FE-%V0[^G{DOS ERROR.  Sorry, unable to create message! \RE5[~\AL2[0]] \EB]
  1321. {Enter up to 40 lines.  Hit "[Enter"] on an empty line when done.{
  1322. {%V9{{ \SV9[1] \GB[GetMsgLines]
  1323.  
  1324. |GetMsgLines
  1325. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1326. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1327. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1328. \RE[\IV3+Modem[\CA-[\GB[Cycle]\EM]]\IV9+41[Message full!{\EM] %V9>" \RV1+[70]\IV1+[\EM]\AF%V0[%V1]\+V9[1]]
  1329. \IW-[{\BL[Disconnect] \GB[GetMsgLines]] \\ If no response, go to block Disconnect
  1330. \GB[NewMessageOptions]
  1331.  
  1332. |NewMessageOptions
  1333. \IV3+Modem[\CA-[\UM[Carrier Lost, NewMessageOptions Block]\GB[Cycle]\EM]]
  1334. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  1335. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  1336. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  1337. \IVD+0[\GB[LogOff]\EM]            \\ Logoff if out of time for today.
  1338. \IVD+4["            Please consider finishing the current activity.{]
  1339. \IVD+3["            Please consider finishing the current activity.{]
  1340. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  1341. \IVD+1[^G"            In a few seconds, you will be disconnected.{]
  1342. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1343. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1344. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1345. \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.
  1346. {%VD min left.  New Message options:  "[C"]ancel  "[R"]ead  "[A"]dd  "[S"]ave  "[S"]^H^H \RV1[1]{
  1347. \IV3+Modem[\CA-[\UM[Carrier Lost, NewMessageOptions Block]\GB[Cycle]\EM]]
  1348. \IW-[{\BL[Disconnect] \GB[NewMessageOptions]] \\ If no response, go to block Disconnect
  1349. \IV1+C[\DC[Del %V0] \SV0[] \SVM[]  \ZS {"   Your new message was aborted.{ \EB]
  1350. \IV1+S[\IVM+%UN[\BL[SaveComment]\EB]] \IV1+[ \IVM+%UN[\BL[SaveComment]\EB]]
  1351. \IV1+S[\DC[Type %V0 >> %VM]\DC[DEL %V0]\UM[Posted: %VM] \ZS{"   Message saved.{\SV0[]\SVM[]\EB]
  1352. \IV1+[\DC[Type %V0 >> %VM]\DC[DEL %V0]\UM[Posted: %VM] \ZS{"   Message saved.{\SV0[]\SVM[]\EB]
  1353. \IV1+A[{\GB[GetMsgLines]]
  1354. \IV1+R[\IVM+%UN[\SVZ[%V0]   \ZS \BL[ListVZ] \GB[NewMessageOptions]]]
  1355. \IV1+R[  \ZS\FE+%VM[\SVZ[%VM] \BL[ListVZ]] \SVZ[%V0] \BL[ListVZ] \GB[NewMessageOptions]]
  1356. \GB[NewMessageOptions]
  1357.  
  1358. |SaveComment
  1359. \DC[Type %V0 >> %UN] \DC[DEL %V0]  \SV0[] \SVM[]
  1360.  \ZS "   Your comment to SysOp was saved.{ \EB
  1361.  
  1362. |OperatorPage
  1363. \IV3+Modem[\CA-[\UM[Carrier Lost, OperatorPage Block]\GB[Cycle]\EM]]
  1364. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1365. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1366. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1367. \SV1[%VL5]  \ZS {`Ringing SysOp's bell for %V1 seconds:{{
  1368. \SV0[%VF]\LV0[10]\DMC[95] \\ Set %V0 = first 10 letters of caller's first name
  1369. \DM43,09[ ╔══"════════════════════════════"══╗ ]
  1370. \DM43,10[ ║  %V0``````` is paging Sysop!" "  ║ ]
  1371. \DM43,11[ ╠══"══"════════════════════════════╣ ]
  1372. \DM43,12[ ║  "[Tab"] = Sysop Menu            ║ ]
  1373. \DM43,13[ ║  "[C"]   = Chat with %V0```````  ║ ]
  1374. \DM43,14[ ║  "[K"]   = Kill the Beeps        ║ ]
  1375. \DM43,15[ ║  "[Esc"] = Aborts the Host Mode  ║ ]
  1376. \DM43,16[ ╚══"════════════════════════════"══╝ ] \DMC[31] \BB+ 
  1377. \RE%V1[\IV3+Modem[\CA-[\GB[Cycle]\EM]]▓^G~▒ \IE+%IK,C[\BB-   \ZS \GB[Gossip]] \IE+%IK,K[\BB-]█]
  1378. \BB-  \ZS {"   SysOp doesn't seem to be around at the{
  1379. "   moment. Leave a "[C"]omment or try later.{ \EB
  1380.  
  1381. |Gossip
  1382.  \ZS ^G {{{%VF, you are chatting with the SysOp.  Type ""/"" to EXIT.{{
  1383. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░{{{
  1384. \IV3-Local[\UM[Chatted with SysOp at %HR:%MI:%SE]] \SN[ %VF %VD min.] \SVX[RestoreTime]
  1385. \RE[\BB-\ST[%VG Lev. %VL Log is %LD "["`"] togles it.]\BB+\RV0+[74]\IV0+"/[\EM]\II+"`,%V0[\LD*[%UN]]\IV3+Modem[\CA-[\GB[Cycle]\EM]]]
  1386. \BB- \LD- ^G "[255D"[0;1;32m    \ZS { \EB
  1387.  
  1388. |NewPassword
  1389. \IV3+Modem[\CA-[\UM[Carrier Lost, NewPassword Block]\GB[Cycle]\EM]]
  1390. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1391. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1392. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1393. \IVW+New[\IV1+5[\UM[Too many attempts, NewPassword.]]]
  1394. \IVW+New[\IV1+5[  \ZS `Sorry, too many attempts!{{\SV0[] \SV1[] \SVN[] \GB[LogOff]\EM]]
  1395. \IVW-New[{"   Type your current Password: " ]
  1396. \IVW-New[_______________^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H\RV0*[15]  \ZS{]
  1397. \IV3+Modem[\CA-[\UM[Carrier Lost, NewPassword Block]\GB[Cycle]\EM]]
  1398. \IVW-New[\IW-[\EB] \IV0+[\EB] \IV0-%VP[^G "   Wrong password!{ \EB]]
  1399. {"   Choose a Password for this System:
  1400.  "        __________^H^H^H^H^H^H^H^H^H^H\RV0*[10]{ \\ Due to extended Info, we can take
  1401. \IV3+Modem[\CA-[\UM[Carrier Lost, NewPassword Block]\GB[Cycle]\EM]] \\ up to 10 characters Passwords!
  1402. \IW-[\SV0[]] \IV0+[^G"   Blank passwords are not allowed!{]
  1403. \IV0+[ \IVW+New[\+V1[1]{\GB[NewPassword]\EM] \EB]
  1404. "   Type your new Password again, to confirm:
  1405. "  __________^H^H^H^H^H^H^H^H^H^H\RVZ*[10]{
  1406. \IV3+Modem[\CA-[\UM[Carrier Lost, NewPassword Block]\GB[Cycle]\EM]]
  1407. \IW-[\SVZ[]] \IE-%V0,%VZ[\SVZ[]] \IVZ+[^G  \ZS{"   Your passwords didn't match!{]
  1408. \IVZ+[ \IVW+New[\+V1[1]{\GB[NewPassword]\EM] \EB] \SVP[%V0]
  1409. \IVW-New[\IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\SVV[%MO/%DA/%YR]\IE-%AN,HOST[\AM[H]]]]]]]]
  1410. \IVW-New[\IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\TM%VI[%VN;%VP;%VL;%VE;%VV;%VD;]]]]]]]
  1411. \IVW-New[\UM[Changed the Password.]  \ZS{"   Okay, your password has been changed.{]
  1412. \EB
  1413.  
  1414. |*TAB         \\ This is the SysOp block, and it runs when "[Tab"] is pressed
  1415. \BB- \LD- \KO[120] \SV9[#EFGHJRSU]     \\ These are the available menu options
  1416. \IVN-[\SV9[%V9ACDTL]\SVX[RestoreTime]] \\ If name not Blank, add more options
  1417. \FE+%S:MARKDOC.EXE[\SV9[%V9!]]         \\ Add ! if MarkDoc.exe is in your script Dir.
  1418. \FE+%S:FINDME.EXE[\SV9[%V9?]]          \\ Add ? if Findme.exe is in your script Dir.
  1419. \IE-%AN,HOST[\AM[H]\EC+\LF+]           \\ Make sure we're using Host module
  1420. \SV8[%VF] \LV8[10]                     \\ Set %V8 to caller's first name (10 letters)
  1421. \FE-%S:Dialer.BSC[\EM | \IE+%HR,%VQ[^G   \ZS {{Please wait while trying to{delay the System Event!...]]
  1422. \KS \SV0[1]  \DMC[11]
  1423. ```````````\DM42,%V0[ ╔═══"══"══════════════════════════════╗ ]  \+V0[1]
  1424. ```````````\DM42,%V0[ ║   SYSOP  MENU:" "                   ║ ]  \+V0[1]
  1425. ```````````\DM42,%V0[ ╟───"──"──────────────────────────────╢ ]  \+V0[1]
  1426. `\II+J,%V9[\DM42,%V0[ ║   "[J"]  Jump to Dos                ║ ]  \+V0[1] ]
  1427. `\II+A,%V9[\DM42,%V0[ ║   "[A"]  Add some time              ║ ]  \+V0[1] ]
  1428. `\II+R,%V9[\DM42,%V0[ ║   "[R"]  Return to Host             ║ ]  \+V0[1] ]
  1429. `\II+C,%V9[\DM42,%V0[ ║   "[C"]  Chat with %V8```````       ║ ]  \+V0[1] ]
  1430. `\II+?,%V9[\DM42,%V0[ ║   "[?"]  Find me a file             ║ ]  \+V0[1] ]
  1431. `\II+#,%V9[\DM42,%V0[ ║   "[#"]  Change Area Codes          ║ ]  \+V0[1] ]
  1432. `\II+F,%V9[\DM42,%V0[ ║   "[F"]  Boyan file manager         ║ ]  \+V0[1] ]
  1433. `\II+S,%V9[\DM42,%V0[ ║   "[S"]  Scroll-back buffer         ║ ]  \+V0[1] ]
  1434. `\II+H,%V9[\DM42,%V0[ ║   "[H"]  Host configuration         ║ ]  \+V0[1] ]
  1435. `\II+L,%V9[\DM42,%V0[ ║   "[L"]  Change User's level        ║ ]  \+V0[1] ]
  1436. `\II+T,%V9[\DM42,%V0[ ║   "[T"]  Take away some time        ║ ]  \+V0[1] ]
  1437. `\II+E,%V9[\DM42,%V0[ ║   "[E"]  Edit host usage Log        ║ ]  \+V0[1] ]
  1438. `\II+!,%V9[\DM42,%V0[ ║   "[!"]  View, print Mark Doc.      ║ ]  \+V0[1] ]
  1439. \II+%UF,ON[\DM42,%V0[ ║   "[U"]  Usage log (Toggles it off) ║ ] | \DM42,%V0[ ║   "[U"]  Usage Log (Toggles it On)  ║ ]]\+V0[1]
  1440. ```````````\DM42,%V0[ ╟───"──"──────────────────────────────╢ ]  \+V0[1]
  1441. \FE-%S:Dialer.BSC[\EM]\IE+%HR,%VQ[\DM42,%V0[ ║   "[D"]  Delay the Dialer Script    ║ ]  \+V0[1]
  1442. `\II+G,%V9[\DM42,%V0[ ║   "[G"]  Hang Up & Reset the Modem  ║ ]  \+V0[1] ]
  1443. ```````````\DM42,%V0[ ╚═══"══"══════════════════════════════╝ ]  \+V0[1] \DMC[31]
  1444. \FE-%S:Dialer.BSC[\EM]\IE+%HR,%VQ[\DMC[140]\DM42,%V0[      Disconnecting for the Dialer!      ]\DMC[31]\+V0[1]
  1445. \FE-%S:Dialer.BSC[\EM | \IE+%HR,%VQ[\II+%HR,02,03,04,05,06,07[\AV[4] | \AV[6]]]]
  1446. \FE-%S:Dialer.BSC[\EM | \IE+%HR,%VQ[\RE5[\IV3+Modem[\CA-[\GB[Cycle]\EM]]\AL2[1]~] \KO[30] \AV[6]]]
  1447. \IVN+[\KV0R[ SysOp Option: ] \RS]
  1448. \IVN-[\SN[ %VF %VD min.] \KV0R[%VG  Lev. %VL  SysOp Option: ] \RS]
  1449. \II-%V0,%V9[\GB[*TAB]] \SV9[]
  1450. \FE-%S:Dialer.BSC[\EM]\IV0+D[\KVQ%VQ[  NEW time to START dialing:   ]\+vK[60]\SVQ[%VQ]]
  1451. \FE-%S:Dialer.BSC[\EM]\IV0+D[\KVH%VH[  NEW time to FINISH dialing:  ]\SV0[]\GB[Menu]]
  1452. \IV0+A[\IV3+LOCAL[\RE[\ST[ Local  Lev. %VL, Adding time: %VD] \SVT[%MI]\IE-%VS,%HR[\+VT[60]]\+VK[1]\SVD[%VK]\+VD[-%VT]\IE-%IK,A[\EM]]]]
  1453. \IV0+A[\IV3-LOCAL[\RE[\ST[%VG baud Lev. %VL, Adding time: %VD]\SVT[%MI]\IE-%VS,%HR[\+VT[60]]\+VK[1]\SVD[%VK]\+VD[-%VT]\IE-%IK,A[\EM]]]]
  1454. \IV0+T[\IV3+LOCAL[\RE[\ST[ Local  Lev. %VL, Taking time: %VD] \SVT[%MI]\IE-%VS,%HR[\+VT[60]]\+VK[-1]\SVD[%VK]\+VD[-%VT]\IE-%IK,T[\EM]]]]
  1455. \IV0+T[\IV3-LOCAL[\RE[\ST[%VG baud Lev. %VL, Taking time: %VD]\SVT[%MI]\IE-%VS,%HR[\+VT[60]]\+VK[-1]\SVD[%VK]\+VD[-%VT]\IE-%IK,T[\EM]]]]
  1456. \IV0+C[\SV0[]\BL[Gossip] \GB[Menu]]
  1457. \IV0+G[\SV0[]        \GB[ForceOff]]
  1458. \IV0+#[\IVO-Waiting[^G  \ZS{{`Please Wait, SysOp went to Dos...~]]
  1459. \IV0+#[\DC[DEL %F:AREACODE]\BL[AreaCodes]\IVO-Waiting[^G{{SysOp is back, hold on:~]]
  1460. \IV0+L[\SV0[]\ZS \DMC[11]  \BL[ChangeUserLevel]]
  1461. \IV0+F[\IVO-Waiting[^G \ZS{{`Please Wait, SysOp went to Dos...~]\NC[7]\FM[%V4]\NC[10]]
  1462. \IV0+F[\SV0[]\IVO-Waiting[^G{{SysOp is back, hold on:~]]
  1463. \IV0+H[\IVO-Waiting[^G  \ZS{{`Please Wait, SysOp went to Dos...~]\NC[7]\CB[A]\NC[10]]
  1464. \IV0+H[\IVO+Waiting[\IE-%AN,HOST[\AM[H]\EC-\LF-]\SN[]\NC[7]\ZS\GB[StandBy]]]
  1465. \IV0+H[\SV0[]^G\IE-%AN,HOST[\AM[H]\EC+~\LF+~]{{SysOp is back, hold on:]
  1466. \IV0+J[\IVO-Waiting[^G \ZS{{`Please Wait, SysOp went to Dos...]\NC[7]]
  1467. \IV0+J[\SV0[]\JD\NC[10]\IVO-Waiting[^G{{SysOp is back, hold on:~]]
  1468. \IV0+S[\SV0[]\RB]
  1469. \IV0+E[\IVO-Waiting[^G  \ZS{{`Please Wait, SysOp went to Dos...~]\DC[%WC %UN]]
  1470. \IV0+E[\SV0[] \IVO-Waiting[^G{{SysOp is back, hold on:~]]
  1471. \FE-%S:Dialer.BSC[\EM]\IE+%HR,%VQ[\SV0[]\GB[Dialer]]
  1472. \IV0+![\IVO-Waiting[^G  \ZS{{`Please Wait, SysOp went to Dos...~]\DC[%S:MarkDoc.Exe]] \\ View Mark Host's Doc.
  1473. \IV0+![\SV0[]\IVO-Waiting[^G{{SysOp is back, hold on:~]]
  1474. \IV0+?[\IVO-Waiting[^G  \ZS{{`Please Wait, SysOp went to Dos...~]\DC[%S:FindMe.Exe]]  \\ Execute FindMe.Exe
  1475. \IV0+?[\SV0[]\IVO-Waiting[^G{{SysOp is back, hold on:~]]
  1476. \IV0+U[\UF*[%UN]]       \\ Toggles the Logging to the default usage log file
  1477. \IV0+R[\IVO+Waiting[ \NC[7] \ZS \GB[StandBy]\EM]
  1478. \IV0+R[\IVO+Online[\IVN+[\NC[7] \ZS \GB[StandBy]\EM]]
  1479. \IV0+R[\IVO+Online[\IV3+MODEM[\CA-[\NC[7] \ZS \GB[StandBy]\EM]]]] 
  1480. \IV0+R[\ZS\GB[Menu]\EM]
  1481. \SV0[] \GB[*TAB]
  1482.  
  1483. |ChangeUserLevel
  1484. \DM01,01[PLEASE SELECT THE  USER'S LEVEL ]
  1485. \DM01,02[═══════════════════════════════ ]\DMC[7] 
  1486. \DM01,03["[0"] - 20  min   Comments only.]
  1487. \DM01,04["  "                            ]\DMC[9]
  1488. \DM01,05["[1"] - 45  min   %V5`````````  ]
  1489. \DM01,06["  "                            ]\DMC[14]
  1490. \DM01,07["[2"] - 45  min   %V5`````````  ]
  1491. \DM01,08["  "              %VY"2"\`````` ]
  1492. \DM01,09["  "                            ]\DMC[13]
  1493. \DM01,10["[3"] - 60  min   %V5`````````  ]
  1494. \DM01,11["  "              %VY"2"\`````` ]
  1495. \DM01,12["  "              %VY"3"\`````` ]         
  1496. \DM01,13["  "                            ]\DMC[10]
  1497. \DM01,14["[4"] - 120 min   %V5`````````  ]
  1498. \DM01,15["  "              %VY"2"\`````` ]
  1499. \DM01,16["  "              %VY"3"\`````` ]          
  1500. \DM01,17["  "              %VY"4"\`````` ]
  1501. \DM01,18[                                ]\DMC[12]
  1502. \DM01,19["[5"] - 360 min  All files, DOS.]\DMC[11]
  1503. \DM01,20[═══════════════════════════════ ] 
  1504. \DM01,21["[Esc"] to Quit Host Mode       ] \SV[] \SV1[] \DMC[31]
  1505. \KV1%VL[ New level for %VF: ]
  1506. \IV1+%VL[\RS \EB]                        \\ If same level, end block
  1507. \II-%V1,0,1,2,3,4,5[\RE2[\AL2[0]~] \ZS \GB[ChangeUserLevel] | \SVL[%V1]]
  1508. \SVS[%HR] \SVT[%MI]    \\ Set variable S to the Hour, and T to the Minute
  1509. \IVL+0[ \SVK[20]]      \\ Here, you can modify and set the available
  1510. \IVL+1[ \SVK[45]]      \\ time per day, for each User's Level.
  1511. \IVL+2[ \SVK[45]]
  1512. \IVL+3[ \SVK[60]]
  1513. \IVL+4[ \SVK[120]]
  1514. \IVL+5[ \SVK[360]]
  1515. \+VK[%MI] \SVK[%VK]
  1516. \SVD[%VK] \+VD[-%VT]
  1517. \II+-,%VD[\SVD[0]]
  1518. \SV0[] \SV1[] \SVC[]
  1519. \IVL+0[\SVC[`BC```G`I``````````X``]]  \\ Here you can modify and set the
  1520. \IVL+1[\SVC[`BCDEFG`I`K`MNPR`VUXWZ]]  \\ available Commands for each User's Level
  1521. \IVL+2[\SVC[`BCDEFG`I`K`MNPR`VUXWZ]]  
  1522. \IVL+3[\SVC[`BCDEFG`I`K`MNPR`VUXWZ]]
  1523. \IVL+4[\SVC[`BCDEFG`I`K`MNPR`VUXWZ]]
  1524. \IVL+5[\SVC[ABCDEFGHIJKLMNPRSVUXWZ]]
  1525. \SV0[%V5] \LV0[] \SV0[%LV]\+V0[-1]  \\ Remove the backwards slash from  Upload the path
  1526. \IV0+15[\+V0[-5]] \IV0+14[\+V0[-4]] \IV0+13[\+V0[-3]] \IV0+12[\+V0[-2]]
  1527. \IV0+11[\+V0[-1]] \SV1[%V5] \LV1[%V0] \SVY[%V1]     \\ %VY is %V5 without the backwards slash
  1528. \II+%VL,0,1[\SVU[%V5TEMP"\] | \SVU[%V1%VL"\TEMP"\]] \\ %VU is the User's Upload Temp path for that level
  1529. \FE+%V4`HostFil.Tmp[\DC[Del %V4`HostFil.Tmp]]       \\ Delete HostFil.Tmp if it exists
  1530. \FE+%V4`HostMsg.Tmp[\DC[Del %V4`HostMsg.Tmp]]       \\ Delete HostMsg.Tmp if it exists
  1531. \SV0[] \SV1[]
  1532. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1533. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1534. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1535. \ZS \DM1,24[Level %VL Upload dir. is: %VU]
  1536. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\SVV[%MO/%DA/%YR]\IE-%AN,HOST[\AM[H]]]]]]]
  1537. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\TM%VI[%VN;%VP;%VL;%VE;%VV;%VD;]]]]]]
  1538. \UM[SysOp modified User's Level to: %VL] \EB
  1539.  
  1540. |Shell
  1541. \IV3+Modem[\CA-[\UM[Carrier Lost, Shell Block]\GB[Cycle]\EM]]
  1542. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1543. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1544. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1545. \IV3+LOCAL[\UM[Jumped to DOS at %HR:%MI:%SE] \NC[7] \JD] \\ If Local Host test, just Jump to DOS.
  1546. \IV3+LOCAL[\DC[echo "[00;37m] \NC[10] \ZS \EB]
  1547. \FE+%B:DOORS"\DOORWAY.EXE[\GB[Doorway]] \\ If Doorway.exe found, go to block Doorway
  1548. \UM[Jumped to DOS at %HR:%MI:%SE]   \ZS {`Type "EXIT" to return to the Host... \NC[7]
  1549. \SV0[%B:Host.Bat]                       \\ Create a new batch file Host.Bat
  1550. \FE+%V0[\DC[Del %V0]]                   \\ which has three lines:
  1551. \AF%V0[CTTY COM%MD]                     \\   CTTY COM1    (or COM2,COM3,COM4)
  1552. \AF%V0[COMMAND.COM]                     \\   COMMAND
  1553. \AF%V0[CTTY CON]                        \\   CTTY CON
  1554. {\DC[%B:Host.Bat]                       \\ Then execute the batch file.
  1555. \IV3+Modem[\CA-[\UM[Carrier Lost, Shell Block]\GB[Cycle]\EM]]
  1556. "[255D"[0;1;32m \NC[10]   \ZS         \\ Display bright green letters on black background
  1557. \DC[echo "[00;37m] { \EB
  1558.  
  1559. |Doorway
  1560. \IV3+Modem[\CA-[\UM[Carrier Lost, Doorway Block]\GB[Cycle]\EM]] \ND[%B:"\DOORS]
  1561. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1562. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1563. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1564.  \ZS {`Switch into your Doorway action module of your communication{
  1565. program; it is usually done by pressing "[Alt + Equals"] ...
  1566. \UM[Invoked Doorway at %HR:%MI:%SE] \BL[DoorSys]
  1567. \\DC[%B:DOORS"\DOORWAY SYS /B:MSZ /V:D^U /O:T /L: /C:DOS] \\ invoke DOORWAY
  1568. \DC[%B:DOORS"\DOORWAY SYS /V:D^U /O:T /L: /C:DOS] \\ invoke DOORWAY
  1569. \IV3+Modem[\CA-[\UM[Carrier Lost, Doorway Block]\GB[Cycle]\EM]]
  1570. \NC[10] "[255D"[0;1;32m   \ZS `Hit "[Alt + Equals"] again, to return to your previous module.{
  1571. \DC[echo "[00;37m] { \EB
  1572.  
  1573. |Shutdown
  1574. \IV3+Modem[\CA-[\UM[Carrier Lost, Shutdown Block]\GB[Cycle]\EM]]
  1575. ^G {Are you sure you want to Shut Down the host?  (Y/y) "[Y"]^H^H \RV0[1]{
  1576. \IV3+Modem[\CA-[\UM[Carrier Lost, Shutdown Block] \AB]]
  1577. \IV0+N[\EB]\UM[Performed a Remote Shutdown at %HR:%MI:%SE]  \ZS{`Hanging up now...
  1578. \IV3+MODEM[\CA+[\ST[ Hanging Up...] "[00;37m { \ZS \DT-~~~~]\RE10[\CA+[~~]] \DT+ \PL]
  1579. \IV3+Modem[\CA+[\UM[First attempt was Unsuccesfull!]{{`First attempt was Unsuccesfull, trying again:{]]
  1580. \IV3+MODEM[\CA+[\AM[A]~~\EC-\LF-\PL\RE10[\CA+[`ATZ{\PA[5]`+++~~~~ATH{\PA[5]\PL]]]]
  1581. \IV3+Modem[\CA+[^G   \ZS{{`Second attempt was Unsuccesfull, Host is Cycling.{ \GB[Cycle]\EM]]
  1582. \AB                                   \\ This  next goes to the *WRAPUP block
  1583.  
  1584. |Door
  1585. \EM
  1586. { \IV3+Modem[\CA-[\UM[Carrier Lost, Doors Block]\GB[Cycle]\EM]]
  1587. "  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█{
  1588. "  █                 Mark Host v3.3         DOORS  MENU                   █{
  1589. "  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█{
  1590. "  █                                                                      █▒{
  1591. "  █   <B> Food Fite                        <M>                           █▒░{
  1592. "  █   <C> Jackpot Slots                    <N>                           █▒░░{
  1593. "  █   <D> Quest To Be President            <O>                           █▒░░{
  1594. "  █   <E> Bbs Roulette                     <P>                           █▒░░{
  1595. "  █   <F> Bbs Golf                         <R>                           █▒░░{
  1596. "  █   <H>                                  <S>                           █▒░░{
  1597. "  █   <I>                                  <T>                           █▒░░{
  1598. "  █   <J>                                  <U>                           █▒░░{
  1599. "  █   <K>                                  <V>                           █▒░░{
  1600. "  █   <L>                                  <W>                           █▒░░{
  1601. "  █                                                                      █▒░░{
  1602. "  █   <?> Babel: Listing of computer oriented abreviations and acronyms  █▒░░{
  1603. "  █   <G>oodbye and LogOff                 <Q>uit to the Main Menu       █▒░░{
  1604. "  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▒░░{
  1605. "           ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░{{
  1606. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  1607. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  1608. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  1609. \IVD+0[\GB[LogOff]\EM]            \\ Logoff if out of time for today.
  1610. \IVD+4["            Please consider finishing the current activity.{]
  1611. \IVD+3["            Please consider finishing the current activity.{]
  1612. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  1613. \IVD+1[^G"            In a few seconds, you will be disconnected.{]
  1614. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1615. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1616. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1617. \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.
  1618. "            %VD min left.  Your selection:  "[ "]^H^H \RV0[1]{
  1619. \IV3+Modem[\CA-[\UM[Carrier Lost, Doors Block]\GB[Cycle]\EM]]
  1620. \IW-[  \BL[Disconnect] \SV0[]] \\ If no response, go to block Disconnect
  1621. \IV0+G[\BL[Disconnect] \SV0[]] \IV0+[  \ZS \GB[Door]]
  1622. \II-%V0,A,B,C,D,E,F,G,H,I,J,Q,K,L,M,N,O,P,R,S,T,U,V,W,?[  \ZS"  Sorry, Door "[%V0"] is not available.{ \SV0[]\GB[Door]]
  1623. \IV0-[\IV0-Q[  \ZS{{`Loading Door %V0 ...]]
  1624. \IV0-[\IV0-Q[\UM[Entered Door "[%V0"] at %HR:%MI]]]
  1625. \\==========================================================================
  1626. \\     Enable each Door's letter by removing one \ from the beggining.
  1627. \\==========================================================================
  1628. \\IV0+A[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1629. \IV0+B[\BL[DoorSys]  \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1630. \IV0+C[\BL[DoorSys]  \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1631. \IV0+D[\BL[DoorSys]  \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1632. \IV0+E[\BL[DoorSys]  \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1633. \IV0+F[\BL[DoorSys]  \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1634. \\IV0+H[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1635. \\IV0+I[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1636. \\IV0+J[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1637. \\IV0+K[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1638. \\IV0+L[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1639. \\IV0+M[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1640. \\IV0+N[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1641. \\IV0+O[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1642. \\IV0+P[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1643. \\IV0+R[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1644. \\IV0+S[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1645. \\IV0+T[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1646. \\IV0+U[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1647. \\IV0+V[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1648. \\IV0+W[\BL[DoorSys] \BL[DOOR%V0]\CA+[\UM[Returned from Door "[%V0"] at %HR:%MI]]]
  1649. \IV0+?[\FE-%B:"\DOORS"\BABEL93C.TXT[\UM[%B:Doors"\Babel93c.Txt was not found!]]]
  1650. \IV0+?[\FE-%B:"\DOORS"\BABEL93C.TXT[{{{Inform your SysOp that %B:Doors"\Babel93c.Txt was not found!^H\PA[7]]]
  1651. \IV0+?[\FE+%B:"\DOORS"\BABEL93C.TXT[\BL[Babel]\CA+[\UM[Returned from BABEL at %HR:%MI]]]]
  1652. \IV3+Modem[\CA-[\UM[Lost Carrier in Door %V0]\GB[Cycle]\EM]]
  1653. \IV0+Q[\UM[Returned to Main Menu at %HR:%MI]]
  1654. "[255D"[0;1;32m   \ZS \IV0+Q[\GB[Menu] | \GB[Door]]
  1655.  
  1656. |Babel  \\ Search Engine (TM) by Mark Sherman  (c) 1993, All rights reserved.
  1657.  \ZS{\SVZ[%B:"\DOORS"\BABEL93C.TXT] \SV1[] \SV8[0]
  1658. \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  1659. \IVD+0[   \UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  1660. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  1661. \IVD+0[\GB[LogOff]\EM]              \\ Logoff if out of time for today.
  1662. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1663. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1664. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1665. \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.
  1666. {"  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ {
  1667. `"  █     BABEL: Listing of computer oriented abreviations and acronyms    █▒ {
  1668. `"  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▒░{
  1669. `"       ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░{{{
  1670. \IVD+4["            Please consider finishing the current activity.{]
  1671. \IVD+3["            Please consider finishing the current activity.{]
  1672. \IVD+2["            Your time limit is about to expire.  Prepare to logoff.{]
  1673. \IVD+1[^G"            In a few seconds, you will be disconnected.{]
  1674. `"       Type a string to search, or hit "[Enter"] for the complete listing:{{{
  1675. `"                          ______________________________\RE30[^H]\RV9[30]
  1676. \IV3+Modem[\CA-[\UM[Carrier Lost, Babel block.]\GB[Cycle]\EM]]
  1677. \IW-[{\BL[Disconnect]\GB[Babel]]       \\ Block disconnect if no response
  1678. \IV9-[{{"[Q"]uit, search in "[G"]eneral, "[A"]cronym oriented  "[A"]^H^H\RV6[1]]
  1679. \IV3+Modem[\CA-[\UM[Carrier Lost, Babel block.]\GB[Cycle]\EM]]
  1680. \IW-[{\BL[Disconnect]\GB[Babel]]       \\ Block disconnect if no response
  1681. \IV6+Q[{░ Return to Doors Menu? ░   (Y/n)  "[Y"]^H^H\RV1[1]]
  1682. \IV3+Modem[\CA-[\UM[Carrier Lost, Babel block.]\GB[Cycle]\EM]]
  1683. \IW-[{\BL[Disconnect]\GB[Babel]]       \\ Block disconnect if no response
  1684. \IV6+Q[\IV1+N[\GB[Babel] | \SV1[] \SV8[] \SV9[] \SVZ[]   \ZS \RE9[{]"                           Thank you for using BABEL!\PA[1]\EB]]
  1685. \IV9+[\UM[Listed Babel.]  \ZS{ | \UM[Babel: performed a search on "" %V9 ""]{Searching: " ]
  1686. \IV9+[\RE[\IV3+Modem[\CA-[\GB[Cycle]]]\GV7[%VZ]\II+^Z,%V7[\EM]%V7{ \+V8[1] \IV8+21[\SV8[0]{░ "[Q"]uit " \RV1[1]\IV1+Q[\EM] \ZS{]]]
  1687. \IV9-[\IV6+G[\RE["|^H\IV3+Modem[\CA-[\GB[Cycle]]]\GV7[%VZ]─^H\II+^Z,%V7[\EM]\ST[%V7]\II+%V9,%V7[{{%V7{{░ "[S"]top? " \RV1[1]\IV1+S[\EM]]"\^H]]]
  1688. \IV9-[\IV6-G[\RE["|^H\IV3+Modem[\CA-[\GB[Cycle]]]\GV7[%VZ]─^H\II+^Z,%V7[\EM]\ST[%V7]\II+%V9,%V7[\SV6[%V7]\LV6[10]\II+%V9,%V6[{{%V7{{\EM]]"\^H]]]
  1689. \GV7[] \SVT[%MI] \IE-%VS,%HR[\+VT[60]] \SVD[%VK] \+VD[-%VT] \II+-,%VD[\SVD[0]]
  1690. \IVD+0[\UM[User: %VN, Out of time, %MO/%DA/%YR-%HR:%MI]]
  1691. \IVD+0[  \ZS {`%VF, you're out of time for today.~{]
  1692. \IVD+0[\GB[LogOff]\EM]            \\ Logoff if out of time for today.
  1693. \IVD+4["            {Please consider finishing the current activity.{]
  1694. \IVD+3["            {Please consider finishing the current activity.{]
  1695. \IVD+2["            {Your time limit is about to expire.  Prepare to logoff.{]
  1696. \IVD+1[^G"            {In a few seconds, you will be disconnected.{]
  1697. \IV3+LOCAL[\ST[ Local  Lev. %VL  "[Tab"] for Sys. Menu]]
  1698. \IVG-[     \ST[%VG baud Lev. %VL "[Tab"] for Sys. Menu]] \SN[ %VF %VD min.]
  1699. \FE-%S:Dialer.BSC[\EM]\IE-%QS,0[\IVQ-[\ST[  Mail Run at %VQ - Time: %HR:%MI:%SE]]]
  1700. \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.
  1701. \IV9-[\II+^Z,%V7[{{░ End of search ░  Return to Doors Menu?  (Y/n)  "[Y"]^H^H\RV1[1]]]
  1702. \IV9+[\II+^Z,%V7[{░ End of List ░  Return to Doors Menu?  (Y/n)  "[Y"]^H^H\RV1[1]]]
  1703. \II-^Z,%V7[░ Return to Doors Menu? ░   (Y/n)  "[Y"]^H^H\RV1[1]]
  1704. \IV3+Modem[\CA-[\UM[Carrier Lost, Babel block.]\GB[Cycle]\EM]]
  1705. \IW-[{\BL[Disconnect]\GB[Babel]]       \\ Block disconnect if no response
  1706. \IV1+N[\GB[Babel]]   \ZS \RE9[{]"                           Thank you for using BABEL!
  1707. \SV1[] \SV8[] \SV9[] \SVZ[] \PA[1] \EB
  1708.  
  1709. |DoorSys  \\ "On the fly" (TM) that creates the original 31 line Gap Door.Sys
  1710. \ND[%B:"\DOORS] \II+ ,%VE[\SVX[%VE] \LVX[%IM] \SVX[%VX] | \SVX[%VX]] \\ Extract User's Phone from the Extended Information
  1711. \FE+%B:DOORS"\Door.Sys[\DC[DEL %B:DOORS"\Door.Sys]]
  1712. \IV3+LOCAL[\AF%B:DOORS"\Door.Sys[COM0:] | \AF%B:DOORS"\Door.Sys[COM%MD:] ] \\ Comm Port - COM0: = LOCAL MODE
  1713. \IV3+LOCAL[\AF%B:DOORS"\Door.Sys[0] | \AF%B:DOORS"\Door.Sys[%VG] ] \\ Baud Rate - 300 to 38400 - LOCAL MODE = 0
  1714. \AF%B:DOORS"\Door.Sys[8]        \\ Parity - 7 or 8
  1715. \AF%B:DOORS"\Door.Sys[1]        \\ Node number (Defaults to 1)
  1716. \IV3+LOCAL[\AF%B:DOORS"\Door.Sys[0] | \AF%B:DOORS"\Door.Sys[%MS] ] \\ DTE Rate. Actual BPS rate to use. LOCAL MODE = 0
  1717. \AF%B:DOORS"\Door.Sys[Y]        \\ Screen Display - Y=On  N=Off (Default to Y)
  1718. \AF%B:DOORS"\Door.Sys[N]        \\ Printer Toggle - Y=On  N=Off (Default to N)
  1719. \AF%B:DOORS"\Door.Sys[Y]        \\ Page Bell      - Y=On  N=Off (Default to Y)
  1720. \AF%B:DOORS"\Door.Sys[Y]        \\ Caller Alarm   - Y=On  N=Off (Default to Y)
  1721. \AF%B:DOORS"\Door.Sys[%VN]      \\ User Full Name
  1722. \AF%B:DOORS"\Door.Sys[New York] \\ Calling From
  1723. \AF%B:DOORS"\Door.Sys[%VX]      \\ Home Phone
  1724. \AF%B:DOORS"\Door.Sys[%VX]\SVX[]\\ Work/Data Phone
  1725. \AF%B:DOORS"\Door.Sys[%VP]      \\ User's Password
  1726. \AF%B:DOORS"\Door.Sys[%VL]      \\ Security Level
  1727. \AF%B:DOORS"\Door.Sys[10]       \\ Total Times On
  1728. \AF%B:DOORS"\Door.Sys[%MO/%DA/%YR] \\ Last Date Called
  1729. \AF%B:DOORS"\Door.Sys[00]       \\ Seconds Remaining (Not Important)
  1730. \AF%B:DOORS"\Door.Sys[%VD]      \\ Minutes Remaining THIS call
  1731. \AF%B:DOORS"\Door.Sys[GR]       \\ Graphics Mode GR=Graph NG=Non-Graph 7E=7,E Caller
  1732. \AF%B:DOORS"\Door.Sys[23]       \\ Page Length
  1733. \AF%B:DOORS"\Door.Sys[N]        \\ User's Help Mode - Y = Expert, N = Novice
  1734. \AF%B:DOORS"\Door.Sys[ABCDEFG]  \\ Conferences/Forums Registered In  (ABCDEFG)
  1735. \AF%B:DOORS"\Door.Sys[G]        \\ Conference Exited To DOOR From (G)
  1736. \AF%B:DOORS"\Door.Sys[01/01/99] \\ User Expiration Date
  1737. \AF%B:DOORS"\Door.Sys[1]        \\ User File's Record Number
  1738. \AF%B:DOORS"\Door.Sys[N]        \\ Default Protocol - Z, H, X, C, Y, G, I, N, Etc.
  1739. \AF%B:DOORS"\Door.Sys[2]        \\ Total Uploads
  1740. \AF%B:DOORS"\Door.Sys[15]       \\ Total Downloads
  1741. \AF%B:DOORS"\Door.Sys[1000]     \\ Daily Download "K" Total
  1742. \AF%B:DOORS"\Door.Sys[99999]    \\ Daily Download Max. "K" Limit
  1743. \EB
  1744.  
  1745. |DOORa    \\ ShamPage (Automatic Chat with the User)
  1746. \\==========================================================================
  1747. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1748. \\==========================================================================
  1749. \IV3+Modem[\CA-[\UM[Carrier Lost, ShamPage (Door A)]\GB[Cycle]\EM]] \SV0[] \AL2[0]
  1750. \ND[%B:DOORS"\DOORa]\DC[CD %B:DOORS"\DOORa]
  1751. \FE+%B:DOORS"\DOORa"\SHAMPAGE.CFG[\DC[DEL %B:DOORS"\DOORa"\SHAMPAGE.CFG]]\AL2[0]
  1752.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[Mark Host]
  1753.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[SysOp]
  1754.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[]
  1755.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[%B:DOORS"\Door.Sys]
  1756.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[Split]   \\ Split-screen chat mode (or Full)
  1757.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[%B:DOORS"\DOORa"\SHAMpage.Dat] \\ Name of the Key Word Data File.
  1758.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[%UN]     \\ Name of the Log File to write.
  1759.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[1]       \\ Delay factor, increase this number to slow down the typing speed, decrease it to speed up the typing.
  1760.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[3]       \\ 0 = NO handshake 1 = XON/XOFF 2 = CTS/RTS 3 = XON/XOFF and CTS/RTS
  1761.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[00:00]   \\ Time to turn Page Bell OFF
  1762.  \AF%B:DOORS"\DOORa"\SHAMPAGE.CFG[%HR:%MI] \\ Time to turn Page Bell ON
  1763. \IV3+Modem[\CA-[\UM[Carrier Lost, ShamPage (Door A)]\GB[Cycle]\EM]] \AL2[0]
  1764. {\DC[%B:DOORS"\DOORa"\SHAMpage %B:DOORS"\DOORa"\SHAMpage.Cfg Time=80]
  1765. \IV3+Modem[\CA-[\UM[Carrier Lost, ShamPage Block]\GB[Cycle]\EM]]
  1766. "[255D"[0;1;32m   \ZS \EB
  1767.  
  1768. |DOORb     \\ Food Fite
  1769. \\==========================================================================
  1770. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1771. \\==========================================================================
  1772. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1773. \FE+%B:DOORS"\DOOR%V0"\Foodfite.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Foodfite.Cfg]]
  1774.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[%B:DOORS"\DOOR.SYS]
  1775.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[Mark Host] \\ The name of your Bbs
  1776.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[SysOp]        \\ SysOp's name
  1777.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[0000000000]   \\ SysOp's last name
  1778.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[ANSI]         \\ Other required info (see docs of each door)
  1779.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[%B:DOORS"\DOOR%V0"\bull99.scr]
  1780.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[%B:DOORS"\DOOR%V0"\bull99.bbs]
  1781.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[5000]
  1782.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[-5000]
  1783.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[30 more minutes, per day for 1 week.]
  1784.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[5 free Downloads.]
  1785.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[1 wish of yours will come true!]
  1786.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[Be the SysOp, Remotely for 1 week.]
  1787.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[Get to name 1 Door to get rid of.]
  1788.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[20]
  1789.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[YES]
  1790.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[NONE]
  1791.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[5]
  1792.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[YES]
  1793.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[-2]
  1794.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[YES]
  1795.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[5]
  1796.  \AF%B:DOORS"\DOOR%V0"\Foodfite.Cfg[YES]
  1797.    \ZS
  1798. \DC[%B:DOORS"\DOOR%V0"\Foodfite.exe Foodfite.Cfg] \\ The name of the file that starts the Door
  1799. "[255D"[0;1;32m   \ZS \EB
  1800.  
  1801. |DOORc      \\ Jackpot Slots
  1802. \\==========================================================================
  1803. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1804. \\==========================================================================
  1805. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1806. \FE+%B:DOORS"\DOOR%V0"\Game.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Game.Cfg]]
  1807.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[Jackpot Slots]      \\ The name of your Bbs
  1808.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[%B:DOORS"\DOOR.SYS] \\ SysOp's name
  1809.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[Mark Host]          \\ Bbs Name
  1810.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[SysOp]              \\ SysOp's name
  1811.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[000000000000]       \\ Other required info
  1812.  \AF%B:DOORS"\DOOR%V0"\Game.Cfg[1]                  \\ (see docs of each door)
  1813.  \ZS
  1814. \DC[%B:DOORS"\DOOR%V0"\SLOTS14 Game.Cfg] \\ The name of the file that starts the Door
  1815. "[255D"[0;1;32m   \ZS \EB
  1816.  
  1817. |DOORd     \\ 2151 Quest to be President
  1818. \\==========================================================================
  1819. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1820. \\==========================================================================
  1821. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1822. \\FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1823. \\AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1824. \\AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1825. \\AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1826. \\AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1827.  \ZS
  1828. \DC[%B:DOORS"\DOOR%V0"\2151 NODE_1.CFG]       \\ The name of the file that starts the Door
  1829. "[255D"[0;1;32m   \ZS \EB
  1830.  
  1831. |DOORe     \\ Bbs Roulette
  1832. \\==========================================================================
  1833. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1834. \\==========================================================================
  1835. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1836. \\FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1837. \\AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1838. \\AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1839. \\AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1840. \\AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1841.  \ZS
  1842. \DC[%B:DOORS"\DOOR%V0"\ROULETTE ROULETTE.CFG %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1843. "[255D"[0;1;32m   \ZS \EB
  1844.  
  1845. |DOORf      \\ BBs Golf
  1846. \\==========================================================================
  1847. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1848. \\==========================================================================
  1849. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1850. \FE+%B:DOORS"\DOOR%V0"\TPGOLF.CFG[\DC[DEL %B:DOORS"\DOOR%V0"\TPGOLF.CFG]]
  1851.  \AF%B:DOORS"\DOOR%V0"\TPGOLF.CFG[%B:DOORS"\DOOR.SYS]
  1852.  \AF%B:DOORS"\DOOR%V0"\TPGOLF.CFG[Mark Host]    \\ The name of your Bbs
  1853.  \AF%B:DOORS"\DOOR%V0"\TPGOLF.CFG[SysOp]        \\ SysOp's name
  1854.  \AF%B:DOORS"\DOOR%V0"\TPGOLF.CFG[.]            \\ SysOp's last name
  1855.  \AF%B:DOORS"\DOOR%V0"\TPGOLF.CFG[00000]
  1856.  \AF%B:DOORS"\DOOR%V0"\TPGOLF.CFG[1]
  1857.  \AF%B:DOORS"\DOOR%V0"\TPGOLF.CFG[%B:DOORS"\DOOR%V0"\COLOR.BUL] \\ Other required info (see docs of each door)
  1858.  \ZS
  1859. \DC[%B:DOORS"\DOOR%V0"\TPGOLF11 TPGOLF.CFG]     \\ The name of the file that starts the Door
  1860. "[255D"[0;1;32m   \ZS \EB
  1861.  
  1862. |DOORh
  1863. \\==========================================================================
  1864. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1865. \\==========================================================================
  1866. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1867. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1868.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1869.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1870.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1871.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1872.  \ZS
  1873. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1874. "[255D"[0;1;32m   \ZS \EB
  1875.  
  1876. |DOORi
  1877. \\==========================================================================
  1878. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1879. \\==========================================================================
  1880. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1881. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1882.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1883.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1884.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1885.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1886.  \ZS
  1887. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1888. "[255D"[0;1;32m   \ZS \EB
  1889.  
  1890. |DOORj
  1891. \\==========================================================================
  1892. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1893. \\==========================================================================
  1894. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1895. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1896.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1897.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1898.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1899.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1900.  \ZS
  1901. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1902. "[255D"[0;1;32m   \ZS \EB
  1903.  
  1904. |DOORk
  1905. \\==========================================================================
  1906. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1907. \\==========================================================================
  1908. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1909. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1910.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1911.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1912.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1913.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1914.  \ZS
  1915. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1916. "[255D"[0;1;32m   \ZS \EB
  1917.  
  1918. |DOORl
  1919. \\==========================================================================
  1920. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1921. \\==========================================================================
  1922. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1923. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1924.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1925.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1926.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1927.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1928.  \ZS
  1929. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1930. "[255D"[0;1;32m   \ZS \EB
  1931.  
  1932. |DOORm
  1933. \\==========================================================================
  1934. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1935. \\==========================================================================
  1936. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1937. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1938.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1939.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1940.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1941.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1942.  \ZS
  1943. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1944. "[255D"[0;1;32m   \ZS \EB
  1945.  
  1946. |DOORn
  1947. \\==========================================================================
  1948. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1949. \\==========================================================================
  1950. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1951. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1952.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1953.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1954.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1955.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1956.  \ZS
  1957. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1958. "[255D"[0;1;32m   \ZS \EB
  1959.  
  1960. |DOORo
  1961. \\==========================================================================
  1962. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1963. \\==========================================================================
  1964. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1965. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1966.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1967.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1968.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1969.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1970.  \ZS
  1971. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1972. "[255D"[0;1;32m   \ZS \EB
  1973.  
  1974. |DOORp
  1975. \\==========================================================================
  1976. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1977. \\==========================================================================
  1978. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1979. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1980.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1981.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1982.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1983.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1984.  \ZS
  1985. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  1986. "[255D"[0;1;32m   \ZS \EB
  1987.  
  1988. |DOORr
  1989. \\==========================================================================
  1990. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  1991. \\==========================================================================
  1992. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  1993. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  1994.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  1995.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  1996.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  1997.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  1998.  \ZS
  1999. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  2000. "[255D"[0;1;32m   \ZS \EB
  2001.  
  2002. |DOORs
  2003. \\==========================================================================
  2004. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  2005. \\==========================================================================
  2006. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  2007. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  2008.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  2009.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  2010.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  2011.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  2012.  \ZS
  2013. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  2014. "[255D"[0;1;32m   \ZS \EB
  2015.  
  2016. |DOORt
  2017. \\==========================================================================
  2018. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  2019. \\==========================================================================
  2020. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  2021. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  2022.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  2023.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  2024.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  2025.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  2026.  \ZS
  2027. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  2028. "[255D"[0;1;32m   \ZS \EB
  2029.  
  2030. |DOORu
  2031. \\==========================================================================
  2032. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  2033. \\==========================================================================
  2034. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  2035. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  2036.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  2037.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  2038.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  2039.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  2040.  \ZS
  2041. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  2042. "[255D"[0;1;32m   \ZS \EB
  2043.  
  2044. |DOORv
  2045. \\==========================================================================
  2046. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  2047. \\==========================================================================
  2048. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  2049. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  2050.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  2051.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  2052.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  2053.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  2054.  \ZS
  2055. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  2056. "[255D"[0;1;32m   \ZS \EB
  2057.  
  2058. |DOORw
  2059. \\==========================================================================
  2060. \\  SysOps need to read each Door's Doc and see what needs to be inserted!
  2061. \\==========================================================================
  2062. \ND[%B:DOORS"\DOOR%V0] \DC[CD %B:DOORS"\DOOR%V0]
  2063. \FE+%B:DOORS"\DOOR%V0"\Name.Cfg[\DC[DEL %B:DOORS"\DOOR%V0"\Name.Cfg]]
  2064.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[Mark Host]    \\ The name of your Bbs
  2065.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[SysOp]        \\ SysOp's name
  2066.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ SysOp's last name
  2067.  \AF%B:DOORS"\DOOR%V0"\Name.Cfg[]             \\ Other required info (see docs of each door)
  2068.  \ZS
  2069. \DC[%B:DOORS"\DOOR%V0"\Name.exe Name.Cfg %B:DOORS"\DOOR.SYS] \\ The name of the file that starts the Door
  2070. "[255D"[0;1;32m   \ZS \EB
  2071.  
  2072. |Disconnect
  2073. \IV3+Modem[\CA-[\UM[Carrier Lost, Disconnect Block]\GB[Cycle]\EM]]
  2074. ^G {`Are you sure you want to be disconnected (Y/n)?  "[Y"]^H^H \RV0[1]{
  2075. \IV3+Modem[\CA-[\UM[Carrier Lost, Disconnect Block]\GB[Cycle]\EM]]
  2076. \IV0-[\IV0-Y[\SV0[]\EB]]   \ZS \IVM+%UN[\BL[SaveComment]{]
  2077. "   %VF, you have %VD minutes left for today,{{{
  2078. "           ████████╗ ██╗  ██╗  █████╗  ███╗   ██╗ ██╗  ██╗ ███████╗{
  2079. "           ╚══██╔══╝ ██║  ██║ ██╔══██╗ ████╗  ██║ ██║ ██╔╝ ██╔════╝{
  2080. "              ██║    ███████║ ███████║ ██╔██╗ ██║ █████╔╝  ███████╗{
  2081. "              ██║    ██╔══██║ ██╔══██║ ██║╚██╗██║ ██╔═██╗  ╚════██║{
  2082. "              ██║    ██║  ██║ ██║  ██║ ██║ ╚████║ ██║  ██╗ ███████║{
  2083. "              ╚═╝    ╚═╝  ╚═╝ ╚═╝  ╚═╝ ╚═╝  ╚═══╝ ╚═╝  ╚═╝ ╚══════╝{{
  2084. "                                 ╥──┐ ╓──┐ ╥──┐{
  2085. "                                 ╟─   ║  │ ╟─┬┘{
  2086. "                                 ╨    ╙──┘ ╨ ┴ {{
  2087. "                       ╓──┐ ╓──┐ ╥    ╥    ─╥─ ╓──┐ ╓──┐{
  2088. "                       ║    ╟──┤ ║    ║     ║  ║  │ ║ ─┐{
  2089. "                       ╙──┘ ╨  ┴ ╨──┘ ╨──┘ ─╨─ ╨  ┴ ╙──┘{
  2090. {{Disconnecting...~~
  2091. \IV3+Local[\PA[2]] \GB[Cycle]\EM
  2092.  
  2093. |LogOff
  2094. \EM
  2095. \UM[User Logged Off by Mark Host on %MO/%DA/%YR at %HR:%MI.] 
  2096. \IVM+%UN[\BL[SaveComment]] {Disconnecting...~~
  2097. \IV3+Local[\PA[2]] \GB[Cycle]\EM
  2098.  
  2099. |Notagree
  2100. \EM
  2101. \SV1[] \UM[Caller %VN %VG baud, Ph: %VB - Didn't agree with New.Msg!]
  2102.  \ZS ^G {Okay... No problem, there's a lot of other{ 
  2103. Bbs's to call.  Have a Nice Day.~~{{Disconnecting...~~
  2104. \IV3+Local[\PA[2]] \GB[Cycle]\EM
  2105.  
  2106. |ForceOff
  2107. \IVO+WAITING[\NC[7] \ZS \GB[StandBy]] 
  2108. \UM[Forced off by the Sysop on %MO/%DA/%YR at %HR:%MI.]
  2109. \\ If we were in the Tab Block, or chatting, give the Time back to User:
  2110. \IVX+RestoreTime[\SV8[%MI] \IVS-%HR[\SVS[%HR]] \+V8[-%VT] \+VK[%V8]]
  2111. \IVX+RestoreTime[\IV8-0["{   Compensating, by adding to your time %V8 min.{\SV8[]\SVX[]]]
  2112.  \ZS \IVM+%UN[\BL[SaveComment]]
  2113. ^G `{{SysOp needs the System at the moment.~~~{
  2114. {Thanks for your understanding...~~~{{Disconnecting...~~
  2115. \NC[7] \GB[Cycle]\EM
  2116.  
  2117. |Cycle     \\ This Block runs between all calls.  It clears variables,
  2118. \EM        \\ deletes temp files, resets the Modem, etc.
  2119. \TO[180] \KO[120] \IVM+%UN[\BL[SaveComment]] \LD- \BB- \ND[%B:] \IE-%AN,HOST[\AM[H]]
  2120. \IV3+MODEM[\CA+[\ST[ Hanging Up...] "[00;37m { \ZS \DT-~~~~]\RE10[\CA+[~~]] \DT+ \PL]
  2121. \IV3+MODEM[\CA+[\AM[A]~~\EC-\LF-\PL\RE10[\CA+[`ATZ{\PA[5]`+++~~~~ATH{\PA[5]\PL]]]]
  2122. \IV3+MODEM[\CA+[\RE10[\CA+[\UM[Trying to HangUp, Cycle Bl.]\PA[30]\GB[Cycle]\EM |\EM]]|\EM]]
  2123. \NC[7] \ZS \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\SVT[%MI]\IE-%VS,%HR[\+VT[60]]]]]]]
  2124. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\SVD[%VK]\+VD[-%VT]\II+-,%VD[\SVD[0]]]]]]]
  2125. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\SVV[%MO/%DA/%YR] \IVD+[\SVD[0]]\IE-%AN,HOST[\AM[H]]]]]]]
  2126. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\TM%VI[%VN;%VP;%VL;%VE;%VV;%VD;]]]]]]
  2127. \IV3+MODEM[\IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\DC[COPY %B:HOST.CNF %B:*.BAK]]]]]]]
  2128. \IV3+Modem[\DMC[02] \LVF[10] \IVG-[\LVG[4]]]
  2129. \SV1[]\SV6[]\SV7[]\SV8[]\SV9[]\SVA[]\SVB[]\SVC[]\SVD[] \\ Clear variables
  2130. \SVE[]\SVI[]\SVJ[]\SVK[]\SVL[]\SVM[]\SVN[]\SVP[]\SVPW[]
  2131. \SVR[]\SVS[]\SVT[]\SVU[]\SVW[]\SVV[]\SVX[]\SVY[]\SVZ[]
  2132. ````\IV3+Modem[\SV0[12]\DM50,%V0[ ╔═══════════════════════════╗ ] \+V0[1]]
  2133. ````````````\IV3+Modem[\DM50,%V0[ ║  The Phone was Hung Up    ║ ] \+V0[1]]
  2134. ````````````\IV3+Modem[\DM50,%V0[ ║  on %MO/%DA/%YR at %HR:%MI:%SE. ║ ] \+V0[1]]
  2135. ``````\IV3+Modem[\IVG-[\DM50,%V0[ ║                           ║ ] \+V0[1]]
  2136. ``````\IV3+Modem[\IVG-[\DM50,%V0[ ║  %VF```````    %VG` baud. ║ ] \+V0[1]]]
  2137. ````````````\IV3+Modem[\DM50,%V0[ ╚═══════════════════════════╝ ]] \DMC[31]
  2138. \IV3+MODEM[\CA+[\UM[Couldn't HangUp in the Cycle Block.  Host Aborted!]\AB]]
  2139. \IE-%AN,HOST[\AM[H]]\IVO-Waiting[\IV3+MODEM[\ST[ Hang Up Succesful!]\PL~]]
  2140. \GB[StandBy]
  2141.  
  2142. |*WRAPUP
  2143. \EM
  2144. \LD- \BB- \IVM+%UN[\BL[SaveComment]] \NC[7] \ZS
  2145. \IVX+RestoreTime[\SV8[%MI] \IVS-%HR[\SVS[%HR]] \+V8[-%VT]  \+VK[%V8]]
  2146. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[\SVV[%MO/%DA/%YR] \IVD+[\SVD[0]]\IE-%AN,HOST[\AM[H]]]]]]]
  2147. \IVI-[\IVN-[\IVP-[\IVL-[\IVE-[ \TM%VI[%VN;%VP;%VL;%VE;%VV;%VD;] ]]]]]
  2148. \FE+%V4`HostFil.Tmp[\DC[Del %V4`HostFil.Tmp]]   \\ Delete HostFil.Tmp if it exists
  2149. \FE+%V4`HostMsg.Tmp[\DC[Del %V4`HostMsg.Tmp]]   \\ Delete HostMsg.Tmp if it exists
  2150. \FE+%V4`Comment.Tmp[\DC[Del %V4`Comment.Tmp]]   \\ Delete Comment.Tmp if it exists
  2151. \FE+%Dr:\Boymark.Lst[\DC[Del %Dr:\Boymark.Lst]] \\ Delete Boymark.Lst if it exists
  2152. \CA+[  ^G \SVO[] \AM[G]  | \AM[A] \EC- \LF- ]   \\ DC[echo "[00;37m]
  2153. \CA+[{Host program aborted by accident, but you are still online and connected.{]
  2154. \CA+[{Type something to announce that you're still here, or hang up.{{ \DMC[79]]
  2155. \CA+[\DM13,16[   CARRIER!  "[Alt+I"] Restarts Host, "[Alt+H"] to Hung Up.  ]
  2156. \SV0[] \SV1[] \SV6[] \SV7[] \SV8[] \SV9[] \SVA[] \SVB[] \SVC[] \\ Clear variables
  2157. \SVD[] \SVE[] \SVF[] \SVG[] \SVI[] \SVJ[] \SVK[] \SVL[] \SVM[] \SVN[] \SVP[] 
  2158. \SVPW[] \SVR[] \SVS[] \SVT[] \SVU[] \SVV[] \SVW[] \SVX[] \SVY[] \SVZ[] \ST[] 
  2159. \SN[]  \TO[180] \KO[120] \SP[40] \SL[0]
  2160. \CA-[\DMC[11] \ZS \MA[3] | \RE3[~\AL2[0]]]
  2161. \CA-[\DM13,10[ ╔═════════════════════════════════════════════════════╗ ]]
  2162. \CA-[\DM13,11[ ║      Thank you for trying out Mark Host v3.3      ║ ]]
  2163. \CA-[\DM13,12[ ║  by: Mark Sherman, P.O. Box 4162,  L.I.C. NY 11104  ║ ]]
  2164. \CA-[\DM13,13[ ╚═════════════════════════════════════════════════════╝ ]\UM[]]
  2165. \CA-[\UM[  ▒▒▒▒▒▒▒▒▒▒▒▒▒     Mark Host finished:  %MO/%DA/%YR at %HR:%MI     ▒▒▒▒▒▒▒▒▒▒▒▒▒]]
  2166. \DMC[31] \UF+ \FE-%S:Dialer.BSC[\EM] \CA+[\EM] \IVQ-[\IVH-[\IE-%QS,0[~~\SC[Dialer]]]]
  2167. \AB
  2168.  
  2169. |AreaCodes
  2170. \ST[ Checking the Area Codes Config.] \SV0[%F:AREACODE] \SV7[]
  2171. \SV1[Mark Host Validator's list of acceptable Area Codes:]
  2172. \FE+%V0[\RE[\GV7[%V0]\IE+%V1,%V7[\GV7[]\SV0[]\SV1[]\EB]\II+^Z,%V7[\GV7[]\EM]]]
  2173. \FE+%V0[\DC[DEL %V0]] \ZS \DMC[31]
  2174. \DM4,04[ ╔═════════════════════════════════════╗ ]
  2175. \DM4,05[ ║                                     ║ ]
  2176. \DM4,06[ ║  Please enter Mark Host Callback    ║ ]
  2177. \DM4,07[ ║  Validator's acceptable Area Codes. ║ ]
  2178. \DM4,08[ ║                                     ║ ]
  2179. \DM4,09[ ║  Do NOT include your own local one. ║ ]
  2180. \DM4,10[ ║                                     ║ ]
  2181. \DM4,11[ ║  Unless selected now, no call back  ║ ]
  2182. \DM4,12[ ║  will be granted to a New User.     ║ ]
  2183. \DM4,13[ ║                                     ║ ]
  2184. \DM4,14[ ╚═════════════════════════════════════╝ ]
  2185. \AF%V0[%V1] \SV0[] \SV1[] \SV7[] \DMC[156] \BB+ \GB[Numbers]
  2186.  
  2187. |Numbers
  2188. \KV0[ Enter the Area code, or "[Q"]uit: ]
  2189. \IV0-Q[\RE[\IV3+Modem[\IVO+Online[\CA-[\GB[Cycle]\EM]]]\KV1 [  Okay to call back %V0  (Y/n)  ]\II+%V1,Y,N[\EM]]]
  2190. \IV0-Q[\IV1+Y[\SV7[%V7  %V0,]]]
  2191. \IV0-Q[\DM6,13[%V7]]
  2192. \IV0-Q[\IV1+Y[\AF%F:AREACODE[%V0]]]
  2193. \IV0+Q[\BB- \SV0[] \SV7[] \DMC[31] \ZS \EB | \GB[Numbers]]
  2194.  
  2195. |Dialer
  2196. \EM
  2197. \IVO+Waiting[\ZS] \BB-
  2198. \FE-%S:Dialer.BSC[\SVQ[] \SVH[] \CA-[\SC[Mark;Cycle] | \GB[Menu]] \DMC[95]
  2199. \DM41,02[ ╔════════════════════════════════════╗ ]
  2200. \DM41,03[ ║       Running Mark Sherman's       ║ ]
  2201. \DM41,04[ ║                                    ║ ]
  2202. \DM41,05[ ║          DIALER  Script!...        ║ ]
  2203. \DM41,06[ ╚════════════════════════════════════╝ ]
  2204. \IVO+Online[\IVM+%UN[{\BL[SaveComment]{]]
  2205. \IVO+Online[{{`Sorry, we have to disconnect, so{that we can run the System Event.~~~{{]
  2206. \IVO+Online[Thank you for your Understanding!{{~~~`Disconnecting...~~~{]
  2207. \IVO+Online[\UM[Forced off because of Dialer Mail Run, on %MO/%DA/%YR at %HR:%MI.]]
  2208. \DMC[31] \NC[7] \DT-~~~~ \RE10[\CA+[~~]] \DT+ \AM[A]~~ \EC- \LF- \PL    \\ Hang up the Modem
  2209. \RE10[\CA+[`ATZ{ \PA[5] +++~~~~ATH{ \PA[5] \PL]]        \\ Hang up the Modem
  2210. \CA+[\UM[Dificulties trying to Hang Up, Dialer Block!] \GB[Cycle]\EM] \PL
  2211. \UM[Host Mode gave control to Dialer script on %MO/%DA/%YR at %HR:%MI]
  2212. \SV0[] \SV1[] \SV6[] \SV7[] \SV8[] \SV9[] \SVA[] \SVB[] \SVC[] \\ Clear variables
  2213. \SVD[] \SVE[] \SVF[] \SVG[] \SVI[] \SVJ[] \SVK[] \SVL[] \SVM[] \SVN[] \SVP[] 
  2214. \SVPW[] \SVR[] \SVS[] \SVT[] \SVU[] \SVW[] \SVX[] \SVY[] \SVZ[] \ST[] \SN[]  
  2215. \TO[180] \KO[120] \SP[40] \SL[0] \PL \PA[3] \PL \ZS
  2216. \FE+%S:Dialer.BSC[\SC[Dialer]]  \\ Go execute the Dialer script,
  2217. \PA[4] \SC[Mark;Cycle]          \\ ...and come back to Daddy
  2218.  
  2219. |1      \\ This is a Variable block, used for debug purposes.  If you need
  2220. \KS\ZS  \\ info on variables, place a \BL[1] command, anywhere in the script.
  2221. \DM01,01[00) V0: %V0 ]\DM01,02[01) V1: %V1 ]\DM01,03[02) V2: %V2 ]\DM01,04[03) V3: %V3 ]
  2222. \DM01,05[04) V4: %V4 ]\DM01,06[05) V5: %V5 ]\DM01,07[06) V6: %V6 ]\DM01,08[07) V7: %V7 ]
  2223. \DM01,09[08) V8: %V8 ]\DM01,10[09) V9: %V9 ]\DM01,12[10) VA: %VA ]\DM01,13[11) VB: %VB ]
  2224. \DM01,14[12) VC: %VC ]\DM01,15[13) VD: %VD ]\DM01,16[14) VE: %VE ]\DM01,17[15) VF: %VF ]
  2225. \DM01,18[16) VG: %VG ]\DM01,19[17) VH: %VH ]\DM01,20[18) VI: %VI ]\DM01,21[19) VJ: %VJ ]
  2226. \DM01,22[20) VQ: %VQ ]\DM01,23[21) VK: %VK ]\DM40,01[22) VL: %VL ]\DM40,02[23) VM: %VM ]
  2227. \DM40,03[24) VN: %VN ]\DM40,04[25) VO: %VO ]\DM40,05[26) VP: %VP ]\DM40,06[27) VPW: %VPW ]
  2228. \DM40,07[28) VR: %VR ]\DM40,08[29) VS: %VS ]\DM40,09[30) VT: %VT ]\DM40,10[31) VU: %VU ]
  2229. \DM40,11[32) VV: %VV ]\DM40,12[33) VW: %VW ]\DM40,13[34) VX: %VX ]\DM40,14[35) VY: %VY ]
  2230. \DM40,15[36) VZ: %VZ ]\DM40,16[37)"%IK: %IK ]\DM40,17[38) BB: %BB ]\DM40,18[39) "%B: %B: ]
  2231. \DM1,24[                      Press "[Enter"] to resume the last block.                   ]
  2232. \PA[255] \ST[] \RS \EB
  2233.  
  2234. /*
  2235. The code in C for Hello.exe file, by Mark Sherman.
  2236. */
  2237. #include <conio.h>
  2238. int saved_x=0,saved_y=0;
  2239. int _highvideo=0,_blinking=0;
  2240. void _textcolor(int color)
  2241. {
  2242.         if (_blinking) textcolor(color+BLINK);
  2243.         if (_highvideo) textcolor(color+8);
  2244.         if (_blinking && _highvideo) textcolor(color+7+BLINK);
  2245.         if (!_blinking && !_highvideo) textcolor(color);
  2246. }
  2247. main()
  2248. {
  2249.         textbackground(BLACK);
  2250.         clrscr();
  2251.         gotoxy(wherex()+3,wherey());
  2252.         _blinking=0;
  2253.         _highvideo=0;
  2254.         textattr(7);
  2255. _highvideo=1;
  2256.         highvideo();
  2257. _textcolor(RED);
  2258.         cputs(".");
  2259.         gotoxy(wherex()+6,wherey());
  2260.         _blinking=0;
  2261.         _highvideo=0;
  2262.         textattr(7);
  2263.         cputs(".");
  2264.         gotoxy(wherex()+9,wherey());
  2265.         _highvideo=1;
  2266.         highvideo();
  2267. _textcolor(BROWN);
  2268.         cputs(".");
  2269.         gotoxy(wherex()+5,wherey());
  2270.         cputs("·");
  2271.         gotoxy(wherex()+13,wherey());
  2272.         _blinking=0;
  2273.         _highvideo=0;
  2274.         textattr(7);
  2275.         cputs(".");
  2276.         gotoxy(wherex()+25,wherey());
  2277.         cputs("·    ");
  2278.         _highvideo=1;
  2279.         highvideo();
  2280. _textcolor(BLACK);
  2281.         cputs("│");
  2282.         saved_x=wherex();
  2283.         saved_y=wherey();
  2284.         cputs("\n");
  2285.         gotoxy(saved_x,saved_y);
  2286.         cputs("  ");
  2287.         _blinking=0;
  2288.         _highvideo=0;
  2289.         textattr(7);
  2290.         cputs("·");
  2291.         gotoxy(1,2);
  2292.         gotoxy(wherex()+6,wherey());
  2293.         _highvideo=1;
  2294.         highvideo();
  2295.         cputs("·");
  2296.         gotoxy(wherex()+15,wherey());
  2297.         cputs("·");
  2298.         gotoxy(wherex()+22,wherey());
  2299.         _textcolor(BROWN);
  2300.         cputs(".");
  2301.         gotoxy(wherex()+14,wherey());
  2302.         _textcolor(LIGHTGRAY);
  2303.         cputs("·");
  2304.         gotoxy(wherex()+10,wherey());
  2305.         _blinking=0;
  2306.         _highvideo=0;
  2307.         textattr(7);
  2308. _textcolor(CYAN);
  2309.         cputs("│");
  2310.         _highvideo=1;
  2311.         highvideo();
  2312. _blinking=1;
  2313. _textcolor(LIGHTGRAY);
  2314.         cputs(".\n");
  2315.         gotoxy(1,3);
  2316.         cputs("  ");
  2317.         _blinking=0;
  2318.         _highvideo=0;
  2319.         textattr(7);
  2320.         cputs(".");
  2321.         gotoxy(wherex()+13,wherey());
  2322.         _highvideo=1;
  2323.         highvideo();
  2324.         cputs("·");
  2325.         gotoxy(wherex()+52,wherey());
  2326.         _textcolor(BLACK);
  2327.         cputs("─");
  2328.         _blinking=0;
  2329.         _highvideo=0;
  2330.         textattr(7);
  2331. _textcolor(CYAN);
  2332.         cputs("─");
  2333.         _highvideo=1;
  2334.         highvideo();
  2335.         cputs("┼");
  2336.         _blinking=0;
  2337.         _highvideo=0;
  2338.         textattr(7);
  2339. _textcolor(CYAN);
  2340.         cputs("─");
  2341.         _highvideo=1;
  2342.         highvideo();
  2343. _textcolor(BLACK);
  2344.         cputs("─");
  2345.         gotoxy(1,4);
  2346.         gotoxy(wherex()+71,wherey());
  2347.         saved_x=wherex();
  2348.         saved_y=wherey();
  2349.         cputs("\n");
  2350.         gotoxy(saved_x,saved_y);
  2351.         _blinking=0;
  2352.         _highvideo=0;
  2353.         textattr(7);
  2354. _textcolor(CYAN);
  2355.         cputs("│");
  2356.         gotoxy(1,5);
  2357.         _highvideo=1;
  2358.         highvideo();
  2359. _textcolor(LIGHTGRAY);
  2360.         cputs("·");
  2361.         gotoxy(wherex()+15,wherey());
  2362.         _textcolor(BLUE);
  2363.         cputs("▀▀▀   ▀▀▀");
  2364.         gotoxy(wherex()+6,wherey());
  2365.         cputs("▀▀▀▀▀");
  2366.         gotoxy(wherex()+6,wherey());
  2367.         cputs("▀▀▀▀▀▀");
  2368.         gotoxy(wherex()+6,wherey());
  2369.         cputs("▀▀   ▀▀\n");
  2370.         gotoxy(1,6);
  2371.         cputs("  ");
  2372.         _blinking=0;
  2373.         _highvideo=0;
  2374.         textattr(7);
  2375.         cputs(".");
  2376.         gotoxy(wherex()+13,wherey());
  2377.         _highvideo=1;
  2378.         highvideo();
  2379. _textcolor(BLUE);
  2380.         cputs("▀▀▀▀ ▀▀▀▀");
  2381.         gotoxy(wherex()+5,wherey());
  2382.         cputs("▀▀   ▀▀");
  2383.         gotoxy(wherex()+5,wherey());
  2384.         cputs("▀▀   ▀▀");
  2385.         gotoxy(wherex()+5,wherey());
  2386.         cputs("▀▀  ▀▀");
  2387.         gotoxy(wherex()+8,wherey());
  2388.         _textcolor(LIGHTGRAY);
  2389.         cputs("· ");
  2390.         saved_x=wherex();
  2391.         saved_y=wherey();
  2392.         cputs("\n");
  2393.         gotoxy(saved_x,saved_y);
  2394.         cputs("· ");
  2395.         _blinking=0;
  2396.         _highvideo=0;
  2397.         textattr(7);
  2398.         cputs(". .");
  2399.         gotoxy(1,7);
  2400.         cputs("  ");
  2401.         _blinking=1;
  2402.         cputs(". ");
  2403.         _blinking=0;
  2404.         _highvideo=0;
  2405.         textattr(7);
  2406.         cputs("·");
  2407.         gotoxy(wherex()+11,wherey());
  2408.         _highvideo=1;
  2409.         highvideo();
  2410. _textcolor(BLUE);
  2411.         cputs("▀▀ ▀▀▀ ▀▀");
  2412.         gotoxy(wherex()+5,wherey());
  2413.         cputs("▀▀▀▀▀▀▀");
  2414.         gotoxy(wherex()+5,wherey());
  2415.         cputs("▀▀▀▀▀▀");
  2416.         gotoxy(wherex()+6,wherey());
  2417.         saved_x=wherex();
  2418.         saved_y=wherey();
  2419.         cputs("\n");
  2420.         gotoxy(saved_x,saved_y);
  2421.         cputs("▀▀▀▀▀");
  2422.         gotoxy(wherex()+8,wherey());
  2423.         _textcolor(LIGHTGRAY);
  2424.         cputs("· ·");
  2425.         gotoxy(1,8);
  2426.         gotoxy(wherex()+6,wherey());
  2427.         _blinking=0;
  2428.         _highvideo=0;
  2429.         textattr(7);
  2430. _blinking=1;
  2431.         cputs(".");
  2432.         gotoxy(wherex()+9,wherey());
  2433.         _blinking=0;
  2434.         _highvideo=0;
  2435.         textattr(7);
  2436. _highvideo=1;
  2437.         highvideo();
  2438. _textcolor(BLUE);
  2439.         cputs("▀▀  ▀  ▀▀");
  2440.         gotoxy(wherex()+5,wherey());
  2441.         cputs("▀▀   ▀▀");
  2442.         gotoxy(wherex()+5,wherey());
  2443.         cputs("▀▀ ");
  2444.         saved_x=wherex();
  2445.         saved_y=wherey();
  2446.         cputs("\n");
  2447.         gotoxy(saved_x,saved_y);
  2448.         cputs(" ▀▀");
  2449.         gotoxy(wherex()+6,wherey());
  2450.         cputs("▀▀  ▀▀");
  2451.         gotoxy(1,9);
  2452.         cputs("    ");
  2453.         _textcolor(LIGHTGRAY);
  2454.         cputs(".");
  2455.         gotoxy(wherex()+11,wherey());
  2456.         _textcolor(BLUE);
  2457.         cputs("▀▀");
  2458.         gotoxy(wherex()+5,wherey());
  2459.         cputs("▀▀");
  2460.         gotoxy(wherex()+5,wherey());
  2461.         cputs("▀▀   ▀▀");
  2462.         gotoxy(wherex()+5,wherey());
  2463.         cputs("▀▀   ▀▀");
  2464.         gotoxy(wherex()+5,wherey());
  2465.         cputs("▀");
  2466.         saved_x=wherex();
  2467.         saved_y=wherey();
  2468.         cputs("\n");
  2469.         gotoxy(saved_x,saved_y);
  2470.         cputs("▀   ▀▀");
  2471.         gotoxy(1,10);
  2472.         gotoxy(wherex()+79,wherey());
  2473.         _blinking=0;
  2474.         _highvideo=0;
  2475.         textattr(7);
  2476. _blinking=1;
  2477.         cputs(".    ");
  2478.         _blinking=0;
  2479.         _highvideo=0;
  2480.         textattr(7);
  2481. _highvideo=1;
  2482.         highvideo();
  2483. _textcolor(BLACK);
  2484.         cputs("│");
  2485.         gotoxy(wherex()+59,wherey());
  2486.         _textcolor(BROWN);
  2487.         cputs("· ");
  2488.         _blinking=0;
  2489.         _highvideo=0;
  2490.         textattr(7);
  2491. _textcolor(BLUE);
  2492.         cputs("·");
  2493.         gotoxy(1,12);
  2494.         cputs("   ");
  2495.         _textcolor(CYAN);
  2496.         saved_x=wherex();
  2497.         saved_y=wherey();
  2498.         cputs("\n");
  2499.         gotoxy(saved_x,saved_y);
  2500.         cputs("─");
  2501.         _highvideo=1;
  2502.         highvideo();
  2503.         cputs("┼");
  2504.         _blinking=0;
  2505.         _highvideo=0;
  2506.         textattr(7);
  2507. _textcolor(CYAN);
  2508.         cputs("─");
  2509.         gotoxy(wherex()+14,wherey());
  2510.         _highvideo=1;
  2511.         highvideo();
  2512. _textcolor(MAGENTA);
  2513.         cputs("┌─┐ ┌─┐   ");
  2514.         _textcolor(CYAN);
  2515.         cputs("┌──────┐   ");
  2516.         _textcolor(BROWN);
  2517.         cputs("┌─────┐   ");
  2518.         _textcolor(RED);
  2519.         cputs("┌─");
  2520.         saved_x=wherex();
  2521.         saved_y=wherey();
  2522.         cputs("\n");
  2523.         gotoxy(saved_x,saved_y);
  2524.         cputs("────┐");
  2525.         gotoxy(1,13);
  2526.         cputs("    ");
  2527.         _textcolor(BLACK);
  2528.         cputs("│");
  2529.         _blinking=0;
  2530.         _highvideo=0;
  2531.         textattr(7);
  2532. _blinking=1;
  2533.         cputs(".");
  2534.         gotoxy(wherex()+14,wherey());
  2535.         _blinking=0;
  2536.         _highvideo=0;
  2537.         textattr(7);
  2538. _highvideo=1;
  2539.         highvideo();
  2540. _textcolor(MAGENTA);
  2541.         cputs("│ │ │ │   ");
  2542.         _textcolor(CYAN);
  2543.         cputs("│ ┌──┐ │   ");
  2544.         _textcolor(BROWN);
  2545.         saved_x=wherex();
  2546.         saved_y=wherey();
  2547.         cputs("\n");
  2548.         gotoxy(saved_x,saved_y);
  2549.         cputs("│ ┌───┘   ");
  2550.         _textcolor(RED);
  2551.         cputs("└─┐ ┌─┘");
  2552.         gotoxy(wherex()+10,wherey());
  2553.         _blinking=0;
  2554.         _highvideo=0;
  2555.         textattr(7);
  2556.         cputs("·    ");
  2557.         _highvideo=1;
  2558.         highvideo();
  2559.         cputs(".");
  2560.         gotoxy(1,14);
  2561.         gotoxy(wherex()+20,wherey());
  2562.         _textcolor(MAGENTA);
  2563.         cputs("│ └─┘ │   ");
  2564.         _textcolor(CYAN);
  2565.         cputs("│");
  2566.         saved_x=wherex();
  2567.         saved_y=wherey();
  2568.         cputs("\n");
  2569.         gotoxy(saved_x,saved_y);
  2570.         cputs(" │  │ │   ");
  2571.         _textcolor(BROWN);
  2572.         cputs("│ └───┐");
  2573.         gotoxy(wherex()+5,wherey());
  2574.         _textcolor(RED);
  2575.         cputs("│ │");
  2576.         gotoxy(1,15);
  2577.         cputs(" ");
  2578.         _blinking=0;
  2579.         _highvideo=0;
  2580.         textattr(7);
  2581.         cputs("·");
  2582.         gotoxy(wherex()+18,wherey());
  2583.         _highvideo=1;
  2584.         highvideo();
  2585. _textcolor(MAGENTA);
  2586.         cputs("│ ┌─┐ │   ");
  2587.         _textcolor(CYAN);
  2588.         saved_x=wherex();
  2589.         saved_y=wherey();
  2590.         cputs("\n");
  2591.         gotoxy(saved_x,saved_y);
  2592.         cputs("│ │  │ │   ");
  2593.         _textcolor(BROWN);
  2594.         cputs("└───┐ │");
  2595.         gotoxy(wherex()+5,wherey());
  2596.         _textcolor(RED);
  2597.         cputs("│ │");
  2598.         gotoxy(1,16);
  2599.         gotoxy(wherex()+20,wherey());
  2600.         _textcolor(MAGENTA);
  2601.         cputs("│ │ │ │   ");
  2602.         _textcolor(CYAN);
  2603.         cputs("│ └──┘ ");
  2604.         saved_x=wherex();
  2605.         saved_y=wherey();
  2606.         cputs("\n");
  2607.         gotoxy(saved_x,saved_y);
  2608.         cputs("│   ");
  2609.         _textcolor(BROWN);
  2610.         cputs("┌───┘ │");
  2611.         gotoxy(wherex()+5,wherey());
  2612.         _textcolor(RED);
  2613.         cputs("│ │");
  2614.         gotoxy(wherex()+5,wherey());
  2615.         _textcolor(BROWN);
  2616.         cputs("·");
  2617.         gotoxy(1,17);
  2618.         gotoxy(wherex()+20,wherey());
  2619.         _textcolor(MAGENTA);
  2620.         cputs("└─┘ └─┘   ");
  2621.         _textcolor(CYAN);
  2622.         cputs("└───");
  2623.         saved_x=wherex();
  2624.         saved_y=wherey();
  2625.         cputs("\n");
  2626.         gotoxy(saved_x,saved_y);
  2627.         cputs("───┘   ");
  2628.         _textcolor(BROWN);
  2629.         cputs("└─────┘");
  2630.         gotoxy(wherex()+5,wherey());
  2631.         _textcolor(RED);
  2632.         cputs("└─┘");
  2633.         gotoxy(wherex()+13,wherey());
  2634.         _textcolor(LIGHTGRAY);
  2635.         cputs("·");
  2636.         gotoxy(wherex()+6,wherey());
  2637.         _blinking=0;
  2638.         _highvideo=0;
  2639.         textattr(7);
  2640.         cputs("·");
  2641.         gotoxy(1,18);
  2642.         cputs("   ·");
  2643.         gotoxy(wherex()+7,wherey());
  2644.         _highvideo=1;
  2645.         highvideo();
  2646. _textcolor(BROWN);
  2647.         cputs("·");
  2648.         saved_x=wherex();
  2649.         saved_y=wherey();
  2650.         cputs("\n");
  2651.         gotoxy(saved_x,saved_y);
  2652.         gotoxy(wherex()+7,wherey());
  2653.         _blinking=0;
  2654.         _highvideo=0;
  2655.         textattr(7);
  2656.         cputs("·   ");
  2657.         _highvideo=1;
  2658.         highvideo();
  2659.         cputs("·");
  2660.         gotoxy(wherex()+42,wherey());
  2661.         _textcolor(BLACK);
  2662.         cputs("│");
  2663.         gotoxy(1,19);
  2664.         gotoxy(wherex()+48,wherey());
  2665.         _blinking=0;
  2666.         _highvideo=0;
  2667.         textattr(7);
  2668.         cputs("· .");
  2669.         gotoxy(wherex()+14,wherey());
  2670.         _highvideo=1;
  2671.         highvideo();
  2672. _textcolor(BLACK);
  2673.         cputs("─");
  2674.         _textcolor(BLUE);
  2675.         cputs("┼");
  2676.         _blinking=1;
  2677. _textcolor(LIGHTGRAY);
  2678.         cputs(".\n");
  2679.         gotoxy(1,20);
  2680.         gotoxy(wherex()+5,wherey());
  2681.         _blinking=0;
  2682.         _highvideo=0;
  2683.         textattr(7);
  2684. _highvideo=1;
  2685.         highvideo();
  2686.         cputs(".");
  2687.         gotoxy(wherex()+52,wherey());
  2688.         _blinking=0;
  2689.         _highvideo=0;
  2690.         textattr(7);
  2691.         cputs(".");
  2692.         gotoxy(wherex()+7,wherey());
  2693.         _highvideo=1;
  2694.         highvideo();
  2695. _textcolor(BLACK);
  2696.         cputs("│");
  2697.         gotoxy(wherex()+5,wherey());
  2698.         _textcolor(BROWN);
  2699.         cputs("·");
  2700.         gotoxy(1,21);
  2701.         gotoxy(wherex()+30,wherey());
  2702.         _blinking=0;
  2703.         _highvideo=0;
  2704.         textattr(7);
  2705.         cputs("By Mark She");
  2706.         saved_x=wherex();
  2707.         saved_y=wherey();
  2708.         cputs("\n");
  2709.         gotoxy(saved_x,saved_y);
  2710.         cputs("rman, NY");
  2711.         gotoxy(1,22);
  2712.         gotoxy(wherex()+21,wherey());
  2713.         _highvideo=1;
  2714.         highvideo();
  2715. _textcolor(BROWN);
  2716.         cputs("·    ");
  2717.         _blinking=0;
  2718.         _highvideo=0;
  2719.         textattr(7);
  2720.         cputs("Support Host: (718) 786-6134");
  2721.         gotoxy(1,23);
  2722.         gotoxy(wherex(),wherey()-1);
  2723.         cputs("\n");
  2724.         gotoxy(wherex()+66,wherey());
  2725.         cputs(".");
  2726.         _blinking=0;
  2727.         _highvideo=0;
  2728.         textattr(7);
  2729.         gotoxy(wherex()-255,wherey());
  2730.         cputs(" ");}
  2731.  
  2732.