/L20"Ada95" Nocase Line Comment = --  String Chars = "' File Extensions = ADA ADB ADS A
/C1
abort abs abstract accept access aliased all and array at
begin body 
case constant
declare delay delta digits do 
else elsif end entry exception exit
for function
goto generic
if in is 
limited loop
mod
new not null 
of or others  out
package pragma private procedure protected
raise range record rem renames requeue return reverse
select separate subtype
tagged task terminate then type
until use
when while with
xor
/C2
boolean
integer
false float
natural
positive
real
true
vector
/C3
..
