:DCS
"11111111111111111BB1BB1BB1BB1BB11BB1BB1BB1BB1BB111111111111111111BB1BB1BB1221BB11BB1BB1BB1221BB111111111111111111BB1221221331BB11BB1221221331BB111111111111111111331221331331BB11331221331331BB11111111111111111122133122122133112213312212213311111111111111111"
ClrDraw:AxesOff
GridOff
SetUpEditor L4
13->dim(L4
Fill(0,L4
SetUpEditor L1
43->dim(L1
Fill(0,L1
SetUpEditor L3
{2,4,5,6,6,7,7,7->L3
BackgroundOff
0->Xmin:0->Ymin
264->Xmax:164->Ymax
1->S:1->T
TextColor(Red
Text(150,1,"2ND TO PROCEED
TextColor(Blue
Repeat max(K={21,105
getKey->K
Text(1,1,"1. BOARD STYLE: ",sub("CLASSIC  SIMPLE    ",S+8(S=2),9
Text(15,1,"2. ANIMATIONS: ",sub("ON   OFF  ",T+4(T=2),5
S+1(K=92 and S=1)-1(K=92 and S=2->S
T+1(K=93 and T=1)-1(K=93 and T=2->T
End
ClrDraw
5->theta
TextColor(Red
For(F,1,8
Text(~1,theta,155,sub("CONNECT4",F,1
theta+20->theta
End
2->theta
Text(~1,75,195,"BY:
For(F,1,12
Text(theta,254,sub("TI-FREAKWARE",F,1
theta+13->theta
End
If S=1:Then
For(F,5,149,2
Line(F,0,F,117,1,10,2
End
For(W,5,100,19
For(X,17,149,20
For(A,1,8
L3(A
Line(X-Ans,W+A,X+Ans,W+A,0
Line(X-Ans,16-A+W,X+Ans,16-A+W,0
End:End:End
For(F,7,147,20
Line(F,2,F,115,0,20,1
End:End
If S=2:Then
For(F,4,118,19
Line(7,F,147,F,1,10
End
For(F,7,147,20
Line(F,3,F,117,1,10
End:End
TextColor(Black
Text(18,184,"2ND/[V]
Text(31,204,"TO
Text(44,196,"DROP
Text(107,195,"MODE
Text(120,204,"TO
Text(133,195,"QUIT
1->W:1->U:7->R
While iPart(W)=1
If fPart(W)=0:Then:17->A:126->B:End
For(F,1,8
L3(F
Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,1,10+U-3(U=5),2
Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),1,10+U-3(U=5),2
End
2->W
While W=2
getKey->K
If max(K={21,24,26,22,34
Then
For(F,1,8
L3(F
Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,0
Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),0
End
If K=24 or K=26:Then
A-20((K=24 and A>17)-(K=26 and A<137->A
1.1->W:End
If K=22:Then
ClrDraw:BackgroundOff:DelVar ADelVar BDelVar FDelVar ZDelVar KDelVar MDelVar LDelVar PDelVar RDelVar thetaDelVar UDelVar WDelVar L1DelVar L4DelVar L3
End
If K=21 or K=34:Then
(A+3)/20->L
(B-12)/19->Z
(6L)-5->M
If L1(M)=0:Then
If T=1:Then
While Z>1 and L1(M)=0
For(F,1,8
L3(F
Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,0
Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),0
End
B-19->B:M+1->M
(B+7)/19->Z
If Z=2 and L1(M)!=0:U->L1(M-1
For(F,1,8
L3(F
Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,1,10+U-3(U=5),2
Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),1,10+U-3(U=5),2
End:End:End
If T=2:Then
While Z>1 and L1(M)=0
B-19->B:M+1->M
(B+7)/19->Z
If Z=2 and L1(M)!=0:U->L1(M-1
End
For(F,1,8
L3(F
Line(A-Ans,(B-7)+F,A+Ans,(B-7)+F,1,10+U-3(U=5),2
Line(A-Ans,16-F+(B-7),A+Ans,16-F+(B-7),1,10+U-3(U=5),2
End:End
M-1->M
U->L1(M
If Z>3 and L>0
sum({L1(M),L1(M+1),L1(M+2),L1(M+3)})/4->L4(1
If Z>3 and L>3
sum({L1(M),L1(M-5),L1(M-10),L1(M-15)})/4->L4(2
If Z>0 and L>3
sum({L1(M),L1(M-6),L1(M-12),L1(M-18)})/4->L4(3
If Z<4 and L>3
sum({L1(M),L1(M-7),L1(M-14),L1(M-21)})/4->L4(4
If Z<4 and L<5
sum({L1(M),L1(M+5),L1(M+10),L1(M+15)})/4->L4(5
If Z>0 and L<5
sum({L1(M),L1(M+6),L1(M+12),L1(M+18)})/4->L4(6
If Z>3 and L<5
sum({L1(M),L1(M+7),L1(M+14),L1(M+21)})/4->L4(7
If (Z>1 and L>1) and (Z<6 and L<6
sum({L1(M),L1(M-5),L1(M+5),L1(M+10)})/4->L4(8
If (Z>2 and L>2) and (Z<6 and L<7
sum({L1(M),L1(M+5),L1(M-5),L1(M-10)})/4->L4(9
If (Z>0 and L>1) and (Z<6 and L<6
sum({L1(M),L1(M-6),L1(M+6),L1(M+12)})/4->L4(10
If (Z>0 and L<7) and (Z<6 and L>2
sum({L1(M),L1(M+6),L1(M-6),L1(M-12)})/4->L4(11
If (Z<6 and L>1) and (Z>2 and L<6
sum({L1(M),L1(M-7),L1(M+7),L1(M+14)})/4->L4(12
If (Z<5 and L>2) and (Z>1 and L<7
sum({L1(M),L1(M+7),L1(M-7),L1(M-14)})/4->L4(13
If max(1=L4) or max(5=L4:Then
TextColor(10+U-3(U=5
Text(1,1,"Player ",U-3(U=5)," Wins!
Pause :For(F,148,164:Line(0,F,100,F,0:End
1->M
For(X,17,149,20
For(F,100,5,~19
If L1(M)!=0:Then
For(A,1,8
L3(A
Line(X-Ans,F+A,X+Ans,F+A,0
Line(X-Ans,16-A+F,X+Ans,16-A+F,0
End:End
M+1->M
End:End
1->U:Fill(0,L1
Fill(0,L4
Else
U-4(U=5)+4(U=1)->U
End
1->W
End:End:End
End:End