Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!samsung!munnari.oz.au!csc!kjm100
From: kjm100@csc.anu.oz
Newsgroups: comp.lang.fortran
Subject: Help! How to read SUN keyboard chars in SUN FORTRAN?
Message-ID: <2587.26b69a29@csc.anu.oz>
Date: 1 Aug 90 09:00:24 GMT
Organization: Computer Services, Australian National University
Lines: 47


31 July 1990

*** Attention: SUN FORTRAN/C/OS gurus ***

I would be very grateful if anyone could tell me how to read keyboard 
characters --- one at a time without echoing those characters to the 
terminal --- within a SUN FORTRAN program.  One would think that using 
the integer function GETC would do the trick but no ...

Specific application:

   I have written a CCD stellar photometry package (see Mighell 1989, 
   Mon. Not. R. astr. Soc. 238:807-833) which currently runs on VAX VMS 
   systems. Since the big VAX at Mount Stromlo will be removed in November 
   I am currently trying to port the package over to SUN machines.  

   My program reads the coordinates from a Tektronix 4010 crosshairs 
   (GIN mode) without echoing the cryptic Tektronix 4010 codes back 
   to the graphics terminal.  This is easy to do within VAX FORTRAN 
   but is apparently very difficult within SUN FORTRAN.  

Plea for help:

   Surely this problem was solved a long time ago in SUNland but the terse
   SUN documentation makes a lone scientist long for the rather verbose 
   VAX user manuals.

   Apparently it is possible to overide the standard terminal definitions 
   of the SUN operating system within a SUN C program but how can this be 
   done within SUN FORTRAN?


*** ANY help would be greatly appreciated!!! ***

Thank you,
Ken Mighell


-- 

+-----------------------------------------------------------------------------+
| Kenneth John Mighell                                                        | 
| Mount Stromlo and Siding Spring Observatories                               |
| Private Bag, Post Office Weston Creek, ACT 2611, AUSTRALIA                  |
| email: mighell@mso.anu.oz.au (INTERNET) phone: 06-249-0234 fax: 06-249-0233 |
+-----------------------------------------------------------------------------+