COMMON IGX1, IGX2
	DIMENSION IGX1(1600), IGX2(1600)
	CALL GCLEAR
	CALL GSTART
10	CALL GCLEAR
20	READ(1,30) IX, IY, ICODE
30	FORMAT(I3,I3,I2)
	IF(ICODE+1)40,60,40
40	IF(ICODE)10,50,50
50	CALL GPLOT(IX,IY,ICODE)
	GO TO 20
60	CALL GSTOP
	STOP
	END