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

uses
  Crt, StringUtils, SySutils, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Using ARRAY predeclared values with
// BYTE ARRAY and CARD ARRAY
var
  key : byte;  // key_byte_array
  I : byte;  // I_byte_array
  BYTES : array[0..3] of byte = (10, 20, 30, 40);  // BYTES_byte_array
var
  CARDS : array[0..3] of word = (540, 1300, 26800, 65300);  // CARDS_byte_array

procedure MAINProc;
begin
  Write(Chr(125));
  eff_string := '';
  Write('EFFECTUS EXAMPLE:');  // Print 1
  Writeln;
  eff_string := '';
  Write('ARRAYS DEMONSTRATION');  // Print 1
  Writeln;
  Writeln('');
  eff_string := '';
  Write('BYTE ARRAY VALUES:');  // Print 1
  Writeln;
 FOR I:=0 TO 3 do begin
  eff_string := '';
  Write(BYTES[I]);  // Print 2

  if  I<3  then begin
  eff_string := '';
  Write(',');  // Print 1

  end;  // if
  end;
  Writeln('');
  Writeln('');
  eff_string := '';
  Write('CARD ARRAY VALUES:');  // Print 1
  Writeln;
 FOR I:=0 TO 3 do begin
  eff_string := '';
  Write(CARDS[I]);  // Print 2

  if  I<3  then begin
  eff_string := '';
  Write(',');  // Print 1

  end;  // if
  end;
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
