Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!think.com!cass.ma02.bull.com!mips2!bull.bull.fr!corton!mcsun!sunic!cs.umu.se!dvlhma
From: dvlhma@cs.umu.se (Henrik Magnusson)
Newsgroups: comp.lang.pascal
Subject: Re: Turbo Pascal v6.0 crt bug
Message-ID: <1991May13.131533.19545@cs.umu.se>
Date: 13 May 91 13:15:33 GMT
References: <1991May9.161613.26915@cs.odu.edu>
Sender: news@cs.umu.se (News Administrator)
Organization: Dep. of Info.Proc, Umea Univ., Sweden
Lines: 46

In article <1991May9.161613.26915@cs.odu.edu> popkin@osric.cs.odu.edu (Brian N. Popkin) writes:
>
>In the following program the chkcbreak doesn't stop me from breaking the 
>program.  I press break once while its running, its does nothing, if I press
>it a second time it breaks and exits the program... is this a bug?
>
>program test(input,output);
>
>uses
>  crt;
>
>var
>  dummy : char;
>  CheckBreak : Boolean;
>
>begin
>  CheckBreak := FALSE;
>  writeln;
>  writeln('Hey....Press Enter');
>  readln(dummy);
>  writeln('Hey....Press Enter');
>  readln(dummy);
>end.
>
>
>
>I have also tried CRT.CheckBreak := False..
>
>The manual says of you set it to false it should not allow the user to break
>the program..
>
>Brian
>
Why are you redefining checkbreak (line 8 in your program).
I've used checkbreak many times without any kind of trouble. Try
without redefining checkbreak. If it doesn't work send me a note and
i'll give you an extract of a program where i use it without any trouble.

/NeNNe

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Henrik Magnusson           :: "How'd you puncture that tyre?"           ::
:: dvlhma@cs.umu.se           :: "Ran over a milk bottle"                  ::
::                            :: "Didn't you see it?"                      ::
:: Umeaa University, Sweden   :: "Damn kid had it under his coat."         ::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::