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 / IF3.ZRX < prev    next >
Text File  |  1996-08-26  |  800b  |  31 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 auf Erfolg und melde Fehler */
  7. timeout= ZocWait("Name?")
  8. IF timeout=0 THEN DO /* éu·eres IF */
  9.    /* 'Name?' empfangen */
  10.    CALL ZocSend "Joe User^M"
  11.  
  12.    /* Warte auf 'Pa·wort?' - prÅfe auf Erfolg und melde Fehler */
  13.    timeout= ZocWait("Pa·wort?")
  14.    IF timeout=0 THEN DO
  15.       /* 'Pa·wort?' */
  16.       CALL ZocSend "geheim^M"
  17.    END
  18.    ELSE DO /* Inneres IF */
  19.       /* 'Pa·wort?' nicht empfangen */
  20.       CALL ZocWriteln "FEHLER (Pa·wort)!!"
  21.       CALL ZocHangup
  22.    END /* Inneres IF */
  23. END
  24. ELSE DO /* éu·eres IF */
  25.    /* 'Name?' nicht empfangen */
  26.    CALL ZocWriteln "FEHLER (Name)!!"
  27.    CALL ZocHangup
  28. END /* éu·eres IF */
  29.  
  30. EXIT
  31.