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 >
Wrap
Text File
|
1996-08-26
|
800b
|
31 lines
/* REXX-Programm mit Entscheidungen */
/* Maximale Wartezeit auf 60 Sekunden setzen */
CALL ZocTimeout 60
/* Warte auf 'Name?' - prÅfe auf Erfolg und melde Fehler */
timeout= ZocWait("Name?")
IF timeout=0 THEN DO /* éu·eres IF */
/* 'Name?' empfangen */
CALL ZocSend "Joe User^M"
/* Warte auf 'Pa·wort?' - prÅfe auf Erfolg und melde Fehler */
timeout= ZocWait("Pa·wort?")
IF timeout=0 THEN DO
/* 'Pa·wort?' */
CALL ZocSend "geheim^M"
END
ELSE DO /* Inneres IF */
/* 'Pa·wort?' nicht empfangen */
CALL ZocWriteln "FEHLER (Pa·wort)!!"
CALL ZocHangup
END /* Inneres IF */
END
ELSE DO /* éu·eres IF */
/* 'Name?' nicht empfangen */
CALL ZocWriteln "FEHLER (Name)!!"
CALL ZocHangup
END /* éu·eres IF */
EXIT