SECTION	MENU_MK_IX_,CODE_C
	OPT	O+ C-
	incdir  df0:,df1:
	MOVE.L	4,A6
	LEA.L	GFxNAME,A1
	CLR.L	D0
	JSR	-552(A6)
	MOVE.L	D0,GFXLOC
	MOVE.L	GFXLOC,A6
	MOVE.L	50(A6),OLDCOP
	MOVE.L	#COPPER,50(A6)
	MOVE.L	#$FFFF,D0
COPDEL:	DBF	D0,COPDEL
	MOVE.W	#%1000011111100000,$DFF096
	MOVE.L	#$FFFFFFFF,$DFF044
	MOVE.W	#00,$DFF042
	MOVE.W	#%0000100111110000,$DFF040
	MOVE.W	#$4000,$DFF09A
	move.l	#screen,store
	move.w	store,bitmap2+2
	move.w	store+2,bitmap2+6
START:	CMP.B	#$ff,$DFF006
	BNE.S	START
	add.w	#1,count
	cmp.w	#253,count
	bne	start2
	clr.w	count
	move.l	#screen,store
start2	add.l	#40,store
	move.w	store,bitmap+2
	move.w	store+2,bitmap+6
	add.w	#1,xp
	cmp.w	#16,xp
	bne	start3
	clr.w	xp
	move.w	#0,scp+2
start3	add.w	#$010,scp+2
	btst	#6,$bfe001
	beq	reset
	btst	#7,$bfe001
	beq	reset
	btst	#10,$dff016
	beq	reset
	BRA	START

RESET:	MOVE.W	#$C000,$DFF09A
	MOVE.W	#$0F,$DFF096
	MOVE.L	GFXLOC,A6
	MOVE.L	OLDCOP,50(A6)
	MOVE.L	4,A6
	MOVE.L	GFXLOC,A1
	JSR	-414(A6)
	CLR.L	D0
EX:	RTS
COPPER:	DC.W	$0104,$0000
	DC.W	$0108,$0000,$010A,$0000
	DC.W	$0092,$0038,$0094,$00D0
	DC.W	$008E,$50a1
	dc.w	$0090,$c081
	DC.W	$0120,$0000,$0122,$0000
	dc.w	$0180,$0000,$0182,$0fff
	dc.w	$0184,$0fff,$0186,$0fff
scp	dc.w	$0102,$0000
bitmap  dc.w    $00e0,$0000,$00e2,$0000
bitmap2	dc.w	$00e4,$0000,$00e6,$0000
	dc.w	$100,$2200
	DC.W	$FFFF,$FFFE

GFXNAME:DC.B	"graphics.library",0
GFXLOC:	DC.L	0
OLDCOP:	DC.L	0
store:  dc.l    0
xp	dc.w	0
count	dc.w	0
	even
screen	rept	40
	dcb.w	20,%0000001111000000
	dcb.w	20,%0000110000110000
	dcb.w	20,%0001000000001000
	dcb.w	20,%0010000000000100
	dcb.w	20,%0010000000000100
	dcb.w	20,%0100000000000010
	dcb.w	20,%0100000000000010
	dcb.w	20,%1000000000000001
	dcb.w	20,%0100000000000010
	dcb.w	20,%0100000000000010
	dcb.w	20,%0010000000000100
	dcb.w	20,%0010000000000100
	dcb.w	20,%0001000000001000
	dcb.w	20,%0000110000110000
	endr