Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uunet!cs.dal.ca!silvert
From: silvert@cs.dal.ca (Bill Silvert)
Newsgroups: comp.lang.fortran
Subject: Re: Getting a single keystroke
Summary: I have a subroutine for this
Message-ID: <1990Jan1.194328.24966@cs.dal.ca>
Date: 1 Jan 90 19:43:28 GMT
References: <#!G4|_@rpi.edu>
Sender: silvert@cs.dal.ca.UUCP (Bill Silvert)
Reply-To: bill@biomel.UUCP
Organization: Habitat Ecology Div., Bedford Inst. of Oceanography
Lines: 23

In article <#!G4|_@rpi.edu> jefu@pawl.rpi.edu (Jeffrey Putnam) writes:
>
>Now I need a simple answer (I hope the answer will not be as simple as "no"),
>Is it possible to have MS Fortran detect a single (non <cr>) keypress, and
>return a single character?   Ideally I would like a couple functions, say
>kbdhit() and getsinglechar().  

I cannot find a way to do this in MS or Lahey Fortran, but I have
assembler code that does the job.  Write me at ...!dalcs!biomel!bill and
I will send it, or post it if there is enough demand.  It will come as
a uuencoded ARC or ZOO file with source and the two OBJ files for MS and
Lahey (they use different calls).

One problem I would like help with is that they do not go through the
keyboard translator, so if you use a German keyboard mapping the Y and Z
are interchanged, and so on.


-- 
Bill Silvert, Habitat Ecology Division.
Bedford Institute of Oceanography, Dartmouth, NS, Canada B2Y 4A2
UUCP: ...!{uunet,watmath}!dalcs!biomel!bill
Internet: bill%biomel@cs.dal.CA		BITNET: bill%biomel%dalcs@dalac