home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / felixr.arj / SCRIPT.FLX < prev    next >
Encoding:
Text File  |  1995-01-01  |  4.4 KB  |  169 lines
  1. *
  2. *  Beispiel-Script zum Einloggen ins ZELATOR-SYSTEM BERLIN als Besucher
  3. *
  4. *  Folgende Kommandos werden benutzt:
  5. *
  6. *  clear     :=  Felix Bildschirm löscchen
  7. *  echo      :=  Text auf Felix Bildschirm ausgeben
  8. *  modem     :=  Sende Modembefehl
  9. *  wait      :=  Warten auf String mit Angabe von Timeout in Sekunden
  10. *                Syntax:  modem timeout "string"
  11. *
  12. *  tone      :=  Erzeugt einen Lautprecherton
  13. *                Syntax:  tone Frequenz Dauer
  14. *
  15. *  setpos    :=  Text anzeigen
  16. *                Syntax: ZEILE SPALTE TEXT
  17. *
  18. *  while     :=  Start einer Schleife
  19. *  enddo     :=  Ende  einer Schleife
  20. *  exit      :=  Schleife verlassen
  21. *  quit      :=  Script beenden
  22. *
  23. *****************************************************************************
  24. do blau
  25. clear
  26. echo aus
  27. *
  28. *
  29. store anwahl 1
  30. *
  31. *
  32. echo ┌─────────────────────────────────────────────────────────────┐\m\j
  33. echo │     Automatische Anwahl ZELATOR-BERLIN  Tel-Nr.: 2514308    │\m\j
  34. echo │                                                             │\m\j
  35. echo │          FELIX Version 2.2 1995 von Andreas Baumann         │\m\j
  36. echo └─────────────────────────────────────────────────────────────┘\m\j
  37. wait 3
  38. setpos 6 10 ╓──────────────────────────────────────╖  
  39. setpos 7 10 ║ █▓▓▒▒░░     Modem Reset      ░░▒▒▓▓█ ║  
  40. setpos 8 10 ╙──────────────────────────────────────╜ 
  41. modem atz\M
  42. wait 5 "OK"
  43. wait 1
  44. while
  45.      *
  46.      wait 2
  47.      *
  48.      * Beende den Script nach 5 Anwahlversuchen !!!!
  49.      *
  50.      if greater anwahl 2
  51.         echo an
  52.         clear
  53.         wait 1
  54.         quit
  55.      endif
  56.      *
  57.      *
  58.      setpos 6 10 ╓──────────────────────────────────────╖  
  59.      setpos 7 10 ║ █▓▓▒▒░░   Anwahl 2514308     ░░▒▒▓▓█ ║  
  60.      setpos 8 10 ╙──────────────────────────────────────╜ 
  61.      modem atdp2514308\M
  62.       *
  63.       * Warte 60 Sekunden auf eine Modem-Meldung.
  64.       * Nach Timeout (60 Sekunden) beende den Script.
  65.       * Wenn keine Verbindung hergestellt werden kann, soll die Schleife
  66.       * erneut ausgeführt werden.
  67.       * Konnte eine Verbindung hergestellt werden, einloggen ins System!
  68.       *
  69.       when 45 "CONNECT", "BUSY", "NO DIALTONE", "NO CARIER", "VOICE", "WAHLSPERRE"
  70.       case 0
  71.          quit
  72.       case 1
  73.          if isdcd
  74.             setpos 6 10 ╓──────────────────────────────────────╖  
  75.             setpos 7 10 ║ █▓▓▒▒░░   Verbindung OK!     ░░▒▒▓▓█ ║  
  76.             setpos 8 10 ╙──────────────────────────────────────╜ 
  77.             tone 300 1
  78.             tone 100 1
  79.             tone 300 1
  80.             tone 100 1
  81.             tone 300 1
  82.             tone 100 1
  83.             tone 300 1
  84.             tone 100 1
  85.             clear
  86.             echo an
  87.          endif
  88.          WAIT 10
  89.          *
  90.          * Mailbox starten, in diesen Beispiel durch Eingabe von "gast"
  91.          *
  92.          send gast\m
  93.          WAIT 10
  94.          *
  95.          * Sende Benutzername, in diesen Beispiel "gast"
  96.          *
  97.          SEND gast\m
  98.          WAIT 10
  99.          EXIT
  100.       case 3 6
  101.          tone 100 2
  102.          tone 100 2
  103.          tone 100 2
  104.          wait 1
  105.          setpos 6 10  ╓──────────────────────────────────────╖   
  106.          setpos 7 10  ║ █▓▓▒▒░░  Kein Wählton ???!!  ░░▒▒▓▓█ ║  
  107.          setpos 8 10  ╙──────────────────────────────────────╜
  108.          *
  109.          * Anwahl-Variabel hochzählen...
  110.          * 
  111.          incr anwahl 1
  112.          *
  113.          loop
  114.       case 2 4 5
  115.          tone 100 1
  116.          tone 100 1
  117.          tone 100 1
  118.          setpos 06 10 ╓──────────────────────────────────────╖  
  119.          setpos 07 10 ║ █▓▓▒▒░░  Keine Verbindung!!  ░░▒▒▓▓█ ║  
  120.          setpos 08 10 ╙──────────────────────────────────────╜ 
  121.          setpos 09 10 ╓──────────────────────────────────────╖  
  122.          setpos 10 10 ║ █▓▓▒▒░░  Pause 30 Sekunden!  ░░▒▒▓▓█ ║  
  123.          setpos 11 10 ╙──────────────────────────────────────╜ 
  124.          wait 30
  125.          setpos 10 10 ║ █▓▓▒▒░░                      ░░▒▒▓▓█ ║  
  126.          loop
  127.       endcase
  128. enddo
  129. *
  130. timeout 12000
  131. *
  132. * Terminal auf ANSI stellen, durch Eingabe von 1 (ohne RETURN)
  133. *
  134. SEND 1
  135. *
  136. * Deutsche umlaute Einstellen
  137. *
  138. WAIT 8
  139. send 2
  140. *
  141. * GEO-NET Steuerung einschalten  (Voreinstellung)
  142. *
  143. WAIT 8
  144. send \m
  145. *
  146. * Begruessungs-Schirm abwarten und Aktuelle Login-Info überspringen
  147. * Wartezeit ca. 40 Sekunden (2400er Modem ) !
  148. *
  149. wait 40
  150. *
  151. send demo\m
  152. wait 300
  153. *
  154. * Auflegen
  155. *
  156. hangup
  157. *
  158. * Script beenden
  159. *
  160. quit
  161. *
  162. *
  163. PROCEDURE BLAU
  164.  echo \27[33m
  165.  echo \27[47m
  166.  echo \27[1m
  167. RETURN
  168.  
  169.