TRUE                      Predefined Boolean Value                    pp 42


 Define:  Predefined Boolean value of one.

 Purpose: Provide a means a testing a condition.

 Notes:   False < True is always satisfied by defining False as zero
          and True as 1.

          True occupies one byte of memory.


 ----------------------------------------------------------------------------


 Usage:
       VAR
          No  : Boolean     ;
          Yes : Boolean     ;

       BEGIN
          Yes := 2 < 3      ;       { Set Yes to True      }
          No  := 3 < 2      ;       { Set No to False      }
          WriteLn (Ord(No));;       { '0' is displayed     }
          WriteLn (No)      ;       { 'FALSE' is displayed }
          WriteLn (Ord(Yes));       { '1' is displayed     }
          WriteLn (Yes)     ;       { 'TRUE' is displayed  }
       END.