C
C   PROGRAM TO DRAW A RECTANGULAR BORDER
C
	COMMON IGX1, IGX2
	DIMENSION IGX1(1600), IGX2(1600)
	CALL GCLEAR
	CALL GSTART
	CALL GPLOT(0,0,0)
	CALL GPLOT(188,0,1)
	CALL GPLOT(188,199,1)
	CALL GPLOT(0,199,1)
	CALL GPLOT(0,0,1)
C    LOOP UNTIL SWITCH REGISTER = 1 IS DETECTED
10	IF (IRDSW(0) - 1) 10,20,10
20	CALL GSTOP
	STOP
	END