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

uses
  Crt, StringUtils, SySutils, Graph, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Inline machine language demo

procedure MAINProc;
var
  key : byte;  // key_byte_array
begin
  Write(Chr(125));
  eff_string := '';
  Write('Effectus example:');  // Print 1
  Writeln;
  eff_string := '';
  Write('Using inline machine language');  // Print 1
  Writeln;
  Writeln('');
  asm
    .by $A9 $21 $8D $C6 $02 $00 $60 
  end;  // asm end 1
  eff_string := '';
  Write('Press any key to change color!(1)');  // Print 1
  Writeln;
  key := Get(7);
  ReadKey;
  asm
    .by $A9 $90 $3E $C6 $02 $0 $60 
  end;  // asm end 2
  eff_string := '';
  Write('Press any key to change color!(2)');  // Print 1
  Writeln;
  key := Get(7);
  ReadKey;
  asm
    .by $A9 $60 $8D $C6 $02 $0 $60 
  end;  // asm end 2
  eff_string := '';
  Write('Press any key to change color!(3)');  // Print 1
  Writeln;
  key := Get(7);
  ReadKey;
  asm
    .by $A9 $76 $8D $C6 $02 $0 $60 
  end;  // asm end 2
  eff_string := '';
  Write('Press any key to change color!(4)');  // Print 1
  Writeln;
  key := Get(7);
  ReadKey;
  asm
    .by $A9 $13 $8D $C6 $02 $0 $60 
  end;  // asm end 2
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
