Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: Notesfiles; site hpcnof.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!mhuxr!mhuxt!houxm!vax135!cornell!uw-beaver!tektronix!hplabs!hpfcdc!hpfcla!hpcnof!dat
From: dat@hpcnof.UUCP
Newsgroups: net.lang
Subject: Snobol -> Icon translation desired!!
Message-ID: <45000004@hpcnof.UUCP>
Date: Fri, 18-Oct-85 11:37:00 EDT
Article-I.D.: hpcnof.45000004
Posted: Fri Oct 18 11:37:00 1985
Date-Received: Wed, 23-Oct-85 04:20:39 EDT
Organization: 18 Oct 85 09:37:00 MDT
Lines: 35


I'd be most grateful if someone could translate the following (simple)
Snobol program into Icon for me, so that I can get a quick feel for the
new language (any references to Icon would also be appreciated!!)

Anyway, here's the program:

*	Very Simple Snobol Program to ask a question until the correct answer
*       is posted.
*
*       Dave Taylor

	&ANCHOR = 1
	&TRIM   = 1

TOP	OUTPUT = "WHAT IS YOUR NAME?"
	STRING = INPUT

	STRING   "DAVE"  RTAB(0)		:F(OTHER)
	OUTPUT = "HELLO DAVE!"			:(END)

OTHER	OUTPUT = "I DON'T KNOW YOU!"		:(TOP)

END 

(I warned you it was rather simple!)

		Thanks a lot!

					-- Dave Taylor

					ihnp4!hpfcla!d_taylor
					hplabs!hpcnof!dat

					hpcnof!dat@HPLABS