I wanted to thank everyone for their input, especially Keith Johnson from DATACOM. He provided me with a link to a PickWiki entry at http://www.pickwiki.com/cgi-bin/wiki.pl?GetKey which was almost perfect for my needs. It was written for Universe but adapting it to Unidata was fairly easy. I'm not able to recognize all the function keys, cursor keys, and even the stand alone ESC key.
To modify his GetKey program, here's what I did to get it to run in Unidata 6.1: 1. Uppercase all code lines. (I left comments mixed case.) 2. Shorten the labeled common block name to 7 characters. 3. Change all KEYIN() to IN() commands. 4. Change NAP command to a small SYSTEM(12) timing loop. 5. Change NOT(ASSIGNED(...)) to UNASSIGNED(...) command. It's a self contained subroutine that is called with a single variable which is for the returning key value. It's even seems to stay accurate if you hold down a key (like the ESC key) for too long and it starts to auto repeat itself. Thanks, again, Keith and everyone else for your help! Bob Woodward System Programmer/Analyst K2 Sports _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users
