INTEGER*4	IA(10),IC
	REAL	B
	DATA	IA/1,2,3,4,5,6,7,8,9,10/
	DATA	B/3.1415/
	INTEGER*2	ILIM(2),IB(2)
	DATA	ILIM/0,1000/
	DATA	IB/-1,2000/
	COMMON	IA,IB,B,IC
	CALL	PSET(LERR,0,0,0,0,B,1,'B   ',8,0)
	CALL	PSET(LERR,0,2,1,2,IA,8,
	1'IA1 IA2 IA3 IA4 IA5 IA6 IA7 IA8 ',8,0)
	CALL	PSET(LERR,0,10,1,2,IC,1,'pass',0,0)
	CALL	PSET(LERR,0,0,1,2,IA,8,
	1'IA1 IA2 IA3 IA4 IA5 IA6 IA7 IA8 ',8,0)
	CALL	PSET(LERR,0,0,1,2,IA,8,
	1'IA1 IA2 IA3 IA4 IA5 IA6 IA7 IA8 ',8,0)
	CALL	PSET(LERR,0,0,1,2,IA,8,
	1'IA1 IA2 IA3 IA4 IA5 IA6 IA7 IA8 ',8,0)
	CALL	PSET(LERR,1,0,0,1,Ib,2,'Ib  IB  ',3,ILIM)
	CALL	PSET(LERR,1,2,0,1,Ib,2,'IB1 IB2 ',8,ILIM)
	CALL	PSET(LERR,1,2,0,1,Ib,2,'IB1AIB2A',11,ILIM)
	CALL	SSET
10	CALL	KBYES
	IC	= IC + 1
	GO TO 10
	END