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