INCLUDE 'MK3PIC.LDF'
	CALL THREAD
	CALL BOX (1, 1, 24, 80, IERR)
	CALL BOX (2, 3, 3, 34, IERR)
	CALL BOX (5, 3, 5, 76, IERR)
	CALL BOX (10, 3, 14, 76, IERR)
	CALL VLINE (11, 12, 12, IERR)
	CALL VLINE (11,44,12,IERR)
	CALL VLINE (11,53,12,IERR)
	CALL VLINE (11,62,12,IERR)
	CALL VLINE (11,71,12,IERR)
	CALL TRMCON
	end