# Test of character operations
#
# $Id: test3.mgl,v 1.2 2001/08/27 08:40:16 gkminix Exp $

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

screen main;
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.