Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!rpi!zaphod.mps.ohio-state.edu!tut.cis.ohio-state.edu!pt.cs.cmu.edu!andrew.cmu.edu!br0w+
From: br0w+@andrew.cmu.edu (Bruno W. Repetto)
Newsgroups: comp.lang.fortran
Subject: Re: Getting a single keystroke
Message-ID: <IZcz4My00Uh-A2FUt0@andrew.cmu.edu>
Date: 5 Jan 90 00:58:00 GMT
Organization: Graduate School of Industrial Administration, Carnegie Mellon, Pittsburgh, PA
Lines: 37

Bill Silvert posts:

>From: silvert@cs.dal.ca (Bill Silvert)
>Subject: Re: Getting a single keystroke
>Date: 1 Jan 90 19:43:28 GMT
>
>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

I tried your address, but my message couldn't get through, so I'll try it here.

I am interested in this code.  Could you send it to me? (If my address works
from your end)  Or please post it, if you have enough demand for it.

aTdHvAaNnKcSe!  Bruno.

br0w+@andrew.cmu.edu