home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / dos / utility / pccp076 / mobyhost.scr < prev    next >
Encoding:
Text File  |  1993-12-09  |  5.8 KB  |  415 lines
  1. $1 384 8n1
  2.  
  3. ! ||~You will not be allowed to use this file until you edit it.||
  4. ! The reason for this is that, if you do not change *all* the passwords,|
  5. ! you may find your diary serialized in a supermarket tabloid and your|
  6. ! answering machine messages featured on Geraldo.||
  7. ! You will also find it helpful to record a greeting, fax and data|
  8. ! instructions, paging instructions, page confirmation message, and receive|
  9. ! voice error message, assuming you actually want it to work.||
  10. q 99
  11.  
  12. ; This script is disgusting. If you like the programming practice exhibited
  13. ; here, you should get a job hacking COBOL for ATMs. (Drunk, of course.)
  14. ; COMSCRPT is not as conducive to healthy scripts as it might be,
  15. ; particularly if they evolve. The scripts are awfully easy to write,
  16. ; but can be very hard to understand if you don't remember writing them.
  17.  
  18. * 255
  19.  
  20. ; No voice pending
  21. l 171 170
  22. ; No fax pending
  23. l 20 172
  24. ; Don't page at timeout
  25. l 20 20
  26.  
  27. : 0
  28. = 384
  29. < athz|
  30. > 2 OK
  31. p 8
  32. q 129
  33.  
  34. : 2
  35. ; The next line is a little inelegant but I was low on labels thereabouts.
  36. 0 169
  37. = 384
  38. < at&f&c1&d2l1|
  39. > 3 OK
  40. p 5
  41. g 240
  42.  
  43.  
  44. : 3
  45. ; Maybe ! banner regarding pending voice or fax message
  46. j 170
  47.  
  48. : 20
  49. 0 0
  50. > 23 RING
  51. p 60
  52. ; Minute counter for repage.
  53. r 19 25 20
  54. g 20
  55.  
  56. : 19
  57. ; Repage 25 minutes later, maybe.
  58. j 20
  59.  
  60. : 23
  61. > 24 RING
  62. p 8
  63. g 3
  64.  
  65. : 24
  66. ; Count subsequent rings.
  67. r 4 3 0
  68. g 23
  69.  
  70. : 4
  71. < at#bdr=16|
  72. > 6 OK
  73. p 5
  74. g 240
  75.  
  76. : 6
  77. < at#cls=8|
  78. > 8 OK
  79. p 5
  80. g 240
  81.  
  82. : 8
  83. ; This seems to default, but who knows...
  84. < at#vbs=4|
  85. > 9 OK
  86. p 5
  87. g 240
  88.  
  89. : 9
  90. ; Don't much care for silence deletion.
  91. < at#vsd=0|
  92. > 10 OK
  93. p 5
  94. g 240
  95.  
  96. : 10
  97. < at#vsp=50|
  98. > 11 OK
  99. p 5
  100. g 240
  101.  
  102. : 11
  103. < at#vss=3|
  104. > 12 OK
  105. p 5
  106. g 240
  107.  
  108. : 12
  109. < at#vls=4|
  110. > 25 OK|`0a
  111. p 5
  112. g 240
  113.  
  114. : 25
  115. < ata|
  116. > 30 VCON
  117. p 15
  118. g 240
  119.  
  120. : 30
  121. x $@voicetx $1 384 $@pecgreet.vce * # c e 7 8 9 d b t c0
  122. ; * is skip greeting, leave message
  123. # 34 0
  124. ; # is request command mode
  125. # 40 1
  126. ; c is fax CNG
  127. # 60 2
  128. ; e is Euro data CNG
  129. ; 7 is force data
  130. # 80 4
  131. ; 8 is voice instructions on fax and data
  132. # 150 5
  133. ; 9 is force fax
  134. # 60 9
  135. ; Dialtone, busy, local instrument pickup & loop break mean we should hang up
  136. # 240 127
  137. # 35 128
  138. g 240
  139.  
  140. : 34
  141. < at#vts=[0,600,10]|
  142. > 35 OK|`0a
  143. > 35 VCON|`0a
  144. p 5
  145. g 240
  146.  
  147. : 35
  148. < at#bdr=8|
  149. > 36 OK
  150. p 5
  151. g 240
  152.  
  153. : 36
  154. = 192
  155. < at#vbs=2|
  156. > 37 OK
  157. p 5
  158. g 240
  159.  
  160. : 37
  161. l 170 170
  162. r 37 32766 37
  163. ; Voice messages go in <PCCPPATH>\vmsg\
  164. x $@voicerx $1 192 $@vmsg\ 180 # d b t s q c0
  165. # 155 0
  166. # 39 128
  167. # 42 253
  168. g 240
  169.  
  170. : 42
  171. x $@voicetx $1 192 $@error2.vce
  172. g 240
  173.  
  174. : 39
  175. < at#bdr=16|
  176. > 38 OK
  177. p 5
  178. g 240
  179.  
  180. : 38
  181. = 384
  182. < at#vbs=4|
  183. > 240 OK
  184. p 5
  185. g 240
  186.  
  187. : 40
  188. < at#vts=[523,698,15]|
  189. > 45 `103`101`104`101`105`109`10#
  190. p 15
  191. g 240
  192.  
  193. : 45
  194. l 171 170
  195. l 20 20
  196. 0 37
  197. x $@vbrowse $1 384 3 192 2 $@vmsg /d
  198. g 240
  199.  
  200. : 60
  201. < at#cls=2|
  202. > 62 OK
  203. p 5
  204. g 240
  205.  
  206. : 62
  207. ; This is your station ID for fax; change it!
  208. < at+flid="PCCP Noncustomized"|
  209. > 64 OK|`0a
  210. p 5
  211. g 240
  212.  
  213. : 64
  214. < at+fdcc=1,5,0,2,0,0,0,0|
  215. > 66 OK|`0a
  216. p 5
  217. g 240
  218.  
  219. : 66
  220. < at+fcr=1|
  221. > 68 OK|`0a
  222. p 5
  223. g 240
  224.  
  225. : 68
  226. < ata|
  227. l 172 172
  228. x $@rcvfax $1 384 192 $@fax
  229. c
  230. p 2
  231. g 240
  232.  
  233. : 80
  234. < at#cls=0|
  235. > 81 OK
  236. p 5
  237. g 240
  238.  
  239. : 81
  240. < at&f&c1&d2l1s95=44|
  241. > 82 OK
  242. p 5
  243. g 240
  244.  
  245.  
  246. : 82
  247. < ata|
  248.  
  249. : 83
  250. > 84 CONNECT 38400|`0a
  251. > 85 NO CARRIER|`0a
  252. p 70
  253. g 85
  254.  
  255. : 85
  256. -
  257. d 85
  258. +
  259. c
  260. p 2
  261. g 240 
  262.  
  263.  
  264. : 84
  265. ; You may wish to change this.
  266. < |`0a`0a`0aWelcome to data mode. Aren't voice modems fun?|`0a`0a
  267.  
  268. : 87
  269. < |`0a password: -->
  270. ; Change this!!!
  271. > 90 kowabunga|
  272. > 88 |
  273. p 10 2
  274. : 88
  275. r 89 3 1
  276. g 87
  277.  
  278. : 89
  279. < |`0aPlease wait there; the Janet Reno Volunteer Fire Department has|`0a
  280. < been notified of your problem.|`0a
  281.  
  282. ; The following is a security lockout. It makes it take two or three
  283. ; times as long to crack the password, in this case. You can increase it.
  284. c
  285. p 20
  286. g 85
  287.  
  288. : 90
  289. x $@session $1 384
  290. g 85
  291.  
  292. : 100
  293. d 101
  294. g 85
  295.  
  296. : 150
  297. x $@voicetx $1 384 $@faxdata.vce
  298. g 240
  299.  
  300. : 155
  301. < at#bdr=16|
  302. > 157 OK|`0a
  303. p 5
  304. g 240
  305.  
  306. : 157
  307. = 384
  308. < at#vbs=4|
  309. > 159 OK|`0a
  310. p 5
  311. g 240
  312.  
  313. : 159
  314. x $@voicetx $1 384 $@pageinst.vce
  315. < at#vts=[0,600,10]|
  316. g 161
  317.  
  318. : 161
  319. ; Make them dial 123 to page so we know it's not a phantom DTMF.
  320. > 163 `101`102`103
  321. p 10
  322. g 240
  323.  
  324. : 163
  325. ; Confirm page request to caller.
  326. x $@voicetx $1 384 $@pageconf.vce
  327. g 165
  328.  
  329. : 165
  330. ; first page entry
  331. ; zero the minute counter to get the right phase
  332. 0 20
  333. ; minute counter expiration goes to last page entry
  334. l 166 20
  335. g 167
  336.  
  337. : 166
  338. ; last page entry
  339. ; minute timer expiration loops back same as if it hadn't
  340. l 20 20
  341. g 167
  342.  
  343. : 167
  344. ; kill voice mode for paging
  345. < athz|
  346. > 168 OK|`0a
  347. p 8
  348. g 240
  349.  
  350. : 168
  351. ; This dial command is your pager activation. If you use a numeric rather
  352. ; than a Metrix, maybe a w will help for entering a validity code.
  353. ; Put goodies after the dt.
  354. < at&f&c1&d2s7=20dt|
  355. > 240 BUSY|`0a
  356. > 240 NO CARRIER|`0a
  357. > 169 NO DIALTONE|`0a
  358. p 25
  359. g 240
  360.  
  361. : 169
  362. ; Either there's a new call (tough cookies) or the damn fool hasn't hung up.
  363. r 240 10 169
  364. g 168
  365.  
  366. ; l 171 170 = No voice pending
  367. ; l 170 170 = Voice pending
  368. ; l 20 172 = No fax pending
  369. ; l 171 172 = Fax pending
  370. : 170
  371. ! |
  372. ! *********************************|
  373. ! *  
  374. " 37
  375. !  VOICE MESSAGE(S) PENDING   *|
  376. ! *********************************|
  377. : 171
  378. j 172
  379. : 172
  380. ! |
  381. ! ***********************|
  382. ! *   FAX(ES) PENDING   *|
  383. ! ***********************|
  384. g 20
  385.  
  386. ; Absolutely, positively (we hope) hang up and re-init.
  387. : 240
  388. l 2 250
  389. g 250
  390.  
  391.  
  392. ; Behold! An actual subroutine!
  393.  
  394. : 250
  395. = 384
  396. < athz|
  397. > 252 OK
  398. p 8
  399. = 192
  400. < athz|
  401. > 252 OK
  402. p 8
  403. g 250
  404.  
  405. : 252
  406. j 250
  407.  
  408. : 254
  409. q 0
  410.  
  411. : 255
  412. -
  413. l 254 250
  414. g 250
  415.