home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Internet / Win3x / data1.cab / FexFiles / SCRIPTS / RTCAUDIO.SCR < prev    next >
Encoding:
Text File  |  1999-10-26  |  3.5 KB  |  224 lines
  1. !--------------------------------------------------------
  2. !
  3. !     Pour connexion en mode Audiotel ou RTC
  4. !     (C) France Multimedia 1996-1998
  5. !           
  6. !--------------------------------------------------------
  7. !
  8. !     sÈquence de dÈconnexion
  9. !
  10. *Pause 90
  11. *Xmit "+++"
  12. *Pause 180
  13. *Xmit "ATH0\13"
  14. *Pause 120
  15. *Exit 0
  16. !
  17. !--------------------------------------------------------
  18. !
  19. !     sÈquence de connexion
  20. !
  21. -label 0 
  22. ~DEBUG~
  23. CanBtn 64
  24. User 1 "~PREF~~NBA~"
  25. User 2 "~CODEA~"
  26. Display 2
  27. ! mise en place du fond de la boite de connexion
  28. SetBkPict 30000
  29. DsplyPic 100
  30. ShowPrice "Co˚t de communication: se rÈfÈrer au menu Aide - Tarifs de connexion"
  31. DsplyMsg "Teste le Modem..."
  32. Pause 30
  33. CanBtn 63
  34. SetTries 0
  35. Transport 9 ~TRANSPORT~
  36. MatchStr 1 2 "OK"
  37. !
  38. -Label 1
  39. !
  40. Xmit "~RESETSEQ~\13"
  41. Wait 200
  42. Xmit "+++"
  43. Wait 200
  44. Xmit "ATQ0\13"
  45. Wait 200
  46. IncTries
  47. IfTries 2 60
  48. Jump 1
  49. !
  50. -Label 2
  51. !
  52. Flush
  53. MatchStr 1 3 "OK"
  54. MatchStr 2 3 "ERR"
  55. DsplyPic 200
  56. DsplyMsg "Initialisation du Modem..."
  57. Pause 30
  58. Xmit "~INITSEQ~\13"
  59. Wait 500
  60. Jump 60
  61. !
  62. -Label 3
  63. DsplyMsg "NumÈrotation du ^1 en cours..."
  64. Pause 30
  65. MatchStr 1 59 "No Carrier"
  66. MatchStr 2 4 "Connect"
  67. MatchStr 3 54 "NO DIALTONE"
  68. MatchStr 4 53 "DELAYED"
  69. MatchStr 5 53 "FORBID"
  70. MatchStr 6 52 "BUSY"
  71. MatchStr 7 20 "CARRIER"
  72. MatchStr 8 12 "PROTOCOL"
  73. Xmit "~IMP/MULTF~\13"
  74. DsplyPic 300
  75. Wait 2000
  76. User 1 ""
  77. User 3 ""
  78. DsplyPic 200
  79. Wait 2000
  80. Jump 54
  81. !
  82. -Label 4
  83. !
  84. MatchStr 1 31 "PASS:"
  85. MatchStr 2 61 "NO CARRIER"
  86. MatchStr 3 11 "SIAM GO"
  87. MatchStr 4 57 "LIB"
  88. Wait 3600
  89. Jump 57
  90. !
  91. -Label 5
  92. DsplyPic 400
  93. DsplyMsg "^1 - ^3"
  94. Pause 30
  95. Wait 3600
  96. Jump 57
  97. !
  98. -Label 11
  99. !
  100. DsplyPic 500
  101. DsplyMsg "^1 - ^3"
  102. Pause 60
  103. Exit 0
  104. !
  105. -Label 12
  106. MatchStr 9 13 "NONE"
  107. MatchStr 10 14 "LAPM"
  108. MatchStr 11 15 "ALT"
  109. MatchStr 12 14 "LAP-M"
  110. Wait 500
  111. Jump 5
  112. !
  113. -Label 13
  114. User 1 "Protocole : aucune"
  115. Jump 5
  116. !
  117. -Label 14
  118. User 1 "Protocole : LAP-M"
  119. Jump 5
  120. !
  121. -Label 15
  122. User 1 "Protocole : MNP"
  123. Jump 5
  124. !
  125. -Label 20
  126. MatchStr 9 21 "12000"
  127. MatchStr 10 22 "2400"
  128. MatchStr 11 23 "9600"
  129. MatchStr 12 24 "14400"
  130. MatchStr 13 25 "1200"
  131. Wait 500
  132. Jump 5
  133. !
  134. -Label 21
  135. User 3 "Connexion : 12000 bds"
  136. Jump 5
  137. !
  138. -Label 22
  139. User 3 "Connexion : 2400 bds"
  140. Jump 5
  141. !
  142. -Label 23
  143. User 3 "Connexion : 9600 bds"
  144. Jump 5
  145. !
  146. -Label 24
  147. User 3 "Connexion : 14400 bds"
  148. Jump 5
  149. !
  150. -Label 25
  151. User 3 "Connexion : 1200 bds"
  152. Jump 5
  153. !
  154.  
  155. -Label 31
  156. Pause 60
  157. SetTries 0
  158. Jump 32
  159. !
  160. -Label 32
  161. Xmit "^2\13"
  162. MatchStr 1 11 "SIAM GO"
  163. MatchStr 2 61 "NO CARRIER"
  164. MatchStr 3 57 "LIB"
  165. Wait 400
  166. IncTries
  167. IfTries 3 57
  168. Jump 32
  169. !
  170. -Label 52
  171. Alert 63 "Toutes les lignes sont occupÈes! Essayez plus tard!"
  172. Jump 63
  173. !
  174. -Label 53
  175. Alert 63 "Echec en numÈrotation ! Votre modem m'empÍche de numÈroter (N∞ br˚lÈ). RÈinitialisez-le et recommencez !"
  176. Jump 63
  177. !
  178. -Label 54
  179. Alert 63 "ProblËme de numÈrotation! (N'oubliez pas le 0 si vous passez par un standard!)"
  180. Jump 63
  181. !
  182. -Label 55
  183. Alert 63 "Ce modem n'est pas totalement compatible Hayes !"
  184. Jump 63
  185. !
  186. -Label 56
  187. !
  188. Alert 63 "Pas de synchronisation avec le serveur. Recommencez."
  189. Jump 63
  190. !
  191. -Label 57
  192. !
  193. Alert 63 "ProblËme avec l'accËs. Essayez plus tard."
  194. Jump 63
  195. !
  196. -Label 59
  197. !
  198. Alert 63 "Le ^1 est indisponible. Essayez plus tard."
  199. Jump 63
  200. !
  201. -Label 60
  202. !
  203. Alert 63 "Le modem ne rÈpond pas."
  204. exit -1
  205. !
  206. -Label 61
  207. !
  208. Alert 63 "Je n'arrive pas ‡ Ètablir la connexion."
  209. Jump 63
  210. !
  211. -Label 63
  212. !
  213. Pause 90
  214. Xmit "+++"
  215. Pause 180
  216. Xmit "ATH\13"
  217. Pause 120
  218. exit -1
  219. !
  220. -Label 64
  221. !
  222. exit -1
  223.  
  224.