org $008E81
JSL ForxenCursor

org $3F8000
db "STAR"
dw Forxend-ForxenCursor-$01
dw Forxend-ForxenCursor-$01^$FFFF

ForxenCursor:
	LDA $13C0
	BNE M3_Cursor

	LDA $18
	AND #$20	; If pressing A...
	BEQ M3_Return

	LDA #$01
	STA $13C0	; Set egg-throwing flag.

M3_Return:
	JMP FORXENEND

M3_Cursor:
	LDY $14
	LDA $7E
	LDX $76
	BEQ LeftCursor
	CLC
	ADC M3_CursorX_TBL,y
	STA $0240

M3_SkipX:
	LDA $80
	CLC
	ADC M3_CursorY_TBL,y
	STA $0241

M3_SkipY:
	REP #$20
	LDA #$340E	; Load cursor graphic.
	STA $0242
	SEP #$20

	LDA #$02
	STA $0430
	JMP FORXENEND

LeftCursor:
SEC
SBC M3_CursorX_TBL,y
STA $0240
BRA M3_SkipX

M3_CursorX_TBL:
db $00,$06,$0E,$11,$15,$18,$1A,$1C,$1E,$20,$21,$23,$24,$26,$27,$28
db $29,$2B,$2C,$2D,$2E,$2F,$30,$31,$32,$33,$34,$35,$36,$37,$38,$39
db $3A,$3B,$3C,$3D,$3E,$3D,$3C,$3B,$3A,$39,$38,$37,$36,$35,$34,$33
db $32,$31,$30,$2F,$2E,$2D,$2C,$2B,$29,$28,$27,$26,$24,$23,$21,$20
db $20,$21,$23,$24,$26,$27,$28,$29,$2B,$2C,$2D,$2E,$2F,$30,$31,$32
db $33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3D,$3C,$3B,$3A
db $39,$38,$37,$36,$35,$34,$33,$32,$31,$30,$2F,$2E,$2D,$2C,$2B,$29
db $28,$27,$26,$24,$23,$21,$20,$1E,$1C,$1A,$18,$15,$11,$0E,$06,$00
db $00,$06,$0E,$11,$15,$18,$1A,$1C,$1E,$20,$21,$23,$24,$26,$27,$28
db $29,$2B,$2C,$2D,$2E,$2F,$30,$31,$32,$33,$34,$35,$36,$37,$38,$39
db $3A,$3B,$3C,$3D,$3E,$3D,$3C,$3B,$3A,$39,$38,$37,$36,$35,$34,$33
db $32,$31,$30,$2F,$2E,$2D,$2C,$2B,$29,$28,$27,$26,$24,$23,$21,$20
db $20,$21,$23,$24,$26,$27,$28,$29,$2B,$2C,$2D,$2E,$2F,$30,$31,$32
db $33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3D,$3C,$3B,$3A
db $39,$38,$37,$36,$35,$34,$33,$32,$31,$30,$2F,$2E,$2D,$2C,$2B,$29
db $28,$27,$26,$24,$23,$21,$20,$1E,$1C,$1A,$18,$15,$11,$0E,$06,$00

M3_CursorY_TBL:
db $3E,$3D,$3C,$3B,$3A,$39,$38,$37,$36,$35,$34,$33,$32,$31,$30,$2F
db $2E,$2D,$2C,$2B,$29,$28,$27,$26,$24,$23,$21,$20,$1E,$1C,$1A,$18
db $15,$11,$0E,$06,$00,$F9,$F1,$EE,$EA,$E7,$E5,$E3,$E1,$DF,$DE,$DC
db $DB,$D9,$D8,$D7,$D6,$D4,$D3,$D2,$D1,$D0,$CF,$CE,$CD,$CC,$CB,$CA
db $CA,$CB,$CC,$CD,$CE,$CF,$D0,$D1,$D2,$D3,$D4,$D6,$D7,$D8,$D9,$DB
db $DC,$DE,$DF,$E1,$E3,$E5,$E7,$EA,$EE,$F1,$F9,$00,$06,$0E,$11,$15
db $18,$1A,$1C,$1E,$20,$21,$23,$24,$26,$27,$28,$29,$2B,$2C,$2D,$2E
db $2F,$30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E
db $3E,$3D,$3C,$3B,$3A,$39,$38,$37,$36,$35,$34,$33,$32,$31,$30,$2F
db $2E,$2D,$2C,$2B,$29,$28,$27,$26,$24,$23,$21,$20,$1E,$1C,$1A,$18
db $15,$11,$0E,$06,$00,$F9,$F1,$EE,$EA,$E7,$E5,$E3,$E1,$DF,$DE,$DC
db $DB,$D9,$D8,$D7,$D6,$D4,$D3,$D2,$D1,$D0,$CF,$CE,$CD,$CC,$CB,$CA
db $CA,$CB,$CC,$CD,$CE,$CF,$D0,$D1,$D2,$D3,$D4,$D6,$D7,$D8,$D9,$DB
db $DC,$DE,$DF,$E1,$E3,$E5,$E7,$EA,$EE,$F1,$F9,$00,$06,$0E,$11,$15
db $18,$1A,$1C,$1E,$20,$21,$23,$24,$26,$27,$28,$29,$2B,$2C,$2D,$2E
db $2F,$30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E


FORXENEND:
LDX #$10
LDY #$00
RTL

Forxend: