INCLUDE	'MK3.LDF'
	CALL	THREAD
100	CONTINUE
	CALL	BOX (8,8,9,50)
	CALL	TRMCON
	CALL	VLINE (1,30,23)
	CALL	HLINE (8,1,29)
	CALL	HLINE (16,1,29)
	CALL	TRMCON
	
	CALL	BOX (5,13,6,19)
	CALL	BOX (9,20,6,19)
	CALL	BOX (13,27,6,19)
	CALL	TRMCON
	CALL 	BOX (13,10,9,3)
	CALL	BOX (18,13,4,3)
	CALL	BOX (11,16,11,3)
	CALL	BOX (20,19,2,3)
	CALL 	BOX (16,22,6,3)
	CALL	BOX (14,25,8,3)
	CALL	BOX (18,28,4,3)
	CALL	BOX (12,31,10,3)
	CALL	BOX (19,34,3,3)
	CALL	BOX (16,37,6,3)
	CALL	BOX (12,40,10,3)
	CALL	BOX (15,43,7,3)
	CALL 	AXIS (22,9,-12,37)
	CALL	TRMCON
	GOTO	100
	END