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

uses
  Crt, StringUtils, SySutils, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// PrintE demo

procedure MAINProc;
var
  key : byte;  // key_byte_array
begin
  eff_string := '';
  Write('HELLO WORLD');  // Print 1
  Writeln;
  eff_string := '';
  for eff_loop_var in '' do StrAdd(eff_string, chr(eff_loop_var));
  Write(Trim(eff_string));
  Writeln;
  eff_string := '';
  Write('NEW LINE');  // Print 1
  Writeln;
  eff_string := '';
  Write('');  // Print 1
  Writeln;
  eff_string := '';
  Write('ANOTHER NEW LINE');  // Print 1
  Writeln;
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
