// Effectus auto-generated Mad Pascal source code listing
program bytevalPrg;

uses
  Crt, StringUtils;

var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Variable manipulation demo

procedure MAINProc;
var
  N1 : byte absolute 764;  // N1_byte_array
  N2 : byte;  // N2_byte_array
  N3 : byte = 12;  // N3_byte_array
begin
  Write(Chr(125));
  N2 := 14;
  eff_string := '';
  Write('Value of 764 is ');  // Print 1

  eff_string := '';
  Write(N1);  // Print 2
  Writeln;
  eff_string := '';
  Write('Value of N2 is ');  // Print 1

  eff_string := '';
  Write(N2);  // Print 2
  Writeln;
  eff_string := '';
  Write('Predeclared value of N3 is ');  // Print 1

  eff_string := '';
  Write(N3);  // Print 2
  Writeln;
  N1 := 255;
 WHILE N1=255 do begin
  end;
  N1 := 255;
end;

begin
  MAINProc;
end.
