/* REXX */

/* THIS SCRIPT SHOWS HOW DECISIONS WORK IN REXX */

CLS

/* show a nice request window to the user */
REQUEST '"Do you like ZOC?"' YES NO 
ANSWER=ZOCRESULT()

/* here comes a decision with one alternative */
IF ANSWER="##CANCEL##" THEN SIGNAL END	/* jump to the end */


/* here comes a decision with two alternatives */
IF ANSWER="YES" THEN 
	DO 
	WRITELN Nice to hear that!
	END
ELSE /* ANSWER=NO */
	DO 
	WRITELN "Oops, are you really sure about that?"
	WRITELN "(maybe you mixed it up with Windows NT)"
	END


END:	/* target for the SIGNAL command above */