APOINT	EQU	8	;#3D13
GO	DI 
	LD	IX,TAB00
	LD	HL,#0000
	LD	E,1
	LD	C,#B0
	CALL	APOINT
	LD	IX,TAB01
	LD	HL,#0703
	LD	E,1
	LD	C,#B0
	CALL	APOINT
	LD	IX,TAB02
	LD	HL,#0826
	LD	E,1
	LD	C,#B0
	CALL	APOINT
	LD	IX,TAB03
	LD	HL,#0000
	LD	E,1
	LD	C,#B0
	CALL	APOINT
	LD	IX,TAB04
	LD	HL,#0000
	LD	E,1
	LD	C,#B0
	CALL	APOINT
	RET 

TAB00	DEFB	40,32,#00,#00,#20,#00,#08,#00
TAB01	DEFB	33,23,#03,#07,#60,#00,#0B,#07
TAB02	DEFB	01,21,038,#08,#60,#00,046,#08

TAB03	DEFB	08,02,028,#04,#60,#00,#24,#04
TAB04	DEFB	02,02,037,#04,#60,#00,#2D,#04

NORTAB	DEFB	12,23,#0F,#07,#20,#00,#17,#07
SECTAB	DEFB	12,23,#0F,#07,#60,#00,#17,#07

SETNWIN	DI 
	LD	IX,NORTAB
	LD	HL,#0F07
	LD	E,1
	LD	C,#B0
	CALL	IPOINT
	EI 
	RET 

SETAWIN	DI 
	LD	IX,SECTAB
	LD	HL,#0F07
	LD	E,1
	LD	C,#B0
	CALL	IPOINT
	EI 
	RET