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

uses
  Crt, StringUtils, Graph;

var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// INCLUDE demo
// Effectus example:
// User library for INCLUDE demo
var
  CH : byte absolute 764;  // CH_byte_array

procedure WAITFORKEYProc;
begin
  CH := 255;
 WHILE CH=255 do begin
  end;
end;

procedure PRINTTEXTProc;
begin
  eff_string := '';
  Write('Hello world');  // Print 1
  Writeln;
end;

procedure CHANGECOLORProc;
begin
  Poke(710, 50);
  Poke(712, 160);
end;

procedure MAINProc;
begin
  Write(Chr(125));
  eff_string := '';
  Write('Effectus example:');  // Print 1
  Writeln;
  eff_string := '';
  Write('INCLUDE demonstration');  // Print 1
  Writeln;
  Writeln('');
  eff_string := '';
  Write('Press any key and see my greetings!');  // Print 1
  Writeln;
  WAITFORKEYProc;
  Writeln('');
  PRINTTEXTProc;
  Writeln('');
  eff_string := '';
  Write('Press any key to change color!');  // Print 1
  Writeln;
  WAITFORKEYProc;
  CHANGECOLORProc;
  WAITFORKEYProc;
end;

begin
  MAINProc;
end.
