CHECK  	ORG	7000H
 ENTRY	DI
 	LD	SP,ENTRY
 	CALL	1C9H
 	LD	A,32
 	OUT	(0FFH),A
 	LD	HL,3C00H+448
 	XOR	A
 LOOP	LD	(HL),A
 	INC	A
 	JR	Z,DONE
 	INC	HL
 	JR	LOOP
 DONE	LD	HL,MESSAG
 	CALL	SHOW
 	LD	B,1
 	LD	HL,BUFFER
 	CALL	40H
 	LD	A,160
 	OUT	(255),A
 	LD	HL,15360+896
 	LD	(4020H),HL
 	JP	402DH
 MESSAG	DEFM	'PRESS <ENTER> FOR HI RES ! '
 	DEFB	0
 SHOW	LD	A,(HL)
 	OR	A
 	RET	Z
 	CALL	33H
 	INC	HL
 	JR	SHOW
 BUFFER	DEFB	0
 	END	ENTRY
