DIMENSION IQ(2,72)
	CALL IOPEN('P1','BULI')
	DO 5 I=1,72
	READ(4,100)IQ(1,I)
	READ(4,100)IQ(2,I)
100	FORMAT(I5)
	IQ(1,I)=-IQ(1,I)
5	CONTINUE
	DO 10 I=1,72
	IF(IQ(2,I))6,7,7
6	ID=IQ(1,I)
	IT=IQ(2,I)
S	JMS HRZ
	J1=1
S	JMP \8
7	IT=-2047
	J1=100
8	DO 9 J=1,J1
S	JMS DEL
9	CONTINUE
10	CONTINUE
	CALL EXIT
SHRZ,	CLA
S	TAD \ID
S	DCA CD
SHRZ1,	TAD C1
S	6671
S	JMS DEL
S	CLA
S	TAD C0
S	6671
S	JMS DEL
S	ISZ CD
S	JMP HRZ1
S	JMP I HRZ
SCD,	0
SC0,	0
SC1,	1
SDEL,	CLA
S	TAD \IT
S	DCA CT
SDEL1,	ISZ CT
S	JMP DEL1
S	JMP I DEL
SCT,	0
	END