Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!princeton!njin!uupsi!sunic!chalmers.se!mathrt0.math.chalmers.se!d0micke
From: d0micke@dtek.chalmers.se (Mikael Andersson)
Newsgroups: comp.sys.amiga.programmer
Subject: Re: How to make a mulit-lingual dictionary?
Message-ID: <1991Apr28.153424.11589@mathrt0.math.chalmers.se>
Date: 28 Apr 91 15:34:24 GMT
References: <51684@nigel.ee.udel.edu> <1154@cbmger.UUCP>
Sender: news@mathrt0.math.chalmers.se (Evald Nyhetsson)
Reply-To: d0micke@dtek.chalmers.se (Mikael Andersson)
Organization: Chalmers University of Technology, Gothenburg, Sweden.
Lines: 59


In article <1154@cbmger.UUCP>, peterk@cbmger.UUCP (Peter Kittel GERMANY) writes:
|> 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

 This works fine, but what if the poor guy wants a 10000 word dictionary and
 is using AmigaBASIC ? ?
 He is bound to get gray hairs - that's for sure.
 

 /Mikael


-- 
* At school:         Holidays:        *
* Mikael Andersson   Mikael Andersson * The best solution to a problem is  
* Welandergatan 28   Murarv{gen 62    * always neat, simple and wrong.
* 416 56 G|teborg    902 51 Ume}      *
 
--
* At school:         Holidays:        *
* Mikael Andersson   Mikael Andersson * The best solution to a problem is  
* Welandergatan 28   Murarv{gen 62    * always neat, simple and wrong.
* 416 56 G|teborg    902 51 Ume}      *