home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / cat25 / scripts / rufus / tausch2.ruf < prev   
Text File  |  1993-03-25  |  3KB  |  153 lines
  1. print "                 MausTausch-Batch v1.21 by Dirk Steins"
  2. print "                             ESC bricht ab!"
  3. print
  4. #
  5. # Wahlwiederholung ausschalten
  6. REPEAT=0    
  7. print
  8. print "Maustausch mit Maus Köln 2"
  9. print
  10. # Variablen initialisieren
  11. calls=0
  12. fehler=0
  13. # Maus Köln 2 anwählen
  14. 1:
  15. # 2 Sekunden warten
  16. wait 2000
  17. gosub 50
  18. dial "Maus Köln-Porz"
  19. if status=0 then 9
  20. if status=1 then 2
  21. if status=2 then 3
  22. if status=3 then 4
  23. print " Maus Köln 2: unbekannter Fehler, Batch abgebrochen!"
  24. fehler=1
  25. goto 99
  26. 2:
  27. print "Maus Köln 2: Busy"
  28. goto 1
  29. 3:
  30. print "Maus Köln 2: No Carrier"
  31. goto 1
  32. 4:
  33. print "Maus Köln 2: Error"
  34. goto 1
  35. 9:
  36. print "Maus Köln 2: Connect"
  37. print
  38. print "Einloggen in Maus"
  39. print
  40. if LOGGING=0 then 10
  41. log "Connect nach ";
  42. log calls;
  43. log "Versuchen"
  44. 10:
  45. # Auf erste Frage warten
  46. rwait 30000,"Benutzer","MausNet"
  47. if status<0 then 70
  48. if status=1 then 76
  49. send "j";
  50. # 30 Sekunden auf zweite Eingabe-Aufforderung warten
  51. rwait 30000,"Name"
  52. if status<>0 then 71
  53. # Sende Funktionstaste F1
  54. send f1 ;
  55. # 1 Sekunden warten
  56. wait 1000
  57. # Sende Funktionstaste Shift-F1 (passwort)
  58. send f11 ;
  59. # auf Hauptmenu warten
  60. rwait 20000,"Haupt"
  61. if status<>0 then 72
  62. # Maustausch anwählen
  63. send "T";
  64. # auf Protokoll-Anforderung warten
  65. rwait 20000,"Proto"
  66. if status<>0 then 73
  67. # Z-Modem als Protokoll
  68. send "Z";
  69. # eine halbe Sekunde warten
  70. wait 500
  71. # Infile senden
  72. print "Infile senden"
  73. print
  74. upload "INFILE.TXT"
  75. if status<>0 then 74
  76. # Warten auf Outfile
  77. print "Warten auf Outfile..."
  78. print
  79. # erstmal 2 sekunden warten
  80. wait 2000
  81. # maximal 2 Minuten warten
  82. rwait 120000,"startet"
  83. # Ohne Dateinamen, der kommt per Z-Modem
  84. print "Outfile empfangen"
  85. print
  86. download
  87. if status<>0 then 75
  88. # Fertig mit Tausch, nun Ausloggen
  89. # Da auch Fehlerbehandlung, erstmal ein Z senden
  90. 80:
  91. send "Z";
  92. wait 1000
  93. send "S";
  94. wait 1000
  95. send "J";
  96. # Noch auf No Carrier vom Modem warten
  97. rwait 10000,"NO"
  98. # und nun tschööö 
  99. 99:
  100. if fehler=1 then 98
  101. quit
  102. 98:
  103. end
  104. 70:
  105. print
  106. print "Fehler in der Maus: Keine Frage nach Benutzer!"
  107. print
  108. fehler=1
  109. goto 99
  110. 71:
  111. print
  112. print "Fehler in der Maus: Keine Frage nach Namen!"
  113. print
  114. fehler=1
  115. goto 99
  116. 72:
  117. print
  118. print "Fehler in der Maus: Hauptmenu kommt nicht!"
  119. print
  120. fehler=1
  121. goto 80
  122. 73:
  123. print
  124. print "Fehler in der Maus: Protokollanforderung kommt nicht!"
  125. print
  126. fehler=1
  127. goto 80
  128. 74:
  129. print
  130. print "Fehler bei der Übertragung: Infile nicht gesendet!"
  131. print
  132. fehler=1
  133. goto 80
  134. 75:
  135. print
  136. print "Fehler bei der Übertragung: Outfile nicht empfangen!"
  137. print
  138. fehler=1
  139. goto 80
  140. 76:
  141. bell 0
  142. print
  143. print "MausNet läuft, Batch wurde abgebrochen"
  144. print
  145. goto 98
  146.  
  147. 50:
  148. # Subroutine für Ausgabe der Anrufanzahl
  149. calls=calls+1
  150. print "Versuch Nr. ";
  151. print calls
  152. return
  153.