20509류동하-심화과제3.PGM

INT N
B(4).1=0 : B(4).2=1 : WAIT 500
B(4).2=0 : B(4).0=0

SPD = 8000
TAG A1
N = 0
STBY (B(0).2==1)&&(B(0).1==1)
MPTP P1
CALL PICK
MPTP P0
CALL PLACE
IF B(0).6==1
	CALL PICK
	MPTP P1
	CALL PLACE
	N = N+1
ENDI
MPTP P2
CALL PICK
MPTP P0
CALL PLACE
IF B(0).6==1
	CALL PICK
	MPTP P2
	CALL PLACE
	N = N+1
ENDI
MPTP P3
CALL PICK
MPTP P0
CALL PLACE
IF B(0).6==1
	CALL PICK
	MPTP P3
	CALL PLACE
	N = N+1
ENDI
MPTP P5
STBY (B(10).0==1)
IF N==1
	MPTP P1
ENDI
IF N==2
	MPTP P2
ENDI
IF N==3
	MPTP P3
ENDI
B(10).0=0
STBY (B(10).0==1)
B(10).0=0
GOTO A1
MEND

SPGM PICK
	B(4).1=1 : WAIT 500
	B(4).1=0 : WAIT 500 : STBY (B(0).0==1)
	B(4).0=1 : WAIT 500 : STBY (B(0).3==1)
	B(4).2=1 : WAIT 500
	B(4).2=0 : WAIT 500 : STBY (B(0).1==1)
SEND

SPGM PLACE
	B(4).1=1 : WAIT 500
	B(4).1=0 : WAIT 500 : STBY (B(0).0==1)
	B(4).0=0 : WAIT 500 : STBY (B(0).2==1)
	B(4).2=1 : WAIT 500
	B(4).2=0 : WAIT 500 : STBY (B(0).1==1)
SEND