beginCommand endCommand beginInstruction endInstruction beginVariable endVariable firstString " secondString firstSingleLineComment -- secondSingleLineComment beginFirstMultiLineComment endFirstMultiLineComment beginSecondMultiLineComment endSecondMultiLineComment functionDefinition removeFromFunction keywordsCaseSensitive recolourKeywordIfAlreadyColoured keywords abort abs abstract accept access aliased all and array at begin body constant declare delay delta digits do else elsif end entry exception exit for function generic goto in is limited mod new not null of or others out package pragma private procedure protected raise range rem record renames requeue return reverse separate subtype tagged task terminate then type until use when while with xor case loop if