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

uses
  Crt, StringUtils, SySutils, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
var
  key : byte;  // key_byte_array

procedure DEFINE_TESTProc;
var
  n : byte;  // n_byte_array
begin
  Write(Chr(125));
  Poke(710, 0);
  Poke(712, 60);
  Writeln('');
  Writeln('');
  eff_string := '';
  Write('DEFINE statement test');  // Print 1
  Writeln;
  Writeln('');
  Writeln('');
  eff_string := '';
  Write('Cls,Newline');  // Print 1
  Writeln;
  Writeln('');
  eff_string := '';
  Write('Count from 1 to max');  // Print 1
  Writeln;
 FOR n:=1 to 3 do begin
  eff_string := '';
  Write(n);  // Print 2
  Writeln;
  end;
  key := Get(7);
  ReadKey;
end;

begin
  DEFINE_TESTProc;
end.
