So i need help optimizing this

[A] is a 6x7 and contains 0-2, all of which will be near the bottom

```
DelVar L
{0,0,0,0,0,0,0,0→L1
For(D,1,6) :to go through all 6 rows
For(C,1,4) :to go through all 7 collumn without going out
expr("1000[A](D,C)+100[A](D,C+1)+10[A](D,C+2)+[A](D,C+3)")→X :horizontal check
X=1111 :player one win check
Ans+L1(1→L1(1
X=2222 :player 2 win check
Ans+L1(2→L1(2
End
End
For(D,1,3)
For(C,1,7)
expr("1000[A](D,C)+100[A](D+1,C)+100[A](D+2,C)+10[A](D+3,C)")→X :vertical check
X=1111
Ans+L1(3→L1(3
X=2222
Ans+L1(4→L1(4
End
For(C,1,4)
expr("1000[A](D,C)+100[A](D+1,C+1)+10[A](D+2,C+2)+[A](D+3,C+3)")→X :diagonal check
X=1111
Ans+L1(5→L1(5
X=2222
Ans+L1(6→L1(6
expr("1000[A](D,C+3)+100[A](D+1,C+2)+10[A](D+2,C+1)+[A](D+3,C)")→X :other diagonal check
X=1111
Ans+L1(7→L1(7
X=2222
Ans+L1(8→L1(8
End
End
If L1(1)=0 or L1(3)=0 or L1(5)=0 or L1(7)=0:Then :wining statements
Disp "PLAYER 1 WIN"
Stop
End
If L1(2)=0 or L1(4)=0 or L1(6)=0 or L1(8)=0:Then
Disp "PLAYER 2 WIN"
Stop
End
```

i just need it faster, i don't care if it gains or loses a few bytes

thanks

*The Silver Phantom welcomes you*