;WINDOW.MAC
;resets the screen to only one window being #0
;06/24/86
	PAGE 80
	.Z80
	TITLE WINDOW
	ENTRY WINDOW

BDOS	EQU 0005H

WINDOW:	LD DE,INISEQ	;initialize window #0
	CALL CONOUT
	RET

INISEQ:	DB 1BH,'B '	;select #0
	DB 1BH,'C  o7'	;define #0 to 80x24
	DB '$'

CONOUT:	LD C,9
	CALL BDOS
	RET

	END WINDOW
