CALL KBINIT
	CALL INIT
	CALL COLOR(5,2)
	CALL CLEAR
	CALL APNT(0,0)
	CALL VECT(159,0)
	CALL VECT(159,191)
	CALL VECT(0,191)
	CALL VECT(0,0)
	DO 10 I=11,191,10
	CALL APNT(0,0)
	CALL VECT(159,I)
10	CONTINUE
	CALL EXIT
	END