home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sys / apple2 / 20138 < prev    next >
Encoding:
Text File  |  1992-09-11  |  2.2 KB  |  42 lines
  1. Newsgroups: comp.sys.apple2
  2. Path: sparky!uunet!sun-barr!cs.utexas.edu!zaphod.mps.ohio-state.edu!moe.ksu.ksu.edu!ux1.cso.uiuc.edu!usenet.ucs.indiana.edu!newshost.cs.rose-hulman.edu!news
  3. From: moorera@HYDRA.ROSE-HULMAN.EDU (Ryan A Moore)
  4. Subject: Re: Keypress function in pascal?
  5. Message-ID: <1992Sep11.142948.1929@cs.rose-hulman.edu>
  6. Sender: news@cs.rose-hulman.edu (The News Administrator)
  7. Nntp-Posting-Host: hydra.rose-hulman.edu
  8. Reply-To: moorera@HYDRA.ROSE-HULMAN.EDU
  9. Organization: Rose-Hulman Institute of Technology
  10. References: <1992Sep5.170740.54265@qut.edu.au>
  11. Date: Fri, 11 Sep 1992 14:29:48 GMT
  12. Lines: 28
  13.  
  14. In article <1992Sep5.170740.54265@qut.edu.au>, hollandd@qut.edu.au writes:
  15. >>But to the point.  Does there exist in Orca pascal a function that
  16. >will return a keypress without waiting for return to be pressed?
  17. >Not as far as I can tell from the manual?
  18.  
  19.  
  20. I have gotten working code for ORCA/Pascal.  The code uses the Keyboard Status
  21. Register to check if anything has been typed on the keyboard and then read the
  22. key once something has been typed.  Once you read the register, you need to
  23. clear the keyboard strobe manualy though, no big deal...
  24.  
  25. I had that code here in my VAX ccount TWO days ago, but deleted it...  oh
  26. well, I'll just have to get it from my GS again...  if no one posts code, I'll
  27. post it ASAP...
  28. >================================================================================
  29. >Darren Holland: Research Assistant  ->   | School of Social, Business and
  30. >  - Post-Graduate Student:               | Environmental Education.
  31. >  - Faculty of Information Technology    | Queensland University of Technology
  32. >email: hollandd@redgum.qut.edu.au        | Brisbane, Australia.
  33. >================================================================================
  34.  
  35. Ryan Moore
  36. -------------------------------------------------------------------------------
  37. |  Ryan A. Moore            |      Rose-Hulman Institute       |
  38. |  moorera@rosevc.rose-hulman.edu       |             of Technology           |
  39. |  Okay, so I'm a geeky computer science|            Terre Haute, IN          |
  40. |  major...  BIG DEAL!            |                WHERE?               |
  41. ------------------May use a VAX, but I still love my Apple IIgs!!--------------
  42.