Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!sdd.hp.com!zaphod.mps.ohio-state.edu!samsung!uunet!math.fu-berlin.de!unido!fauern!faui43.informatik.uni-erlangen.de!prknoerr
From: prknoerr@immd4.informatik.uni-erlangen.de (Peter Knoerrich)
Newsgroups: comp.lang.pascal
Subject: TPascal-puzzle
Summary: figure this out!
Keywords: puzzle,pascal,turbo
Message-ID: <1991Jun25.114723.5433@informatik.uni-erlangen.de>
Date: 25 Jun 91 11:47:23 GMT
Organization: CSD., University of Erlangen, Germany
Lines: 29

I once did some hard debugging on some Turbo-Pascal code looking somewhat
like this (wonder if someone is really interested in pascal puzzles !?!?):

var
  confirm : boolean;
  key     : char;

begin
  confirm := false;
  key     := '0';
  case key of
    '1' : Menue1;
    '2' : Menue2;
    '3' : Menue3;
    '0' : if confirm then
            RequestExit;
          else
            FastExit;
  end;
end;

This piece of program would compile OK, but I could never manage to
get a FastExit! To any pascal-fox the solution should be obvious 
(in fact I feel an itch typinng in the error), but at least c-freaks
should have some figuring to do...

-------------------------------------------------------------------------
.sig? You must be kidding with all those SIGKILLs around on this machine!
Peter Knoerrich,        email: prknoerr@faui43.informatik.uni-erlangen.de