home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / dos / terminal / boyan52 / makemail.bsc < prev    next >
Encoding:
Text File  |  1994-01-29  |  22.7 KB  |  466 lines
  1.  
  2. \\
  3. \\  Make mail script by Lee Breeden for PCBoard systems
  4. \\
  5. \\  This script is used to make a mail script for calling a pcboard and
  6. \\  downloading mail unattended, uplaoding or downloading files.
  7. \\
  8.  
  9. |logon
  10. \ko[245]
  11. \svv[]\SVS[]\sv0[]\sv1[]\sv2[]\sv3[]\sv4[]\sv5[]\sv6[]\sv7[]\sv8[]\sv9[]\svh[]\lvs[]
  12. \svz[]\svy[]
  13. |Script
  14. \bl[start]
  15. \bl[more]
  16. \eb
  17.  
  18. |more
  19. \svv[]\SVS[]\sv0[]\sv1[]\sv2[]\sv3[]\sv4[]\sv5[]\sv6[]\sv7[]\sv8[]\sv9[]\svh[]\lvs[]
  20. \svz[]\svy[]
  21. \bl[continue]
  22. \bl[make]
  23. \bl[append4]
  24. \bl[editit]
  25. \eb
  26.  
  27.  
  28. |start
  29. \zs
  30. \dm8,1[                                                                     ]
  31. \dm8,2[  ╔════════════════════════════════════════════════════════════════╗ ]
  32. \dm8,3[  ║ Boyan 5.0 script generator. This will not work with 4.1 or 3.0 ║ ]
  33. \dm8,4[  ║      Welcome: This is a Boyan Script that will walk you        ║ ]
  34. \dm8,5[  ║    thru setting up a mail or regular script. The information   ║ ]
  35. \dm8,6[  ║    that you will be asked is used in the bbs system script.    ║ ]
  36. \dm8,7[  ║      There are some things that you must have handy before     ║ ]
  37. \dm8,8[  ║      going any further.                                        ║ ]
  38. \dm8,9[  ║                                                                ║ ]
  39. \dm8,10[  ║                   Mail door number                             ║ ]
  40. \dm8,11[  ║                   ProDoor number                               ║ ]
  41. \dm8,12[  ║                   Mail Packet name  *.qwk                      ║ ]
  42. \dm8,13[  ║                   Type of door that you are going to           ║ ]
  43. \dm8,14[  ║                       enter to get your mail.                  ║ ]
  44. \dm8,15[  ║                                                                ║ ]
  45. \dm8,16[  ║     There are some commands that will be set for you that      ║ ]
  46. \dm8,17[  ║     you can edit later.                                        ║ ]
  47. \dm8,18[  ║                                                                ║ ]
  48. \dm8,19[  ║     If you don't have all of the above handy then HIT ESC      ║ ]
  49. \dm8,20[  ║                         NOW!                                   ║ ]
  50. \dm8,21[  ║                                                                ║ ]
  51. \dm8,22[  ╚════════════════════════════════════════════════════════════════╝ ]
  52. \dm8,23[                                                                     ]
  53. \kv0[ Hit enter to continue ESC to escape> ]
  54. \zs
  55. \gb[name]
  56.  
  57. |name
  58. \MVZ[111]\MVY[112] \SV0[%VZ] \LV0[3]
  59. \II+   `,%V0[\SC[pcboard;name]\gb[name]]
  60. \ie+%vz, [\kv0[Enter your first name> `]]
  61. \ie+%vz, [\sv1[%V0 "`]\SM111[%V1]]
  62. \ie+%vy, [\kv0[Enter your last name> `]]
  63. \ie+%vz, [\SM112[%v0]]
  64. \ie-%vz, [\bl[dispname]]
  65. \ie+%pw, [\bl[password]]
  66. \dm8,23[ checking download directory for qwk file lists ]
  67.  
  68.  
  69. |password
  70. \dm6,10[ ╔══════════════════════════════════════╗
  71. \dm6,11[ ║   Currently you don't have a         ║
  72. \dm6,12[ ║   default password defined. So lets  ║
  73. \dm6,13[ ║   set one now. You will have to      ║
  74. \dm6,14[ ║   select ""P"" from the screen .       ║
  75. \dm6,15[ ║  You can have a different one on     ║
  76. \dm6,16[ ║ every system in your phone directory.║
  77. \dm6,17[ ╚══════════════════════════════════════╝
  78. \kvo[ Hit enter to continue]\SN[ Select "P" for password ]\cb[s]
  79. \zs
  80.  
  81. |dispname
  82. \MVZ[111]\SVX[%VZ]\ii+" `,%VX[\LVX[%IM] \MVY[112] \SVZ[%VX %Vy] \lvZ[30]
  83. \dm6,10[ ╔══════════════════════════════════════╗
  84. \dm6,11[ ║  This is the way that your name      ║
  85. \dm6,12[ ║  well be used in these scripts.      ║
  86. \dm6,13[ ║  %VZ      ║
  87. \dm6,14[ ╚══════════════════════════════════════╝
  88. \kv0[Hit enter to continue > `]
  89. \zs
  90.  
  91. |continue
  92. \zs
  93. \dm6,7[ ╔═══════════════════════════════════════╗ ]
  94. \dm6,8[ ║          Enter the name for the       ║ ]
  95. \dm6,9[ ║      Script that you would like to    ║ ]
  96. \dm6,10[ ║       create. ie:  BBS name EdsHome   ║ ]
  97. \dm6,11[ ╚═══════════════════════════════════════╝ ]
  98. {
  99. \kvs________[Script name > ]\SVT[%vs.bsc]\lvt[12]
  100. \FE+%S:%VS.bsc[\GB[bsc]]
  101. \bl[make]
  102.  
  103. |make
  104. \zs Creating script %S:%VS.bsc {
  105. \AF%S:%VS.bsc["\"\ This script automates Mail runs to PC-BOARD type Bulletin Boards.       ]
  106. \AF%S:%VS.bsc["\"\ You must set the following macros with BOYAN's configuration module:    ]
  107. \AF%S:%VS.bsc["\"\  "\! = Macro # 111 = Your first name                                     ]
  108. \AF%S:%VS.bsc["\"\  "\"@ = Macro # 112 = Your last name                                      ]
  109. \AF%S:%VS.bsc["\"\  "%PW = Is your defined password.                                      ]
  110. \AF%S:%VS.bsc["\"\  "\sv1 used for mail system report file *.rep.                           ]
  111. \AF%S:%VS.bsc["\"\  "\sv2 used for prodoor option number.                                   ]
  112. \AF%S:%VS.bsc["\"\  "\sv3 used for mail door option number.                                 ]
  113. \AF%S:%VS.bsc["\"\  "\sv4 used for mail packet system name *.qwk.                           ]
  114. \AF%S:%VS.bsc["\"\  "\sv5 used for up-file name or names.                                   ]
  115. \AF%S:%VS.bsc["\"\  "\sv6 used for file upload description.                                 ]
  116. \AF%S:%VS.bsc["\"\  "\sv7 used for file upload description, leave blank if not used         ]
  117. \AF%S:%VS.bsc["\"\  "\sv8 used for file upload description, leave blank if not used         ]
  118. \AF%S:%VS.bsc["\"\  "\sv9 used for file upload description, leave blank if not used         ]
  119. \AF%S:%VS.bsc["\"\  "\sv0 used for system name in call back option.                       ]
  120. \AF%S:%VS.bsc["\"\  "\svA used to set option for call back block.                           ]
  121. \AF%S:%VS.bsc["\"\  "\svB used for setting number of mail packets to keep.                  ]
  122. \AF%S:%VS.bsc["\"\  "\svC used for setting file scan option <U>pload <A>ll etc.             ]
  123. \AF%S:%VS.bsc["\"\  "\svD used internally to read variable        ]
  124. \AF%S:%VS.bsc["\"\  "\svE used internally for selection option                              ]
  125. \AF%S:%VS.bsc["\"\  "\svF used for setting cursor position in mail door.                   ]
  126. \AF%S:%VS.bsc["\"\  "\svG used for setting the maximum number of messages in mail door.     ]
  127. \AF%S:%VS.bsc["\"\  "\svD used ALSO for closing file download block.
  128. \AF%S:%VS.bsc["\"\  "\svF used ALSO for closing file scan block.
  129. \AF%S:%VS.bsc["\"\  "\svG used ALSO for closing file MailDL block.
  130. \AF%S:%VS.bsc["\"\  "\svM used for closing Mail block.
  131. \AF%S:%VS.bsc["\"\  "\svQ used for closing Quest block.
  132. \AF%S:%VS.bsc["\"\  "\svS used for closing MailUL block.
  133. \AF%S:%VS.bsc["\"\  "\svU used for closing UL File block.
  134. \AF%S:%VS.bsc["\"\  Need to have in boyan macro #7 \AT+[\qd"]                              ]
  135. \AF%S:%VS.bsc["\"\  as last command.                                                       ]
  136. \AF%S:%VS.bsc["\"\Script assumes that you put your message replies in upload dir.           ]
  137.  \AF%S:%VS.bsc["\"\Script assumes that you put your messages packets in DN dir.             ]
  138. \AF%S:%VS.bsc["\"\Script assumes that you use Zmodem configured as Z.                      ]
  139. \AF%S:%VS.bsc[                                                                           ]
  140. \AF%S:%VS.bsc[|LOGON                                    "\"\ Start script blocks    ]
  141. \AF%S:%VS.bsc["\ST"[ » Press <TAB> for Menu options «"]
  142. \AF%S:%VS.bsc["\IE+OFF,"%LD["\LD+"]                         "\"\ Turn on Log to disk file  ]
  143. \AF%S:%VS.bsc["\SVN["]"\SVF["]"\SVG["]"\SVM["]\SVQ["]\SVS["]"\SVU["]"\SVX["]               ]
  144. \AF%S:%VS.bsc["\SVY["%SC"] ]
  145.  
  146. \\
  147. \dm12,10[ ╔═══════════════════════════════════════╗ ]
  148. \dm12,11[ ║                                       ║ ]
  149. \dm12,12[ ║          Enter Mail Door #            ║ ]
  150. \dm12,13[ ║                                       ║ ]
  151. \dm12,14[ ╚═══════════════════════════════════════╝ ]
  152. \\{
  153. \KV2`1_[Enter Mail door number> ]
  154. \\dm14,11[ ╔═══════════════════════════════════════╗ ]
  155. \\dm14,12[ ║                                       ║ ]
  156. \\dm14,13[ ║          Enter Mail Door #            ║ ]
  157. \\dm14,14[ ║                                       ║ ]
  158. \\dm14,15[ ╚═══════════════════════════════════════╝ ]
  159. \\{
  160. \\KV3[Enter ProDoor number> ] \AF%S:%VS.bsc["\SV3[%v3"]            "\"\enter prodoor number   ]
  161. \dm16,12[ ╔═══════════════════════════════════════╗ ]
  162. \dm16,13[ ║                                       ║ ]
  163. \dm16,14[ ║     Enter mail packet name            ║ ]
  164. \dm16,15[ ║  EdsHome.qwk   with extension         ║ ]
  165. \dm16,16[ ╚═══════════════════════════════════════╝ ]
  166. {
  167. \Kv4%VS.qwk[Enter Mail packet> ]
  168. \dm18,13[ ╔═══════════════════════════════════════╗ ]
  169. \dm18,14[ ║                                       ║ ]
  170. \dm18,15[ ║      Enter Reply name  ie:            ║ ]
  171. \dm18,16[ ║   EdsHome.rep   with entension        ║ ]
  172. \dm18,17[ ╚═══════════════════════════════════════╝ ]
  173. {
  174. \Kv1%VS.rep[Enter Mail packet> ]
  175. \bl[append]
  176.  
  177. \zs
  178. \dm8,1[                                                                     ]
  179. \dm8,2[  ╔════════════════════════════════════════════════════════════════╗ ]
  180. \dm8,3[  ║                                                                ║ ]
  181. \dm8,4[  ║       Which Mail Door do you use for getting the mail?         ║ ]
  182. \dm8,5[  ║                                                                ║ ]
  183. \dm8,6[  ║                   [1"]  MarkMail  Door                          ║ ]
  184. \dm8,7[  ║                                                                ║ ]
  185. \dm8,8[  ║                   [2"]  Qmail Door                              ║ ]
  186. \dm8,9[  ║                                                                ║ ]
  187. \dm8,10[  ║                   [3"]  Kmail Door                              ║ ]
  188. \dm8,11[  ║                                                                ║ ]
  189. \dm8,12[  ║                   [4"]  Megamail Door                           ║ ]
  190. \dm8,13[  ║                                                                ║ ]
  191. \dm8,14[  ║                   [5"]  TomCat  Door                            ║ ]
  192. \dm8,15[  ║                                                                ║ ]
  193. \dm8,16[  ║                   [6"]  RoseMail Door                           ║ ]
  194. \dm8,17[  ║                                                                ║ ]
  195. \dm8,18[  ║                   [7"]  OffLine Mail                            ║ ]
  196. \dm8,19[  ║                                                                ║ ]
  197. \dm8,20[  ║                                                                ║ ]
  198. \dm8,21[  ╚════════════════════════════════════════════════════════════════╝ ]
  199. \dm8,22[                                                                     ]
  200. {
  201. \KV0`1[Enter door number here> ]
  202.  
  203. \IV0+1[\SVm[MM]\svV[4]\svw[35]]
  204. \IV0+2[\SVm[QM]\svV[4]\svw[35]]
  205. \IV0+3[\SVm[KM]\svv[12]\svw[31]]
  206. \IV0+4[\SVm[MR]\svV[4]\svw[35]]
  207. \IV0+5[\SVm[TM]\svV[4]\svw[35]]
  208. \IV0+6[\SVm[RM]\svV[4]\svw[35]]
  209. \IV0+7[\SVm[OM]\svV[4]\svw[35]]
  210. \AF%S:%VS.bsc["\SVF[%vw"]            "\"\ Cursor position
  211. \AF%S:%VS.bsc["\SVG[800"]           "\"\ Maximum message counter for mail
  212. \AF%S:%VS.bsc["\SVH[%VV"]            "\"\ Timer to wait for NO messages 2-15 sec
  213. \AF%S:%VS.bsc["\SVI["%SS"]            "\"\ Sets script running to system  name
  214. \dm18,13[ ╔═══════════════════════════════════════╗ ]
  215. \dm18,14[ ║ Do you want to extract the Newfile.dat║ ]
  216. \dm18,15[ ║ file from the QWk packet and add the  ║ ]
  217. \dm18,16[ ║ list to a file called Newfiles.lst    ║ ]
  218. \dm18,17[ ╚═══════════════════════════════════════╝ ]
  219. {
  220. \Kv1N[Enter N/y > `]
  221. \iv1+n[\sv1[%V1]]
  222. \iv1+y[\sv1[X]]
  223. \AF%S:%VS.bsc["\SVX[%V1"]               "\"\ Sets option to extract Newfiles.dat from QWK packet]
  224. \AF%S:%VS.bsc["\GB[Menu"]
  225. \AF%S:%VS.bsc[]
  226. \AF%S:%VS.bsc["|Menu]
  227. \bl[append1]
  228. \AF%S:%VS.bsc["\CA+["\SC[SCRIPT;NAME"]"]                    "\"\ Enter name block        ]
  229. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors          ]
  230. \AF%S:%VS.bsc["\CA+["\SC[SCRIPT;QUEST"]"]                   "\"\ Question block        ]
  231. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors          ]
  232.  
  233. \eb
  234.  
  235.  
  236. \zs
  237. \dm20,14[ ╔═══════════════════════════════════════╗ ]
  238. \dm20,15[ ║                                       ║ ]
  239. \dm20,16[ ║         Do you use ProDoor?           ║ ]
  240. \dm20,17[ ║                                       ║ ]
  241. \dm20,18[ ║        [Y"] Yes                        ║ ]
  242. \dm20,19[ ║        [N"] No                         ║ ]
  243. \dm20,20[ ╚═══════════════════════════════════════╝
  244. {
  245. \KV0[Y/N> ]
  246. \IV0+Y[\bl[append3]\EB     \\ If "Y" invoke block edit
  247. \IV0+N[\eb]               \\ If "N" go to "Files" block
  248. \eb
  249.  
  250. |editit
  251. \ZS
  252. \dm6,7[ ╔═══════════════════════════════════════╗ ]
  253. \dm6,8[ ║        Do you wish to edit the        ║ ]
  254. \dm6,9[ ║      %Vt before exiting      ║ ]
  255. \dm6,10[ ║     [Y"]es  [N"]o  [M"]ore               ║ ]
  256. \dm6,11[ ╚═══════════════════════════════════════╝ ]
  257. {
  258. \Kv0`Y[     Y/n> ]
  259. \IV0+Y[\GB[edit]]                   \\ If "Y" invoke block edit
  260. \IV0+N[\GB[end]                   \\ If "D" go to "end" block
  261. \IV0+M[\GB[More]                 \\ If "D" go to "end" block
  262. \eb
  263.  
  264. |bsc
  265. \zs
  266. \dm6,1[ ╔═══════════════════════════════════════╗ ]
  267. \dm6,2[ ║     File %Vt already exist   ║ ]
  268. \dm6,3[ ║     cannot re create it. Must         ║ ]
  269. \dm6,4[ ║     delete it or use editor           ║ ]
  270. \dm6,5[ ╚═══════════════════════════════════════╝ ]
  271. {
  272. \dm6,7[ ╔═══════════════════════════════════════╗ ]
  273. \dm6,8[ ║      Do you wish to edit file         ║ ]
  274. \dm6,9[ ║    [Y"] Yes to edit script %Vt║ ]
  275. \dm6,10[ ║    [A"] Abort script                   ║ ]
  276. \dm6,11[ ║    [D"] to Delete file and continue    ║ ]
  277. \dm6,12[ ╚═══════════════════════════════════════╝ ]
  278. {
  279. \KV0`D[   Y,A or D > ]
  280. \IV0+Y[\zs\bl[edit]]                \\ If "Y" invoke block edit
  281. \IV0+D[\zs\bl[delete]]               \\ If "D" go to "Files" block
  282. \IV0+A[\zs\bl[end]]                \\ If "A" go to "Shell" block
  283. \\bl[make]
  284. \\bl[append4]
  285. \\bl[editit]
  286. \eb
  287.  
  288. |edit
  289. \dc-[%WC %S:%VS.bsc]
  290. \bl[end]\eb
  291. \ab
  292.  
  293. |delete
  294. \dc-[del %S:%VS.bsc]
  295. \eb
  296.  
  297. |append1
  298. \AF%S:%VS.bsc["\DM[CONNECTED TO "%SN"]                     "\"\ System display message    ]
  299. \AF%S:%VS.bsc["\to[40"]"\pl                                "\"\ Set timer                 ]
  300. \AF%S:%VS.bsc["\"\CA-["\eb"]                                "\"\ Check carrier currently off]
  301.  
  302.  
  303. |append
  304. \AF%S:%VS.bsc["\SV0["%SN"]           "\"\ set existing system number to "%v0                    ]
  305. \AF%S:%VS.bsc["\sv1[%v1"]    "\"\ Report packet name]
  306. \AF%S:%VS.bsc["\SV2[%v2"]            "\"\ enter door number [#"]      ]
  307. \AF%S:%VS.bsc["\sv4[%v4"]    "\"\ Mail Packet name]
  308. \AF%S:%VS.bsc["\SV5[            "]  "\"\ Name of file to UpLoad]
  309. \AF%S:%VS.bsc["\SV6[                                        "]"\"\ file description]
  310. \AF%S:%VS.bsc["\SV7[                                        "]"\"\ file description]
  311. \AF%S:%VS.bsc["\SV8[                                        "]"\"\ file description]
  312. \AF%S:%VS.bsc["\SV9[          "]    "\"\ enter file name to download]
  313.  
  314. \zs
  315.  
  316. \dm12,10[ ╔═══════════════════════════════════════╗ ]
  317. \dm12,11[ ║ How many mail packets do you wish to  ║ ]
  318. \dm12,12[ ║  save on your disk for this system    ║ ]
  319. \dm12,13[ ║        Enter  1- 9                    ║ ]
  320. \dm12,14[ ╚═══════════════════════════════════════╝ ]
  321. {
  322. \KV0`1[Enter number of packets> ]\AF%S:%VS.bsc["\SVB[%V0"]             "\"\ enter number of qwk's to keep
  323.  
  324. \dm14,11[ ╔═══════════════════════════════════════╗ ]
  325. \dm14,12[ ║ Do you want to scan All directories   ║ ]
  326. \dm14,13[ ║  for new files or just the Upload     ║ ]
  327. \dm14,14[ ║ Enter <U>pload <A>ll or <N>one        ║ ]
  328. \dm14,15[ ╚═══════════════════════════════════════╝ ]
  329. {
  330. \KV0U[Enter U, A, or N > ] \AF%S:%VS.bsc["\SVC[%v0"]             "\"\ scanning directories for files A all or U uploads]
  331. \SVC[%V0]
  332.  
  333. |append4
  334. \IE-OM,%VM[\AF%S:%VS.bsc["\CA+"["\SC"[SCRIPT;mail"]"]                    "\"\  Mail block ] ]
  335. \IE+OM,%VM[\AF%S:%VS.bsc["\CA+"["\SC"[SCRIPT;Omail"]"]                   "\"\  Mail block ] ]
  336. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors ]
  337. \AF%S:%VS.bsc["\CA+["\FE+"%u:"%V1["\SC[SCRIPT;%VMul"]"]"]        "\"\ Upload block]
  338. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors ]
  339. \AF%S:%VS.bsc["\CA+["\SC[SCRIPT;%VMdl"]                     "\"\ Mail download ]
  340. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors ]
  341. \AF%S:%VS.bsc["\CA+["\FE+"%S:"%VI.dow["\SC[SCRIPT;dowlst"]"]"]        ]
  342. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors          ]
  343. \AF%S:%VS.bsc["\CA+["\SC[SCRIPT;FILES"]"]                   "\"\ Scan for new files block]
  344. \AF%S:%VS.bsc["\CA+["\ie+"%VX,X["\SC[script;extfile"]"]"]    "\"\ Extract newfiles.dat from qwk packet ]
  345. \AF%S:%VS.bsc[                                                                           ]
  346. \AF%S:%VS.bsc["\"\CA+["\FE+"%U:"%V5["\SC[SCRIPT;upload"]"]"]     "\"\when doing upload or download remove]
  347. \AF%S:%VS.bsc["\"\CA+["\FE-"%D:"%V9["\SC[SCRIPT;download"]"]"]   "\"\slash from beginning of line]
  348. \AF%S:%VS.bsc[                                                                           ]
  349. \AF%S:%VS.bsc["\CA-["\AB"]"\CA+["\gs[SCRIPT;Logoff"]"]         "\"\ Log off block ]
  350. \AF%S:%VS.bsc["\ab]
  351. \AF%S:%VS.bsc[]
  352. \AF%S:%VS.bsc["|*TAB             "\"\ This runs automatically when <Tab> pressed       ]
  353. \AF%S:%VS.bsc["\SV0[1"] "\KS                                                           ]
  354. \AF%S:%VS.bsc["\DM38,"%V0[ ╔═══════════════════════════════════════╗ "]"\+V0"[1"]]
  355. \AF%S:%VS.bsc["\DM38,"%V0[  ║ OnLine MENU    "%HR:"%MI  "%Mo/"%DA/"%YR        ║ "]"\+V0[1"]]
  356. \AF%S:%VS.bsc["\DM38,"%V0"[ ╠═══════════════════════════════════════╣ "]  "\+V0"[1"]]
  357. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <C> = find main Command               ║ "]  "\+V0"[1"]]
  358. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <D> = Download a file                 ║ "]  "\+V0"[1"]]
  359. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <DM>= Download Mail (from mail door)  ║ "]  "\+V0"[1"]]
  360. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <E> = Edit Script                     ║ "]  "\+V0"[1"]]
  361. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <F> = File Manager                    ║ "]  "\+V0"[1"]]
  362. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <G> = Goodbye                         ║ "]  "\+V0"[1"]]
  363. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <J> = Jump to DOS                     ║ "]  "\+V0"[1"]]
  364. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <L> = Log to disk ...status "%LD       ║ "]  "\+V0"[1"]]
  365. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <M> = Mail (check for your mail)      ║ "]  "\+V0"[1"]]
  366. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <N> = New File Scan                   ║ "]  "\+V0"[1"]]
  367. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <O> = Open Door                       ║ "]  "\+V0"[1"]]
  368. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <P> = edit Phone directory            ║ "]  "\+V0"[1"]]
  369. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <Q> = Quick Note file                 ║ "]  "\+V0"[1"]]
  370. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <S> = Scroll-back buffer              ║ "]  "\+V0"[1"]]
  371. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <T> = Termanial Mode                  ║ "]  "\+V0"[1"]]
  372. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <U> = Upload a file                   ║ "]  "\+V0"[1"]]
  373. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <UM>= Upload Mail (from mail door)    ║ "]  "\+V0"[1"]]
  374. \AF%S:%VS.bsc["\DM38,"%V0"[ ╟───────────────────────────────────────╢ "]  "\+V0"[1"]]
  375. \AF%S:%VS.bsc["\DM38,"%V0"[ ║ <R> = RESUME Script  <?> Manual Macro ║ "]  "\+V0"[1"]]
  376. \AF%S:%VS.bsc["\DM38,"%V0"[ ║<Esc>= ABORT script   <V>iew Settings  ║ "]  "\+V0"[1"]]
  377. \AF%S:%VS.bsc["\DM38,"%V0"[ ╚═══════════════════════════════════════╝ "]]
  378. \AF%S:%VS.bsc["\KO"[30"]  "\BB+  "\KV0__"[Enter OPTION: "]  "\BB-  "\RS ]
  379. \AF%S:%VS.bsc["\IV0+C"["\SVQ["]"\SC[SCRIPT;quest"]"\gb"[termlines"]"]  ]
  380. \AF%S:%VS.bsc["\IV0+DM"["\SVG["]"\SC[SCRIPT;%VMdl"]"]                  ]
  381. \AF%S:%VS.bsc["\IV0+D"["\SVD["]"\SC[SCRIPT;Download"]"]                ]
  382. \AF%S:%VS.bsc["\IV0+E"["\DC-"["%WC "%S:"%VY"]"\gb"[*tab"]"]            ]
  383. \AF%S:%VS.bsc["\IV0+F"["\FM"["]"\gb"[*tab"]"]                          ]
  384. \AF%S:%VS.bsc["\IV0+G"["\SC[SCRIPT;logoff"]"\AB"]                      ]
  385. \AF%S:%VS.bsc["\IV0+J"["\JD"\gb"[*tab"]"]                              ]
  386. \AF%S:%VS.bsc["\IV0+L"["\LD*"\gb"[*tab"]"]                             ]
  387. \AF%S:%VS.bsc["\IV0+M"[R Y"{"\GB"[termlines"]"]                        ]
  388. \AF%S:%VS.bsc["\IV0+?"["\KV9"[MACRO:"] @V9  "\LV9"["]  "\IE+"%LV,1"["\SV9"["%V9"]"]"\gb"[*tab"]"] ]
  389. \AF%S:%VS.bsc["\IV0+N"["\SVF["]N S %VC N"{"\GB"[termlines"]"]          ]
  390. \AF%S:%VS.bsc["\IV0+O"["\SVM["]op "%V2 "{"\GB"[termlines"]"]           ]
  391. \AF%S:%VS.bsc["\IV0+P"[ "\DI"["] "\GB"[*Tab"] "]                       ]
  392. \AF%S:%VS.bsc["\IV0+Q"["\DC-["%WC "%B:notes.txt"]"]                    ]
  393. \AF%S:%VS.bsc["\IV0+R"["\gs["%Vy;menu"]"]                              ]
  394. \AF%S:%VS.bsc["\IV0+S"["\RB"\gb"[*Tab"]"]                              ]
  395. \AF%S:%VS.bsc["\IV0+T"["\gb"[termlines"]"\gb"[*tab"]"]                 ]
  396. \AF%S:%VS.bsc["\IV0+UM"["\SVS["]"\SC[SCRIPT;%VMul"]"\gb"[*tab"]"]      ]
  397. \AF%S:%VS.bsc["\IV0+U"["\SVU["]"\SC[SCRIPT;upload"]"\gb"[*tab"]"]      ]
  398. \AF%S:%VS.bsc["\IV0+V"["\SVU["]"\SC[SCRIPT;settings"]"\gb"[*tab"]"]    ]
  399. \AF%S:%VS.bsc["\GB"[*TAB"]                                             ]
  400. \AF%S:%VS.bsc[                                                         ]
  401. \AF%S:%VS.bsc[|TermLines                                               ]
  402. \AF%S:%VS.bsc["\to"[120"]                                              ]
  403. \AF%S:%VS.bsc["\ST"[ » Press <TAB> for Menu options «"]                ]
  404. \AF%S:%VS.bsc["\RE"["\CA-"["\ab"] "\IK+"["%IK"]"]                      ]
  405. \AF%S:%VS.bsc[                                                         ]
  406. \AF%S:%VS.bsc["|"*WrapUp                                               ]
  407. \AF%S:%VS.bsc["\DM23,1"[Press <ESC> TWICE or Run Macro "#7"]"\PA"[2"]  ]
  408. \AF%S:%VS.bsc["\MA"[7"]                                                ]
  409. \AF%S:%VS.bsc[                                                         ]
  410.  
  411. |end
  412. \zs
  413. \bl[time]
  414. \bl[timeEdit]
  415. \svp[%V0:%Mi]\lvp[5]
  416. \svo[%Mo"/%Da]\lvo[5]
  417. \svy[%VP %v1]\lvy[10]
  418. \dm20,14[ ╔═══════════════════════════════════╗ ]
  419. \dm20,15[ ║       %Vt Script         ║ ]
  420. \dm20,16[ ║                                   ║ ]
  421. \dm20,17[ ║      Completed  at %Vy     ║ ]
  422. \dm20,18[ ║        on %Vo                   ║ ]
  423. \dm20,19[ ║                                   ║ ]
  424. \dm20,20[ ╚═══════════════════════════════════╝ ]
  425. \svb[]\ko[]
  426. \\zs
  427. \eb
  428.  
  429. |Time                             \\ 12 hr clock
  430. \SV0[%Hr]\eb
  431.  
  432. |timeEdit
  433. \IE+%V0,0 `[\bl[AM]\eb]
  434. \IE+%V0,10[\bl[AM1]\eb]
  435. \IE+%V0,11[\bl[AM1]\eb]
  436. \IE+%V0,12[\bl[PM1]\eb]
  437. \IE+%V0,13[\+V0[-12]\bl[PM]\eb]
  438. \IE+%V0,14[\+V0[-12]\bl[PM]\eb]
  439. \IE+%V0,15[\+V0[-12]\bl[PM]\eb]
  440. \IE+%V0,16[\+V0[-12]\bl[PM]\eb]
  441. \IE+%V0,17[\+V0[-12]\bl[PM]\eb]
  442. \IE+%V0,18[\+V0[-12]\bl[PM]\eb]
  443. \IE+%V0,19[\+V0[-12]\bl[PM]\eb]
  444. \IE+%V0,20[\+V0[-12]\bl[PM]\eb]
  445. \IE+%V0,21[\+V0[-12]\bl[PM]\eb]
  446. \IE+%V0,22[\+V0[-12]\bl[PM1]\eb]
  447. \IE+%V0,23[\+V0[-12]\bl[PM1]\eb]
  448. \IE-%V0,abc[\bl[AM]\eb]
  449. \eb
  450.  
  451. |AM
  452. \SV1[AM`]\eb
  453. \eb
  454.  
  455. |AM1
  456. \SV1[AM]\eb
  457. \eb
  458.  
  459. |PM
  460. \SV1[PM `]\eb
  461. \eb
  462.  
  463. |PM1
  464. \SV1[PM`]\eb
  465. \eb                                           \\ timer blocks
  466.