🚀 go-pugleaf

Use halt command instead of exit. Anyway not the nicest solution, but
should work :)

On Thu, 18 May 2000 br-pede@online.no wrote:

> 
> 
> I am trying to make a software, where the user can put in some word, and the
> program will look and see if the word(s) is in a wordlist file. Everything
> is working pretty well, except this: The procedure is running in a recursive
> way, that if you want to look up more than one word, you only put it in next
> time you are asked. To exit this, you only have to input an empty string,
> that is to press the ENTER key. And here is the trouble. The program will
> not stop this looping, unless you enter several empty words.
> 
> Here is the snip of the program that is causing trouble:
> 
> procedure lookup;
> begin
>     writeln;
>     write('please enter word to be looked up: ');
>     readln( s ); { s : STRING; }
>     if s = '' then exit; { this doesn't work,
>                            unless running a couple of
>     assign(f,'wordlist.dat'); reset(f);
>     repeat
>          read(f,t); { t : STRING }
>          if t = s then found := true   else found := false; {found : BOOLEAN}
>     until eof(f);
>     close(f); {f : FILE OF STRING}
>     if not found then begin
>          writeln('the word ', s, 'is not found in the list');
>          lookup;
>       end;{if}
>     writeln('the word ', s, ' is found in the list');
> end;{ procedure lookup}
> 
> Begin
>     { call a menu}
>     Repeat read(keychoice) until keychoice in [#0 .. #255];
>     { keychoice : CHAR }
>     if keychoice = '1' then lookup;
>     { call the menu}
>     ...
> end.
> 
> Hope anybody out there could help. It will be greatly appriciated.
> 
> regards,
> Brian
> times}
> Net-Tamer V 1.11 - Test Drive
>