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
/
TUTORIAL
/
2_IFELSE.ZRX
< prev
next >
Wrap
Text File
|
1996-08-26
|
680b
|
30 lines
/* REXX */
/* HIER WIRD GEZEIGT, WIE MIT REXX ENTSCHEIDUNGEN PROGRAMMIERT WERDEN */
CLS
/* Als erstes wird ein Requester angezeigt */
answer= ZocRequest("GefÑllt Dir ZOC?", "JA", "NEIN")
/* Das ist eine Entscheidung mit nur einer Alternative */
IF answer="##CANCEL##" THEN DO
SIGNAL endit /* als Ende springen */
END
/* Das ist eine Entscheidung mit zwei Alternativen */
IF answer="JA" THEN DO
SAY "Schîn zu hîren!"
END
ELSE DO
/* ANSWER=Nein */
SAY "Hups, bist Du Dir wirklich sicher?"
SAY "(oder hast Du es vielleicht mit Hyper Terminal verwechselt)"
END
endit: /* Hier landet der SIGNAL-Befehl von oben */
EXIT