!***********************************
!	Ada Reserved Words
!***********************************
ABORT
ABS
ACCEPT
ACCESS
ALL
AND
ARRAY
AT
BEGIN
BODY
CASE
CHARACTER
CONSTANT
DECLARE
DELAY
DELTA
DIGITS
DO
ELSE
ELSIF
END
EXCEPTION
EXIT
FLOAT
FOR
FUNCTION
GENERIC
GOTO
IF
IN
INTEGER
IS
LIMITED
LONG_FLOAT
LONG_LONG_FLOAT
LOOP
MOD
NEW
NOT
NULL
OF
OR
OTHERS
OUT
PACKAGE
PRAGMA
PRIVATE
PROCEDURE
RAISE
RANGE
RECORD
REM
RENAMES
RETURN
REVERSE
SELECT
SEPARATE
SHORT_INTEGER
SHORT_SHORT_INTEGER
STRING
SUBTYPE
TASK
TERMINATE
THEN
TYPE
USE
WHEN
WHILE
WITH
XOR