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 / IF1.ZRX < prev    next >
Text File  |  1996-08-26  |  774b  |  33 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. END
  18.  
  19. /* Warte auf 'Pa·wort?' - prÅfe Timeout und
  20.    sende Pa·wort oder melde Fehler */
  21. timeout= ZocWait("Pa·wort?")
  22. IF timeout=0 THEN DO
  23.    /* 'Pa·wort?' wurde empfangen */
  24.    CALL ZocSend "geheim^M"
  25. END
  26. ELSE DO
  27.    /* Fehler, 'Pa·wort?' wurde nicht empfangen */
  28.    CALL ZocWriteln "FEHLER (Pa·wort)!!"
  29.    CALL ZocHangup
  30. END
  31.  
  32. EXIT
  33.