program ptest16;
{ test variable access }

  const
    bytelimit = 255;
    halflimit = 65535;

  type
    byte = 0 .. bytelimit;
    half = 0 .. halflimit;

  var
    b1,b2 : byte;
    h1,h2 : half;
    c1,c2 : char;
    bb1,bb2 : boolean;
    r1,r2 : real;
    i1,i2 : integer;

  begin
    b1 := 0;
    b2 := b1;
    h1 := 0;
    h2 := h1;
    c1 := ' ';
    c2 := c1;
    bb1 := true;
    bb2 := bb1;
    r1 := 0;
    r2 := r1;
    i1 := 0;
    i2 := i1;
  end { ptest16 }.