;#SECTION "MAIN", CODE

	org	userMem - 2
	db	0BBh, 6Dh
Start:
	ld	hl, PrgmEditHook
	ld	de, 8265h
	ld	bc, EndHook - PrgmEditHook + 1
	ldir
	ld	hl, 8265h
	ld	a, 1
	B_CALL	5083h
	ret

PrgmEditHook:
	db	83h
	cp	04h
	ret	nz
	ld	a, (MenuCurrent)
	cp	mProgramHome
	ret	nz
	ld	a, (MenuCurrent + 1)
	cp	mPrgm_Edit
	ret	nz
	ld	hl, -9
	add	hl, de
	B_CALL	_Mov9ToOP1
	ld	a, ProgObj
	ld	(OP1), a
	B_CALL	_ChkFindSym
	inc	de
	inc	de
	ld	hl, tFact
	or	a
	sbc	hl, de
	jr	nz, SetFlag0
	set	0, (iy + 21h)
	ret

SetFlag0:
	res	0, (iy + 21h)
	ret

EndHook:
;#IMPORT "TOKENS"
;#IMPORT "MENUCURR"