// Test of character operations
//
// $Id: test3.mgl,v 1.3 2004/11/29 11:17:21 gkminix Exp $

program test3;

const
  const1 = 'A';
  const2 = 'B';

var
  c1, c2 : char;
  i : integer;
  s : string[20];

begin

// Character assignments
  c1 := 'B';
  c1 := const1;
  c2 := '\t';
  c2 := const2;

// Character expressions
  i := ord(c1);
  s := c1 + c2 + const1 + const2;
  c2 := chr(i);
  s := c1 * 10;
  s := c2 * 30;		// should truncate automatically
end.

