	.386p
	ifndef	??version
?debug	macro
	endm
publicdll macro	name
	public	name
	endm
	endif
	?debug	V 300h
	?debug	S "CUSTOM.CPP"
	?debug	C E9C69278380A435553544F4D2E435050
	?debug	C E9235C334719433A5C424333315C494E434C554445325C53594D42+
	?debug	C 4F4C2E48
	?debug	C E972A3413919433A5C424333315C494E434C554445325C4249544D+
	?debug	C 41502E48
	?debug	C E91A56CA3417433A5C424333315C494E434C554445325C49434F4E+
	?debug	C 2E48
	?debug	C E9D271443916433A5C424333315C494E434C554445325C4749462E+
	?debug	C 48
	?debug	C E996A48B4219433A5C424333315C494E434C554445325C4D454D4F+
	?debug	C 52592E48
	?debug	C E94019CA1818433A5C424333315C494E434C5544455C5354444C49+
	?debug	C 422E48
	?debug	C E94019CA1817433A5C424333315C494E434C5544455C5F44454653+
	?debug	C 2E48
	?debug	C E94019CA1815433A5C424333315C494E434C5544455C444F532E48
	?debug	C E94019CA1817433A5C424333315C494E434C5544455C535444494F+
	?debug	C 2E48
	?debug	C E94019CA1818433A5C424333315C494E434C5544455C5F4E46494C+
	?debug	C 452E48
	?debug	C E94019CA1817433A5C424333315C494E434C5544455C434F4E494F+
	?debug	C 2E48
	?debug	C E94019CA181B433A5C424333315C494E434C5544455C5359535C5C+
	?debug	C 535441542E48
	?debug	C E98881753917433A5C424333315C494E434C554445325C4A504547+
	?debug	C 2E48
	?debug	C E9E94C7C4F1A433A5C424333315C494E434C554445325C50524956+
	?debug	C 4154452E48
	?debug	C E9E258824F1A433A5C424333315C494E434C554445325C4D594652+
	?debug	C 414D452E48
	?debug	C E94019CA1818433A5C424333315C494E434C5544455C5354444C49+
	?debug	C 422E48
	?debug	C E94019CA1817433A5C424333315C494E434C5544455C535444494F+
	?debug	C 2E48
	?debug	C E94019CA1816433A5C424333315C494E434C5544455C42494F532E+
	?debug	C 48
	?debug	C E94019CA1814433A5C424333315C494E434C5544455C494F2E48
	?debug	C E94019CA1817433A5C424333315C494E434C5544455C434F4E494F+
	?debug	C 2E48
	?debug	C E94019CA181A433A5C424333315C494E434C5544455C4752415048+
	?debug	C 4943532E48
	?debug	C E94019CA1817433A5C424333315C494E434C5544455C414C4C4F43+
	?debug	C 2E48
	?debug	C E94019CA1815433A5C424333315C494E434C5544455C4449522E48
	?debug	C E94019CA1818433A5C424333315C494E434C5544455C535452494E+
	?debug	C 472E48
	?debug	C E94019CA1815433A5C424333315C494E434C5544455C444F532E48
	?debug	C E94019CA1816433A5C424333315C494E434C5544455C54494D452E+
	?debug	C 48
	?debug	C E94019CA1816433A5C424333315C494E434C5544455C4D4154482E+
	?debug	C 48
	?debug	C E94019CA1818433A5C424333315C494E434C5544455C4D414C4C4F+
	?debug	C 432E48
	?debug	C E94019CA1817433A5C424333315C494E434C5544455C414C4C4F43+
	?debug	C 2E48
	?debug	C E9235C334719433A5C424333315C494E434C554445325C53594D42+
	?debug	C 4F4C2E48
	?debug	C E97762234018433A5C424333315C494E434C554445325C4D4F5553+
	?debug	C 452E48
	?debug	C E996A48B4219433A5C424333315C494E434C554445325C4D454D4F+
	?debug	C 52592E48
	?debug	C E93851453A17433A5C424333315C494E434C554445325C464F4E54+
	?debug	C 2E48
	?debug	C E9654661411B433A5C424333315C494E434C554445325C48474C47+
	?debug	C 505249542E48
	?debug	C E996A48B4219433A5C424333315C494E434C554445325C4D454D4F+
	?debug	C 52592E48
	?debug	C E9BC5039391B433A5C424333315C494E434C554445325C52454749+
	?debug	C 535445522E48
	?debug	C E9235C334719433A5C424333315C494E434C554445325C53594D42+
	?debug	C 4F4C2E48
	?debug	C E9D353E23A1A433A5C424333315C494E434C554445325C4C495354+
	?debug	C 494E472E48
	?debug	C E9D353E23A1A433A5C424333315C494E434C554445325C4C495354+
	?debug	C 494E472E48
	?debug	C E9D4A5D9401B433A5C424333315C494E434C554445325C53564741+
	?debug	C 5F4445562E48
	?debug	C E98950FD3E17433A5C424333315C494E434C554445325C56424533+
	?debug	C 2E48
	?debug	C E9235C334719433A5C424333315C494E434C554445325C53594D42+
	?debug	C 4F4C2E48
	?debug	C E9DA89FB4619433A5C424333315C494E434C554445325C4B45524E+
	?debug	C 454C2E48
	?debug	C E94019CA1816433A5C424333315C494E434C5544455C54494D452E+
	?debug	C 48
	?debug	C E9C76B384F18433A5C424333315C494E434C554445325C47524150+
	?debug	C 482E48
	?debug	C E9F8B829451A433A5C424333315C494E434C554445325C534F434B+
	?debug	C 4554332E48
	?debug	C E9235C334719433A5C424333315C494E434C554445325C53594D42+
	?debug	C 4F4C2E48
	?debug	C E996A48B4219433A5C424333315C494E434C554445325C4D454D4F+
	?debug	C 52592E48
	?debug	C E9A454E23A1A433A5C424333315C494E434C554445325C534F434B+
	?debug	C 4554352E48
	?debug	C E92DAB29451A433A5C424333315C494E434C554445325C534F434B+
	?debug	C 4554342E48
	?debug	C E9F8B829451A433A5C424333315C494E434C554445325C534F434B+
	?debug	C 4554332E48
	?debug	C E92258714F1A433A5C424333315C494E434C554445325C4E45574D+
	?debug	C 4154482E48
	?debug	C E9A8548B4319433A5C424333315C494E434C554445325C53504C49+
	?debug	C 4E452E48
	?debug	C E91D51E23A19433A5C424333315C494E434C554445325C57495A41+
	?debug	C 52442E48
CUSTOM_TEXT	segment byte public use16 'CODE'
CUSTOM_TEXT	ends
DGROUP	group	_DATA,_BSS
	assume	cs:CUSTOM_TEXT,ds:DGROUP
_DATA	segment word public use16 'DATA'
d@	label	byte
d@w	label	word
_DATA	ends
_BSS	segment word public use16 'BSS'
b@	label	byte
b@w	label	word
_BSS	ends
CUSTOM_TEXT	segment byte public use16 'CODE'
	assume	cs:CUSTOM_TEXT
@CCustom@$bctr$qn7CObject	proc	far
	push	bp
	mov	bp,sp
	cmp	dword ptr [bp+6],large 0
	jne	short @1@86
	push	94
	call	far ptr @$bnew$qui
	pop	cx
	mov	word ptr [bp+8],dx
	mov	word ptr [bp+6],ax
	or	ax,dx
	je	short @1@114
@1@86:
	push	dword ptr [bp+10]
	push	dword ptr [bp+6]
	call	far ptr @CObject@$bctr$qn7CObject
	add	sp,8
	les	bx,dword ptr [bp+6]
	mov	word ptr es:[bx],offset @@CCustom@
	mov	word ptr es:[bx+30],1
	mov	word ptr es:[bx+20],0
	mov	word ptr es:[bx+22],9
	mov	word ptr es:[bx+92],1
@1@114:
	mov	dx,word ptr [bp+8]
	mov	ax,word ptr [bp+6]
	pop	bp
	ret	
@CCustom@$bctr$qn7CObject	endp
	assume	cs:CUSTOM_TEXT
@CCustom@$bdtr$qv	proc	far
	push	bp
	mov	bp,sp
	push	si
	mov	si,word ptr [bp+10]
	cmp	dword ptr [bp+6],large 0
	je	short @2@142
	les	bx,dword ptr [bp+6]
	mov	word ptr es:[bx],offset @@CCustom@
	push	0
	push	word ptr [bp+8]
	push	bx
	call	far ptr @CObject@$bdtr$qv
	add	sp,6
	test	si,1
	je	short @2@142
	push	dword ptr [bp+6]
	call	far ptr @$bdele$qnv
	add	sp,4
@2@142:
	pop	si
	pop	bp
	ret	
@CCustom@$bdtr$qv	endp
	assume	cs:CUSTOM_TEXT
@CCustom@SetFocus$qv	proc	far
	enter	20,0
	push	ss
	lea	ax,word ptr [bp-10]
	push	ax
	call	far ptr @CObject@StartControlView$qn12viewporttype
	add	sp,4
	mov	word ptr [bp-12],ax
	push	4
	call	far ptr @SetColor$qi
	pop	cx
	les	bx,dword ptr [bp+6]
	push	word ptr es:[bx+8]
	push	word ptr es:[bx+6]
	push	word ptr es:[bx+4]
	push	word ptr es:[bx+2]
	call	far ptr @Rectangle$qiiii
	add	sp,8
	mov	word ptr [bp-14],ds
	mov	word ptr [bp-16],offset DGROUP:s@+1
	mov	word ptr [bp-18],ds
	mov	word ptr [bp-20],offset DGROUP:s@+11
	les	bx,dword ptr [bp+6]
	mov	ax,word ptr es:[bx+2]
	add	ax,word ptr es:[bx+6]
	cwd	
	sub	ax,dx
	sar	ax,1
	push	ax
	push	dword ptr [bp-20]
	call	far ptr __fstrlen
	add	sp,4
	shl	ax,3
	shr	ax,1
	pop	cx
	sub	cx,ax
	les	bx,dword ptr [bp+6]
	mov	ax,word ptr es:[bx+4]
	add	ax,word ptr es:[bx+8]
	cwd	
	sub	ax,dx
	mov	dx,ax
	sar	dx,1
	add	dx,-8
	push	0
	push	dword ptr [bp-20]
	push	large 000010001h
	push	word ptr es:[bx+22]
	push	word ptr es:[bx+22]
	push	dx
	push	cx
	call	far ptr @ChPrintf$qiiiiiinxzci
	add	sp,18
	les	bx,dword ptr [bp+6]
	mov	ax,word ptr es:[bx+2]
	add	ax,word ptr es:[bx+6]
	cwd	
	sub	ax,dx
	sar	ax,1
	push	ax
	push	dword ptr [bp-16]
	call	far ptr __fstrlen
	add	sp,4
	shl	ax,3
	shr	ax,1
	pop	cx
	sub	cx,ax
	les	bx,dword ptr [bp+6]
	mov	ax,word ptr es:[bx+4]
	add	ax,word ptr es:[bx+8]
	cwd	
	sub	ax,dx
	mov	dx,ax
	sar	dx,1
	add	dx,-8
	push	0
	push	dword ptr [bp-16]
	push	large 1
	push	word ptr es:[bx+22]
	push	15
	push	dx
	push	cx
	call	far ptr @ChPrintf$qiiiiiinxzci
	add	sp,18
	push	word ptr [bp-12]
	push	ss
	lea	ax,word ptr [bp-10]
	push	ax
	call	far ptr @CObject@EndControlView$qn12viewporttypei
	add	sp,6
	leave	
	ret	
@CCustom@SetFocus$qv	endp
	assume	cs:CUSTOM_TEXT
@CCustom@KillFocus$qv	proc	far
	enter	20,0
	push	ss
	lea	ax,word ptr [bp-10]
	push	ax
	call	far ptr @CObject@StartControlView$qn12viewporttype
	add	sp,4
	mov	word ptr [bp-12],ax
	les	bx,dword ptr [bp+6]
	push	word ptr es:[bx+22]
	call	far ptr @SetColor$qi
	pop	cx
	les	bx,dword ptr [bp+6]
	push	word ptr es:[bx+8]
	push	word ptr es:[bx+6]
	push	word ptr es:[bx+4]
	push	word ptr es:[bx+2]
	call	far ptr @Rectangle$qiiii
	add	sp,8
	mov	word ptr [bp-14],ds
	mov	word ptr [bp-16],offset DGROUP:s@+21
	mov	word ptr [bp-18],ds
	mov	word ptr [bp-20],offset DGROUP:s@+31
	les	bx,dword ptr [bp+6]
	mov	ax,word ptr es:[bx+2]
	add	ax,word ptr es:[bx+6]
	cwd	
	sub	ax,dx
	sar	ax,1
	push	ax
	push	dword ptr [bp-16]
	call	far ptr __fstrlen
	add	sp,4
	shl	ax,3
	shr	ax,1
	pop	cx
	sub	cx,ax
	les	bx,dword ptr [bp+6]
	mov	ax,word ptr es:[bx+4]
	add	ax,word ptr es:[bx+8]
	cwd	
	sub	ax,dx
	mov	dx,ax
	sar	dx,1
	add	dx,-8
	push	0
	push	dword ptr [bp-16]
	push	large 000010001h
	push	word ptr es:[bx+22]
	push	word ptr es:[bx+22]
	push	dx
	push	cx
	call	far ptr @ChPrintf$qiiiiiinxzci
	add	sp,18
	les	bx,dword ptr [bp+6]
	mov	ax,word ptr es:[bx+2]
	add	ax,word ptr es:[bx+6]
	cwd	
	sub	ax,dx
	sar	ax,1
	push	ax
	push	dword ptr [bp-20]
	call	far ptr __fstrlen
	add	sp,4
	shl	ax,3
	shr	ax,1
	pop	cx
	sub	cx,ax
	les	bx,dword ptr [bp+6]
	mov	ax,word ptr es:[bx+4]
	add	ax,word ptr es:[bx+8]
	cwd	
	sub	ax,dx
	mov	dx,ax
	sar	dx,1
	add	dx,-8
	push	0
	push	dword ptr [bp-20]
	push	large 1
	push	word ptr es:[bx+22]
	push	15
	push	dx
	push	cx
	call	far ptr @ChPrintf$qiiiiiinxzci
	add	sp,18
	push	word ptr [bp-12]
	push	ss
	lea	ax,word ptr [bp-10]
	push	ax
	call	far ptr @CObject@EndControlView$qn12viewporttypei
	add	sp,6
	leave	
	ret	
@CCustom@KillFocus$qv	endp
	assume	cs:CUSTOM_TEXT
@CCustom@Show$qv	proc	far
	enter	12,0
	push	ss
	lea	ax,word ptr [bp-10]
	push	ax
	call	far ptr @CObject@StartControlView$qn12viewporttype
	add	sp,4
	mov	word ptr [bp-12],ax
	les	bx,dword ptr [bp+6]
	push	word ptr es:[bx+22]
	push	1
	call	far ptr @SetFillStyle$qii
	add	sp,4
	push	dword ptr [bp+6]
	call	far ptr @CObject@EditShow$qv
	add	sp,4
	push	15
	call	far ptr @SetColor$qi
	pop	cx
	push	large 000020001h
	call	far ptr @SetFillStyle$qii
	add	sp,4
	push	large 000050005h
	les	bx,dword ptr [bp+6]
	mov	ax,word ptr es:[bx+4]
	add	ax,8
	push	ax
	mov	ax,word ptr es:[bx+2]
	add	ax,word ptr es:[bx+6]
	cwd	
	sub	ax,dx
	sar	ax,1
	push	ax
	call	far ptr @FillEllipse$qiiii
	add	sp,8
	push	dword ptr [bp+6]
	les	bx,dword ptr [bp+6]
	mov	bx,word ptr es:[bx]
	call	dword ptr [bx+12]
	add	sp,4
	push	word ptr [bp-12]
	push	ss
	lea	ax,word ptr [bp-10]
	push	ax
	call	far ptr @CObject@EndControlView$qn12viewporttypei
	add	sp,6
	mov	ax,1
	leave	
	ret	
@CCustom@Show$qv	endp
	assume	cs:CUSTOM_TEXT
@CCustom@Swapping$qv	proc	far
	enter	102,0
	push	si
	push	dword ptr [bp+6]
	call	far ptr @CObject@DefaultSwapping$qv
	add	sp,4
	mov	si,ax
	mov	word ptr [bp-2],si
	mov	cx,13
	mov	bx,offset @6@C66
@6@86:
	mov	ax,word ptr cs:[bx]
	cmp	ax,word ptr [bp-2]
	je	short @6@170
	add	bx,2
	loop	short @6@86
	jmp	short @6@422
@6@170:
	jmp	word ptr cs:[bx+26]
	jmp	short @6@422
@6@198:
	jmp	short @6@394
@6@226:
	call	far ptr @GetMouseX$qv
	call	far ptr @GetMouseY$qv
@6@254:
	push	1
	call	far ptr @IsMouseDown$qi
	pop	cx
	or	ax,ax
	jne	short @6@254
	jmp	short @6@422
@6@310:
	push	large 1
	push	ds
	push	offset DGROUP:s@+47
	push	ds
	push	offset DGROUP:s@+41
	jmp	short @6@366
@6@338:
	push	ds
	push	offset DGROUP:s@+54
	push	ss
	lea	ax,word ptr [bp-102]
	push	ax
	call	far ptr _sprintf
	add	sp,8
	push	large 1
	push	ss
	lea	ax,word ptr [bp-102]
	push	ax
	push	ds
	push	offset DGROUP:s@+73
@6@366:
	call	far ptr @AfxMessageBox$qnzct1ul
	add	sp,12
@6@394:
	xor	si,si
@6@422:
	mov	ax,si
	pop	si
	leave	
	ret	
@CCustom@Swapping$qv	endp
@6@C66	label	word
	db	228
	db	255
	db	241
	db	255
	db	49
	db	2
	db	50
	db	3
	db	51
	db	4
	db	52
	db	5
	db	53
	db	6
	db	54
	db	7
	db	55
	db	8
	db	56
	db	9
	db	57
	db	10
	db	48
	db	11
	db	0
	db	59
	dw	@6@198
	dw	@6@226
	dw	@6@338
	dw	@6@338
	dw	@6@338
	dw	@6@338
	dw	@6@338
	dw	@6@338
	dw	@6@338
	dw	@6@338
	dw	@6@338
	dw	@6@338
	dw	@6@310
	assume	cs:CUSTOM_TEXT
@MyCustom$qn7CObjectii	proc	far
	enter	4,0
	push	dword ptr [bp+6]
	push	large 0
	push	cs
	call	near ptr @CCustom@$bctr$qn7CObject
	add	sp,8
	mov	word ptr [bp-2],dx
	mov	word ptr [bp-4],ax
	push	large 0
	push	large 0003C0064h
	push	word ptr [bp+12]
	push	word ptr [bp+10]
	push	dx
	push	ax
	call	far ptr @CObject@CreateObject$qiiiinxzc
	add	sp,16
	leave	
	ret	
@MyCustom$qn7CObjectii	endp
CUSTOM_TEXT	ends
_DATA	segment word public use16 'DATA'
@CCustom@	segment	virtual
@@CCustom@	label	byte
	dd	@CObject@ModifyCoordinate$qv
	dd	@CObject@AddCoordinate$qii
	dd	@CObject@SetCaption$qnxzc
	dd	@CCustom@KillFocus$qv
	dd	@CCustom@SetFocus$qv
	dd	@CObject@OnDraw$qv
	dd	@CObject@Paint$qv
	dd	@CObject@ShowFrame$qv
	dd	@CCustom@Show$qv
	dd	@CObject@AntiShow$qv
	dd	@CCustom@Swapping$qv
	dd	@CCustom@$bdtr$qv
	?debug	C E9
	?debug	C FA10010000
@CCustom@	ends
_DATA	ends
_DATA	segment word public use16 'DATA'
s@	label	byte
	db	0
	db	'YES-Focus'
	db	0
	db	'NO--Focus'
	db	0
	db	'YES-Focus'
	db	0
	db	'NO--Focus'
	db	0
	db	'Debug'
	db	0
	db	'F1 Key'
	db	0
	db	'This is Number Key'
	db	0
	db	'Debug'
	db	0
_DATA	ends
CUSTOM_TEXT	segment byte public use16 'CODE'
CUSTOM_TEXT	ends
	public	@MyCustom$qn7CObjectii
	public	@CCustom@$bdtr$qv
	public	@CCustom@$bctr$qn7CObject
	public	@CCustom@Swapping$qv
	public	@CCustom@SetFocus$qv
	public	@CCustom@KillFocus$qv
	public	@CCustom@Show$qv
	extrn	@AfxMessageBox$qnzct1ul:far
	extrn	@CObject@$bdtr$qv:far
	extrn	@CObject@$bctr$qn7CObject:far
	extrn	@CObject@EditShow$qv:far
	extrn	@CObject@DefaultSwapping$qv:far
	extrn	@CObject@AntiShow$qv:far
	extrn	@CObject@ShowFrame$qv:far
	extrn	@CObject@Paint$qv:far
	extrn	@CObject@OnDraw$qv:far
	extrn	@CObject@SetCaption$qnxzc:far
	extrn	@CObject@AddCoordinate$qii:far
	extrn	@CObject@ModifyCoordinate$qv:far
	extrn	@CObject@CreateObject$qiiiinxzc:far
	extrn	@CObject@EndControlView$qn12viewporttypei:far
	extrn	@CObject@StartControlView$qn12viewporttype:far
	extrn	@SetFillStyle$qii:far
	extrn	@SetColor$qi:far
	extrn	@Rectangle$qiiii:far
	extrn	@FillEllipse$qiiii:far
	extrn	@ChPrintf$qiiiiiinxzci:far
	extrn	@IsMouseDown$qi:far
	extrn	@GetMouseY$qv:far
	extrn	@GetMouseX$qv:far
	extrn	__fstrlen:far
	extrn	_sprintf:far
_pokeb	equ	pokeb
_poke	equ	poke
_peekb	equ	peekb
_peek	equ	peek
_atoi	equ	atoi
_abs	equ	abs
	extrn	@$bdele$qnv:far
	extrn	@$bnew$qui:far
_s@	equ	s@
	end
