home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 61 / CDPowerplay61Disc2.iso / OUTLINE / GMNTL1.SC_ / GMNTL1.SC
Encoding:
Text File  |  1993-12-07  |  1.6 KB  |  108 lines

  1. !--------------------------------------------------------
  2. !
  3. !     Script General pour Minitel M1 pour PC
  4. !
  5. !          (C) Computer Answer Line 1993
  6. !
  7. !
  8. !     version: 2.1
  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. User 1 "~CODEA~"
  28. Prompt "Allumez votre minitel et composez le numΘro d'appel, puis faites CONNEXION/FIN."
  29. !
  30. Display 1
  31. SetTries 0
  32. Transport 9 ~TRANSPORT~
  33. Flush
  34.  
  35. -Label 3
  36. DsplyMsg "Appel de ^1"
  37. Xmit "^1\19A\13"
  38. MatchStr 1 58 "LIB"
  39. MatchStr 2 11 "MWS GO"
  40. MatchStr 3 9  "demande"
  41. MatchStr 4 11 "SIAM GO"
  42. Wait 3600
  43. Jump 56
  44.  
  45. -Label 5
  46. SetTries 0
  47.  
  48. -Label 20
  49. MatchStr 1 11 "WS GO"
  50. MatchStr 2 11 "SIAM GO"
  51. Wait 30
  52. IncTries
  53. IfTries 200 61
  54. Jump 20
  55.  
  56. -Label 9
  57. Pause 60
  58. Xmit "\19E^1\19A"
  59. Wait 600
  60. IncTries
  61. IfTries 5 56
  62. Jump 9
  63. !
  64. -Label 11
  65. !
  66. Pause 60
  67. Exit 0
  68. !
  69. -Label 56
  70. !
  71. Alert 63 "Pas de synchronisation avec le serveur. Recommencez."
  72. Jump 63
  73. !
  74. -Label 57
  75. !
  76. Alert 63 "ProblΦme avec Transpac/TΘlΘtel. Essayez plus tard."
  77. Jump 63
  78. !
  79. -Label 58
  80. !
  81. Alert 63 "Le service ^1 est indisponible. Essayez plus tard."
  82. Jump 63
  83. !
  84. -Label 59
  85. !
  86. Alert 63 "Le service ^1 est indisponible. Essayez plus tard."
  87. exit -1
  88. !
  89. -Label 60
  90. !
  91. Alert 63 "Le modem du minitel ne rΘpond pas."
  92. exit -1
  93. !
  94. -Label 61
  95. !
  96. Alert 63 "Je n'arrive pas α Θtablir la connexion."
  97. exit -1
  98. !
  99. -Label 63
  100. !
  101. exit -1
  102. !
  103. -Label 64
  104. !
  105. exit -1
  106.  
  107.  
  108.