Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!batcomputer!cornell!uw-beaver!zephyr.ens.tek.com!vice!bobb
From: bobb@vice.ICO.TEK.COM (Bob Beauchaine)
Newsgroups: comp.lang.pascal
Subject: Re: For Sale: Borland Turbo Pascal Toolboxes
Message-ID: <7229@vice.ICO.TEK.COM>
Date: 5 Apr 91 01:36:34 GMT
References: <9785.27fa82b8@ohstpy.mps.ohio-state.edu>
Reply-To: bobb@vice.ICO.TEK.COM (Bob Beauchaine)
Organization: Tektronix, Inc., Beaverton,  OR.
Lines: 22


  In an earlier post I made a glaring error.  I posted a function
  called pressedkey to replace the crt keypressed function.  The
  last line of the function read

    pressedkey := (regs.flags and fzero) <> 0;

  It should read

    pressedkey := (regs.flags and fzero) = 0;

  I have subsequently coded and tested both functions.  The pressedkey
  function behaves identically to the crt keypressed function, and
  does *not* remove the keystroke from the keyboard buffer as I
  thought it might.

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ 

Bob Beauchaine bobb@vice.ICO.TEK.COM 

C: The language that combines the power of assembly language with the 
   flexibility of assembly language.