[comp.lang.rexx] Switch statement in

hcobb@walt.cc.utexas.edu (Henry J. Cobb) (01/16/90)

------snip-&-clip-------------#1-in-a-sequence-------------------------------
/*
	Switch.rexx	This Program does nothing useful

	Oh, ye of little faith.  Tis easy to switch in (or to) Rexx!
*/

if sw. = "SW." then do		/* Why should you do this test? */
	sw. = "say default"
	sw.1 = " say a"
	sw.2 = "a = a +1; interpret sw.1"		
				/* Is this a function pointer? */
	sw.3 = "parse version b; say b"
end

a = 1
do i = 1 to 4
	interpret sw.i		/* Love that crazy syntax! */
end

/*	Complaints should be sent to:

	Henry J. Cobb	hcobb@ccwf.cc.utexas.edu
*/