From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e69c0e2c6824a636
X-Google-Attributes: gid103376,public
From: do_while@ridgecrest.ca.us (Do-While Jones)
Subject: Re: help abut function keys
Date: 1998/08/12
Message-ID: <6qsfel$9tt$1@owens.ridgecrest.ca.us>#1/1
X-Deja-AN: 380441302
References: <6qbvh5$2un$1@nnrp1.dejanews.com>
Organization: RidgeNet - SLIP/PPP Internet, Ridgecrest, CA. (760) 371-3501
Newsgroups: comp.lang.ada
Date: 1998-08-12T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <6qbvh5$2un$1@nnrp1.dejanews.com>,
 <jtapasai@my-dejanews.com> wrote:
>I am learning ADA with GNAT 3.10 under Linux and my problem is :
>I have a menu with different options. Each option is executed when
>a key is pressed. My problem us that those keys are necessarily
>"special keys", such as function keys ( F1-F12);
>
>I usually used a function that returns an integer wich is the ASCII code
>of the pressed key. When the code is returned , I use a case when ...
>However, the F-keys have an special code.
>For example, F1 is ^]]A wich is 91 27 27 65 or something similar .
>How can I solve it ?
>Thanks in advance .
>

I did something like this 10 years ago for my VIRTUAL_TERMINAL package.
The body for the Meridian compiler on an IBM PC/AT is in 

ftp://www.ridgenet.net/pub/users/d/do_while/ada_in_action/disk2/
meridian/vtbmibm.ada

The "get" procedure will show you the general approach.

VIRTUAL_TERMINAL is one of the many examples from my book, Ada in Action.
You can find it at

http://www.cs.kuleuven.ac.be/~dirk/ada-belgium/aia/contents.html

I hope this helps you.

Do-While Jones

            +--------------------------------+
            |    Know                 Ada    |
            |        [Ada's Portrait]        |
            |    Will              Travel    |
            | wire do_while@ridgecrest.ca.us |
            |   www.ridgenet.net/~do_while   |
            +--------------------------------+