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

uses
  Crt, StringUtils, SySutils, Joystick;

var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Joystick demo
// (using Stick and Strig functions)

procedure MAINProc;
var
  b : byte;  // b_byte_array
  fire : byte;  // fire_byte_array
begin
  Write(Chr(125));
  fire := 1;
 WHILE fire>0 do begin
  B := stick[0];
  eff_string := '';
  Write(B);  // Print 2
  Writeln;
  fire := strig[0];
  end;
  eff_string := '';
  Write('TRIGGER WAS PRESSED!');  // Print 1
  Writeln;
end;

begin
  MAINProc;
end.
