{ GPC demo program. For copying conditions see the file `COPYING.DEMO'. }

program SubrangeDemo;
type
  MonthInt = 1 .. 12;
  Capital = 'A' .. 'Z';
  ControlChar = ^A .. ^Z;  { `^A' = `Chr (1)' is a BP extension }
begin
end.
