home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sys / apple2 / 20092 < prev    next >
Encoding:
Text File  |  1992-09-10  |  1.9 KB  |  52 lines
  1. Newsgroups: comp.sys.apple2
  2. Path: sparky!uunet!munnari.oz.au!comp.vuw.ac.nz!actrix!David.Empson
  3. From: David.Empson@bbs.actrix.gen.nz
  4. Subject: Re: Keypress function in pascal?
  5. Organization: Actrix Information Exchange
  6. Date: Thu, 10 Sep 1992 13:32:30 GMT
  7. Message-ID: <1992Sep10.133230.28985@actrix.gen.nz>
  8. References: <1992Sep5.170740.54265@qut.edu.au>
  9. Sender: David.Empson@actrix.gen.nz (David Empson)
  10. Lines: 40
  11.  
  12. In article <1992Sep5.170740.54265@qut.edu.au> hollandd@qut.edu.au writes:
  13. > 
  14. > I need some help with a simple programming problem..
  15. > 
  16. > The situation is that I have to do a particular project in pascal,
  17. > and since I normally use my nice new version of ORCA C, my copy of
  18. > ORCA Pascal is now rather out of date.. 
  19. > 
  20. > But to the point.  Does there exist in Orca pascal a function that
  21. > will return a keypress without waiting for return to be pressed?
  22. > Not as far as I can tell from the manual?
  23.  
  24. I don't program in ORCA/Pascal very often, and I'm not aware of any
  25. such function.  If you have the ORCA/M assembler, you could write a
  26. keypress function in assembly language, and link it to your
  27. ORCA/Pascal program.
  28.  
  29. You could also use the Text Toolset to check for a pending byte on
  30. standard input.  I'm not sure which toolbox USES files you'll require.
  31.  
  32.   StatusTextDev(0, 1);    { 0: INPUT device, 1: 'is input ready?' }
  33.   If ToolError Then
  34.     { No input is available }
  35.   Else
  36.     { Input is available }
  37.  
  38. Caveat: I haven't tried this.  I always use my assembly language
  39. IsKeypress function.
  40.  
  41. I can't remember if ORCA version 1.x uses the Pascal or BASIC 80-column
  42. firmware (the BASIC firware doesn't support this call).  ORCA 2.0 uses
  43. the GS/OS console driver, and should be able to handle this call.
  44.  
  45. Unfortunately the ORCA shell doesn't provide a 'read console' call,
  46. only 'write console'.
  47. -- 
  48. David Empson
  49.  
  50. Internet: David.Empson@bbs.actrix.gen.nz    EMPSON_D@kosmos.wcc.govt.nz
  51. Snail mail: P.O. Box 27-103, Wellington, New Zealand
  52.