Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!rpi!uupsi!sunic!news.funet.fi!uwasa.fi!ts
From: ts@uwasa.fi (Timo Salmi)
Newsgroups: comp.lang.pascal
Subject: Re: Disable Control-Break in TP version 4
Message-ID: <1990Oct12.213117.2117@uwasa.fi>
Date: 12 Oct 90 21:31:17 GMT
References: <4387@peora.ccur.com> <1990Oct11.120204.2912@uwasa.fi> <1990Oct12.111159.23213@csun.edu>
Organization: University of Vaasa
Lines: 36

In article <1990Oct12.111159.23213@csun.edu> abcscnuk@Twg-S5.uucp (Naoto Kimura (ACM)) writes:

>Quite true!  It took me quite a while trying to remember where I saw it
>(in the description of the Crt unit), so I could mention the page number
>on which it appeared.  I found it a few days ago, but I can't say what
>page number since I don't have the manual with me.

The page numbers on the TP 4.0 manual are not useful anyway, since
there are different versions in circulation with slightly divergent
placing of items. 

>Minor correction is needed in the code:
>
>]     :
>]procedure TEST;
>]var key : char;
>]begin
>]  repeat
>]    if KeyPressed then
>]      begin
>]        key := ReadKey;
>]        case key of
>	   (* account for special keys (F1..F10, arrows, etc.) *)
>	   (* otherwise we can misinterpret them               *)
>           #0 : begin
>		    write(' (0,',ord(ReadKey),') ');
>		    Key := ReadKey;
>		end;

Minor correction of the correction is needed :-).  Run and test the
original code.  It works as it was. 

...................................................................
Prof. Timo Salmi        (Moderating at anon. ftp site 128.214.12.3)
School of Business Studies, University of Vaasa, SF-65101, Finland
Internet: ts@chyde.uwasa.fi Funet: gado::salmi Bitnet: salmi@finfun