Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!swrinde!cs.utexas.edu!uunet!cbmvax!cbmehq!cbmger!peterk
From: peterk@cbmger.UUCP (Peter Kittel GERMANY)
Newsgroups: comp.sys.amiga.programmer
Subject: Re: How to make a mulit-lingual dictionary?
Message-ID: <1154@cbmger.UUCP>
Date: 24 Apr 91 12:33:59 GMT
References: <51684@nigel.ee.udel.edu>
Reply-To: peterk@cbmger.UUCP (Peter Kittel GERMANY)
Organization: Commodore Bueromaschinen GmbH, West Germany
Lines: 37

In article <51684@nigel.ee.udel.edu> PYC118@uriacc.uri.edu (Rasiel) writes:
>I would like to know how to go about making a program which would translate
>an english word to any of several languages. I imagine this could be done
>even in BASIC with endless DATA statements. I have no programming experience
>but I imagine it would look something like:

Let me change your code a little so that it will work:

       print"What word to translate";input A$
       restore English:n=0:e$=A$+"xx"
       while e$<>A$:n=n+1:read e$
          if e$="xxx" then n=-1
          wend
       if n<1 then print "Unknown word":end
      
       print"What language to translate to":input B$
       if B$="german" then restore German
       if B$="french" then restore French
       
       for i=1 to n:read e$:next
       print "English word ";A$;" is ";e$;" in ";B$
       end

       English: 
       data one,two,house,...
       data xxx: REM This must be the closing English entry 
       German:
       data eins,zwei,Haus,...   
       French:
       data un,deux,maison,...
       REM these national DATA's don't need a closing xxx entry

I say, Basic is easy.

-- 
Best regards, Dr. Peter Kittel  // E-Mail to  \\  Only my personal opinions... 
Commodore Frankfurt, Germany  \X/ {uunet|pyramid|rutgers}!cbmvax!cbmger!peterk