Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10.2 9/18/84; site bocklin.UUCP Path: utzoo!linus!philabs!cmcl2!seismo!hao!noao!arizona!bocklin!gregg From: gregg@bocklin.UUCP Newsgroups: net.lang Subject: Re: Snobol -> Icon translation desired!! Message-ID: <416@bocklin.UUCP> Date: Tue, 29-Oct-85 14:40:01 EST Article-I.D.: bocklin.416 Posted: Tue Oct 29 14:40:01 1985 Date-Received: Fri, 1-Nov-85 03:15:29 EST References: <45000004@hpcnof.UUCP> Organization: Dept of CS, U of Arizona, Tucson Lines: 25 In article <45000004@hpcnof.UUCP> dat@hpcnof.UUCP writes: > > &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 Here's a reasonably straightforward translation: procedure main() repeat { write("What is your name?") if trim(read()) == "DAVE" then stop("Hello, Dave!") write("I don't know you!") } end -- Gregg Townsend / Computer Science Dept / Univ of Arizona / Tucson, AZ 85721 +1 602 621 4325 110 57 03 W / 32 14 07 N {noao|mcnc|ihnp4|utah-cs}!arizona!gregg gregg%arizona@csnet-relay.ARPA