The Tandem Application Language, a proprietary variant of Pascal enhanced to accomodate the checkpointing features of the NonStop architecture. Along with BASE24 knowledge this used to be a hot item on your c.v. but nowadays it's more of an albatross. Here's a (meaningless) sample:
Proc Set^Time
BEGIN
INT INT^Time[0:3];
FIXED Time = INT^Time;
Time := 0F;
CALL TIMESTAMP(Int^Time[1]);
CURRENT^MESSAGE ':=' "G008";
@MESSAGE := CURRENT^MESSAGE;
! comments like this
END; ! Set^Time