Can you beat my game?

No exe, compile it yourself:

Very simple game, I'm not sure how to beat it. You click the array and you can only move like the horse moves in the chess game. F2 resets the game.

My high score is 42

AppTitle "Small game by nawitus - F2 to restart"

Dim Map(8,8)

Map(4,4) = 1
Global C=1,lastx=4,lasty=4

Graphics 288,288,0,2


Repeat

	Rect 0,0,96,96,1
	Rect 0,192,96,96,1
	Rect 192,0,96,96,1
	Rect 192,192,96,96,1

	For x=0 To 8
		For y=0 To 8
			Rect x*32,y*32,32,32,0
			If Map(x,y) Then Text x*32+10,y*32+10,Map(x,y)
		Next
	Next

	If MouseHit(1) Then
		mx=MouseX():my=MouseY()
		tx = Floor(mx/32)
		ty = Floor(my/32)
		If (tx>-1) And (ty>-1) And (tx<9) And (ty<9)
			If Map(tx,ty) = 0
				If Not(tx<3 And ty<3)
				If Not(tx>5 And ty>5)
				If Not(tx<3 And ty>5)
				If Not(tx>5 And ty<3)
				If check(tx,ty)
				C=c+1
				Map(tx,ty) = C
				lastx=tx
				lasty=ty
				EndIf
				EndIf
				EndIf
				EndIf
				EndIf
			EndIf
		EndIf
	EndIf
	
	If KeyHit(60)
		For x=0 To 8
			For y=0 To 8
				Map(x,y)=0	
			Next
		Next
		C=1
		Map(4,4)=1
		lastx=4
		lasty=4
	EndIf


	Flip
	Cls


Until KeyHit(1)

Function Check(tx,ty)
	If (Abs(lastx-tx) = 2) And (Abs(lasty-ty)=1) Return 1
	If (Abs(lastx-tx) = 1) And (Abs(lasty-ty)=2) Return 1
End Function