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

uses
  Crt, StringUtils, SySutils, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// TYPE declaration demo
type
  REC = record  // REC_byte_array
  day : byte;  // day_byte_array
  month : byte;  // month_byte_array
  year : word;  // year_byte_array
  height : byte;
  end;  // type
var
  data : REC;  // data_byte_array
  weightData : byte;  // weightData_byte_array
  key : byte;  // key_byte_array

procedure MAINProc;
begin
  Write(Chr(125));
  eff_string := '';
  Write('Effectus example:');  // Print 1
  Writeln;
  eff_string := '';
  Write('TYPE declaration demonstration');  // Print 1
  Writeln;
  Writeln('');
  data.day := 12;
  data.month := 4;
  data.year := 1975;
  data.height := 182;
  weightData := data.height;
  eff_string := '';
  Write('Personal data');  // Print 1
  Writeln;
  eff_string := '';
  Write('-------------');  // Print 1
  Writeln;
  Write('', eol, 'Birthday: ', data.day, '.', data.month, '.', data.year, '', eol, '');
  eff_string := '';
  Write('Height: ');  // Print 1

  eff_string := '';
  Write(weightData);  // Print 2
  Writeln;
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
