home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / dos / utility / pccp076 / hostdemo.scr < prev    next >
Encoding:
Text File  |  1993-12-16  |  4.4 KB  |  280 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, assuming you|
  8. ! actually want it to work.||
  9. q 99
  10.  
  11. * 255
  12.  
  13. : 0
  14. = 384
  15. ; Kill possible voice mode
  16. < athz|
  17. > 2 OK|`0a
  18. p 8
  19. q 129
  20.  
  21. : 2
  22. = 384
  23. ; Obtain known state, good for data
  24. < at&f&c1&d2|
  25. > 20 OK|`0a
  26. p 5
  27. q 130
  28.  
  29. : 4
  30. ; Lock modem port at 16*2400=38400; must lock port for voice
  31. < at#bdr=16|
  32. > 6 OK|`0a
  33. p 5
  34. q 131
  35.  
  36. : 6
  37. ; Select voice mode
  38. < at#cls=8|
  39. > 8 OK
  40. p 5
  41. q 132
  42.  
  43. : 8
  44. ; This seems to default, but who knows...
  45. ; 4 bits per sample
  46. < at#vbs=4|
  47. > 12 OK|`0a
  48. p 5
  49. q 133
  50.  
  51. : 12
  52. ; Don't much care for silence deletion.
  53. < at#vsd=0|
  54. > 14 OK|`0a
  55. p 5
  56. q 134
  57.  
  58. : 14
  59. ; Silence > 6.0 seconds reported (DLE-s or DLE-q)
  60. < at#vsp=60|
  61. > 16 OK|`0a
  62. p 5
  63. q 135
  64.  
  65. : 16
  66. ; Maximum likelihood of detecting silence
  67. < at#vss=3|
  68. > 18 OK|`0a
  69. p 5
  70. q 139
  71.  
  72. : 18
  73. ; Put future inits here.
  74. g 25
  75.  
  76. : 20
  77. 0 0
  78. > 22 RING
  79. p 0
  80.  
  81. : 22
  82. > 23 RING|`0a
  83. p 8
  84. g 20
  85.  
  86. : 23
  87. ; Count subsequent rings.
  88. r 4 3 0
  89. g 22
  90.  
  91. : 25
  92. ; Zee modem, she is moody about answering right after a ring.
  93. c
  94. p t4
  95. < ata|
  96. > 30 VCON|`0a
  97. p 15
  98. g 240
  99.  
  100. : 30
  101. x $@voicetx $1 384 $@greeting.vce * # c e d b t c0
  102. ; * is skip greeting, leave message
  103. # 34 0
  104. ; # is request command mode
  105. # 40 1
  106. ; c is fax CNG
  107. # 60 2
  108. ; e is Euro data CNG
  109. # 80 3
  110. ; Dialtone, busy and local instrument pickup mean we should hang up
  111. # 240 127
  112. # 35 128
  113. g 240
  114.  
  115. : 34
  116. ; Dual sine tone, 0 Hz (=none) + 523 Hz (C above middle C), 1.5 seconds
  117. < at#vts=[0,523,15]|
  118. > 35 OK|`0a
  119. p 5
  120. g 240
  121.  
  122. : 35
  123. ; Lock modem @ 19.2; will change after <CRLF>OK<CRLF>
  124. < at#bdr=8|
  125. > 36 OK|`0a
  126. p 5
  127. g 240
  128.  
  129. : 36
  130. = 192
  131. ; Two bits per sample
  132. < at#vbs=2|
  133. > 37 OK|`0a
  134. p 5
  135. g 240
  136.  
  137. : 37
  138. ; Voice messages go in <PCCPPATH>\vmsg\
  139. x $@voicerx $1 192 $@vmsg\ 180 # d b t s q c0
  140. < at#bdr=16|
  141. > 38 OK|`0a
  142. p 5
  143. g 240
  144.  
  145. : 38
  146. = 384
  147. ; Three bits per sample (7200 samples/sec therefore 38.4)
  148. < at#vbs=3|
  149. > 240 OK|`0a
  150. p 5
  151. g 240
  152.  
  153. ; NOTE: This password technique can be cracked about 1 digit more easily
  154. ; than it might be because it permits "change-ringing" (a la churchbells)
  155.  
  156. ; The password illustrated is 314159 (look familiar?)
  157.  
  158. : 40
  159. < at#vts=[523,659,15]|
  160. > 45 `103`101`104`101`105`109
  161. ; Some modems think long DTMF sequences are also a busy signal.
  162. > 45 `103`10b`101`104`101`105`109
  163. > 45 `103`101`10b`104`101`105`109
  164. > 45 `103`101`104`10b`101`105`109
  165. > 45 `103`101`104`101`10b`105`109
  166. > 45 `103`101`104`101`105`10b`109
  167. p 10
  168. g 240
  169.  
  170. : 45
  171. x vbrowse $1 384 3 192 2 $@vmsg /d
  172. g 240
  173.  
  174. : 60
  175. ; Enter fax class 2 as a submode of voice
  176. < at#cls=2|
  177. > 62 OK|`0a
  178. p 5
  179. g 240
  180.  
  181. : 62
  182. ; This is your station ID for fax; change it!
  183. < at+flid="PCCP Noncustomized"|
  184. > 64 OK|`0a
  185. p 5
  186. g 240
  187.  
  188. : 64
  189. < at+fdcc=1,5,0,2,0,0,0,0|
  190. > 66 OK|`0a
  191. p 5
  192. g 240
  193.  
  194. : 66
  195. < at+fcr=1|
  196. > 68 OK|`0a
  197. p 5
  198. g 240
  199.  
  200. : 68
  201. ; Command beginning of protocol (we're already off-hook)
  202. < ata|
  203. x $@rcvfax $1 384 192 $@fax
  204. = 192
  205. ; Hang up because termination of a submode does not
  206. < athz|
  207. > 2 OK|`0a
  208. p 8
  209. g 240
  210.  
  211. : 80
  212. ; Enter data as a submode of voice
  213. < at#cls=0|
  214. > 82 OK|`0a
  215. p 5
  216. g 240
  217.  
  218. : 82
  219. ; Command beginning of protocol (we're already off-hook)
  220. < ata|
  221. > 84 CONNECT 38400|`0a
  222. > 85 NO CARRIER|`0a
  223. p 70
  224. g 85
  225.  
  226. : 84
  227. 0 1
  228. g 86
  229.  
  230. : 85
  231. ; Terminate data communication (but we have to hang up explicitly later)
  232. -
  233. d 85
  234. +
  235. > 240 OK|`0a
  236. p 3
  237. g 240
  238.  
  239. : 86
  240. < |`0aPlease enter password: -->
  241. > 90 kowabunga|
  242. > 88 |
  243. p 10 2
  244. : 88
  245. r 85 3 1
  246. g 86
  247.  
  248. : 90
  249. x $@session $1 384
  250. g 85
  251.  
  252. ; Absolutely, positively (we hope) hang up and re-init.
  253. : 240
  254. l 2 250
  255. g 250
  256.  
  257. ; Behold! An actual subroutine!
  258.  
  259. : 250
  260. = 384
  261. < athz|
  262. > 252 OK|`0a
  263. p 8
  264. = 192
  265. < athz
  266. > 252 OK|`0a
  267. p 8
  268. q 250
  269.  
  270. : 252
  271. j 250
  272.  
  273. : 254
  274. q 254
  275.  
  276. : 255
  277. -
  278. l 254 250
  279. g 250
  280.