1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  
repeat
  card1:=0;
  card2:=0;
  card3:=0;
  cardopp3:=0;
  readin1.Click;
  wait(500);
  readin2.click;
  wait(500);
  readin3.Click;
  wait(500);
  stop:=stop+1;
  if stop>50 then break;
until (card1>0) and (card2>0) and (card3>0) and (cardopp3>0);