home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / mac / software / kommunik / misc / zoc400wg.exe / setup.fil / script / RXSAMPLE / MANUAL / ZOCLASTL.ZRX < prev    next >
Text File  |  1996-09-17  |  1KB  |  51 lines
  1. /* REXX Programm zum An- und WiederwÑhlen einer Telefonnummer */
  2.  
  3. /* Benutzer nach Telefonnummer fragen */
  4. number= ZocAsk("Welche Nummer soll gewÑhlt werden?")
  5.  
  6. /* Nummer anwÑhlen, wenn Eingabe nicht leer und kein ESC
  7.    gedrÅckt wurde */
  8.  
  9. IF number\="" & number\="##CANCEL##" THEN DO 
  10.    /* Maximal 5 Anwahlversuche */
  11.    DO TRY=1 TO 5  
  12.  
  13.       SAY "Versuch #" TRY 
  14.  
  15.       CALL ZocDial number
  16.  
  17.       /* Warte 60 Sekunden auf Antwort */
  18.       CALL ZocTimeout 60 
  19.  
  20.       /* öberprÅfe die nÑchsten 6 Zeilen */
  21.       DO LINE=1 TO 6
  22.          /* NÑchste Textzeile empfangen */
  23.          timeout= ZocGetLine()
  24.  
  25.          /* Wenn Timeout erreicht, Script mit Fehler beenden */
  26.          IF timeout=640 THEN SIGNAL ERROR
  27.  
  28.          /* Wenn belegt, Anwahl wiederholen */
  29.          IF ZOCLASTLINE()="BUSY" THEN LEAVE LINE
  30.  
  31.          /* Programm beenden, wenn kein Carrier vorhanden */
  32.          IF ZOCLASTLINE()="NO CARRIER" THEN DO
  33.             SAY "Fehler!"
  34.             LEAVE TRY    /* éu·ere Schleife verlassen */
  35.          END
  36.  
  37.          /* Verbindung erfolgreich hergestellt */
  38.          IF LEFT(ZOCLASTLINE(),7)="CONNECT" | ,
  39.              LEFT(ZOCLASTLINE(),7)="CARRIER" THEN DO 
  40.             CALL ZocBeep 3  /* Benutzer aufwecken */
  41.             LEAVE TRY    /* éu·ere Schleife verlassen */
  42.          END 
  43.  
  44.       END LINE
  45.  
  46.       CALL ZOCDELAY 30 /* 30 Sekunden warten */
  47.  
  48.    END TRY 
  49.  
  50. END /* IF */
  51.