<span class="comment"><em>-- B O D Y --</em></span>
<span class="comment"><em>-- --</em></span>
<span class="comment"><em>------------------------------------------------------------------------------</em></span>
-<span class="comment"><em>-- Copyright 2018,2020 Thomas E. Dickey --</em></span>
+<span class="comment"><em>-- Copyright 2018-2020,2024 Thomas E. Dickey --</em></span>
<span class="comment"><em>-- Copyright 2007-2011,2014 Free Software Foundation, Inc. --</em></span>
<span class="comment"><em>-- --</em></span>
<span class="comment"><em>-- Permission is hereby granted, free of charge, to any person obtaining a --</em></span>
<span class="comment"><em>------------------------------------------------------------------------------</em></span>
<span class="comment"><em>-- Author: Juergen Pfeifer, 1996</em></span>
<span class="comment"><em>-- Version Control:</em></span>
-<span class="comment"><em>-- @Revision: 1.16 @</em></span>
-<span class="comment"><em>-- @Date: 2020/02/02 23:34:34 @</em></span>
+<span class="comment"><em>-- @Revision: 1.17 @</em></span>
+<span class="comment"><em>-- @Date: 2024/03/30 13:24:07 @</em></span>
<span class="comment"><em>-- Binding Version 01.00</em></span>
<span class="comment"><em>------------------------------------------------------------------------------</em></span>
<b>with</b> System;
<span class="symbol"><a name="ref_562_7">L</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> := <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> (Natural (<a href="terminal_interface-curses__ads.htm#ref_111_4">Key_F0</a>) +
Natural (<a href="terminal_interface-curses__ads.htm#ref_949_12">Function_Key_Number</a>'Last));
<b>begin</b>
- <b>if</b> (<a href="terminal_interface-curses__ads.htm#ref_945_30">Key</a> >= <a href="terminal_interface-curses__ads.htm#ref_111_4">Key_F0</a>) <b>and</b> <b>then</b> (<a href="terminal_interface-curses__ads.htm#ref_945_30">Key</a> <= <a href="terminal_interface-curses__adb.htm#ref_562_7">L</a>) <b>then</b>
+ <b>if</b> <a href="terminal_interface-curses__ads.htm#ref_945_30">Key</a> >= <a href="terminal_interface-curses__ads.htm#ref_111_4">Key_F0</a> <b>and</b> <b>then</b> <a href="terminal_interface-curses__ads.htm#ref_945_30">Key</a> <= <a href="terminal_interface-curses__adb.htm#ref_562_7">L</a> <b>then</b>
<b>return</b> True;
<b>else</b>
<b>return</b> False;