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 / IF2.ZRX < prev    next >
Text File  |  1996-08-26  |  898b  |  35 lines
  1. /* REXX-Programm mit Entscheidungen */
  2.  
  3. /* Maximale Wartezeit auf 60 Sekunden setzen */
  4. CALL ZocTimeout 60
  5.  
  6. /* Warte auf 'Name?' - prÅfe Timeout und
  7.    sende Usernamen oder melde Fehler */
  8. timeout= ZocWait("Name?")
  9. IF timeout=0 THEN DO
  10.    /* 'Name?' wurde empfangen */
  11.    CALL ZocSend "Joe User^M"
  12. END
  13. ELSE DO
  14.    /* Fehler, 'Name?' wurde nicht empfangen */
  15.    CALL ZocWriteln "FEHLER (Name)!!"
  16.    CALL ZocHangup
  17.    SIGNAL GetOut   /* hier wird zum Ende gesprungen */
  18. END
  19.  
  20. /* Warte auf 'Pa·wort?' - prÅfe Timeout und
  21.    sende Pa·wort oder melde Fehler */
  22. timeout= ZocWait("Pa·wort?")
  23. IF timeout=0 THEN DO
  24.    /* 'Pa·wort?' wurde empfangen */
  25.    CALL ZocSend "geheim^M"
  26. END
  27. ELSE DO
  28.    /* Fehler, 'Pa·wort?' wurde nicht empfangen */
  29.    CALL ZocWriteln "FEHLER (Pa·wort)!!"
  30.    CALL ZocHangup
  31. END
  32.  
  33. GetOut:  /* der SIGNAL Befehl von oben landet an dieser Stelle */ 
  34. EXIT
  35.