4.3BSD - /usr/src/ucb/dbx/tests/pc/const.p

   1: program consttest (input, output);
   2: const
   3:     PI = 3.14159;
   4:     N = 10;
   5:     MESSAGE = 'this is a test';
   6:     CH = 'x';
   7: type
   8:     Color = (RED, BLUE, GREEN);
   9: 
  10: procedure p ;
  11: const
  12:     R = RED;
  13: type
  14:     T = integer;
  15: var i : integer;
  16: begin
  17: end;
  18: 
  19: begin
  20: end.