PROGRAM TST
	DIMENSION X(50),Y(50)
	CALL PSEUDO(1,6)
1	N=50
	CALL TABLET(X,Y,N)
	TYPE 10,N
	IF (N.EQ.0)STOP
10	FORMAT(I8)
	GOTO 1
	END