home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 61 / CDPowerplay61Disc2.iso / OUTLINE / GMNTL2.SC_ / GMNTL2.SC
Encoding:
Text File  |  1993-12-07  |  2.7 KB  |  172 lines
  1. !--------------------------------------------------------
  2. !
  3. !     Script General pour Minitel 10, 11, 12, 2 et photo pour PC
  4. !
  5. !          (C) Computer Answer Line 1993
  6. !
  7. !
  8. !     version: 2.2
  9. !
  10. !--------------------------------------------------------
  11. !
  12. !     sΘquence de dΘconnexion
  13. !     -----------------------
  14. !
  15. *Pause 90
  16. *Xmit "\19I\19I"
  17. *Exit 0
  18. !
  19. !--------------------------------------------------------
  20. !
  21. !     sΘquence de connexion
  22. !     ---------------------
  23. !
  24. -Label 0
  25. ~DEBUG~   
  26. CanBtn 64 
  27. !saut vers label 30 si numΘrotation manuelle et vers label 1 si numΘrotation auto.
  28. ~JUMPONMANU~
  29. -Label 1
  30. User 1 "~PREF~~NBA~"
  31. User 2 "~CODEA~"
  32. !Prompt "Allumez votre minitel et composez le numΘro d'appel, puis faites CONNEXION/FIN."
  33. !
  34. Display 1
  35. SetTries 0
  36. Transport 9 ~TRANSPORT~
  37. Flush
  38.  
  39. -Label 3
  40. DsplyMsg "NumΘrotation de ^1"
  41. !-Force du Xon/Xoff
  42. Xmit "\27;iZA"
  43. Pause 60
  44. Xmit "\279S\27;a\92S^1\27;aZD\279h"
  45. MatchStr 1 4 "service"
  46. MatchStr 2 58 "LIB"
  47. Wait 9200
  48. Jump 20
  49.  
  50. -Label 4
  51. DsplyMsg "Appel de ^2..."
  52. Pause 60
  53. Xmit "^2"
  54. Xmit "\19A\13"
  55. MatchStr 1 58 "LIB"
  56. MatchStr 2 11 "WS GO"
  57. MatchStr 3 9  "demande"
  58. MatchStr 4 11 "SIAM GO"
  59. Wait 3600
  60. Jump 20
  61.  
  62. -Label 5
  63. SetTries 0
  64.  
  65. -Label 20
  66. MatchStr 1 11 "WS GO"
  67. MatchStr 2 11 "SIAM GO"
  68. Wait 30
  69. IncTries
  70. IfTries 200 61
  71. Jump 20
  72.  
  73. -Label 9
  74. Pause 60
  75. Xmit "\19E^2\19A"
  76. Wait 600
  77. IncTries
  78. IfTries 5 56
  79. Jump 9
  80. !
  81. -Label 11
  82. !
  83. Pause 60
  84. Exit 0
  85. !    
  86. !
  87. !
  88. !________ dΘbut spΘcifique numΘrotation manuelle
  89. !
  90. -Label 30
  91. User 1 "~CODEA~"
  92. Prompt "Allumez votre minitel et composez le numΘro d'appel, puis faites CONNEXION/FIN."
  93. !
  94. Display 1
  95. SetTries 0
  96. Transport 9 ~TRANSPORT~
  97. Flush
  98. !
  99.  
  100. -Label 31
  101. DsplyMsg "Appel de ^1"
  102. Xmit "^1\19A\13"
  103. MatchStr 1 59 "LIB"
  104. MatchStr 2 11 "WS GO"
  105. MatchStr 3 39  "demande"
  106. MatchStr 4 11 "SIAM GO"
  107. Wait 3600
  108. Jump 56
  109.  
  110. -Label 35
  111. SetTries 0
  112.  
  113. -Label 40
  114. MatchStr 1 11 "WS GO"
  115. MatchStr 2 11 "SIAM GO"
  116. Wait 30
  117. IncTries
  118. IfTries 200 61
  119. Jump 40
  120.  
  121. -Label 39      
  122. Pause 60
  123. Xmit "\19E^1\19A"
  124. Wait 600
  125. IncTries
  126. IfTries 5 56
  127. Jump 39
  128. !
  129. !_________ fin specifique manuel
  130. !
  131.  
  132.  
  133. -Label 56
  134. !
  135. Alert 63 "Pas de synchronisation avec le serveur. Recommencez."
  136. Jump 63
  137. !
  138. -Label 57
  139. !
  140. Alert 63 "ProblΦme avec Transpac/TΘlΘtel. Essayez plus tard."
  141. Jump 63
  142. !
  143. -Label 58
  144. !
  145. Alert 63 "Le service ^2 est indisponible. Essayez plus tard."
  146. Jump 63
  147. !
  148. -Label 59
  149. !
  150. Alert 63 "Le service ^2 est indisponible. Essayez plus tard."
  151. exit -1
  152. !
  153. -Label 60
  154. !
  155. Alert 63 "Le modem du minitel ne rΘpond pas. VΘrifiez les branchements..."
  156. exit -1
  157. !
  158. -Label 61
  159. !
  160. Alert 63 "Je n'arrive pas α Θtablir la connexion."
  161. exit -1
  162. !
  163. -Label 63
  164. !
  165. exit -1
  166. !
  167. -Label 64
  168. !
  169. exit -1
  170.  
  171.  
  172.