Connect Four with CASIO BASIC

by sonone, Jun 16, 2021, 3:56 PM

Hey everyone!
I made a Connect Four (two players) program on my CASIO fx-9750GII using the CASI BASIC programming language.
Here are the features:
Press the left and right arrows to move columns
The EXE button places your chip
When a column is full, the $\uparrow$ will become a $\times$ on the column
You win by getting four of the same chips in a row vertically, horizontally or diagonally
Here is some other useful info:
Uses 1084 bytes of memory
119 lines

BAISC code

ClrText
[[0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0]]->Mat A
{0,0,0,0,0,0,0}->List 1
"<DOUBLE VERTICAL LINES>"->Str 1
"="->Str 2
"#"->Str 3
"<UPARROW>"->Str 4
"<XCROSS>"->Str 5
For 1->I To 7
If I≠7
Then Locate 13,I,Str 1
Locate 21,I,Str 1
IfEnd
Locate I+13,7,Str 2
Next
Locate 13,7,Str 3
Locate 21,7,Str 3
Locate 1,6,"press EXE"
Locate 1,7,"place chip"
1->C
1->K
0->Q
Locate 14,7,Str 4
Lbl M
Locate 1,1,"player"
Locate 8,1,K
Locate 1,2,"column:"
If Getkey=38 And C>1
Then Locate 13+C,7,Str 2
C-1->C
If List 1[C]≥5
Then Locate 13+C,7,Str 5
Else Locate 13+C,7,Str 4
IfEnd
IfEnd
If Getkey=27 And C<7
Then Locate 13+C,7,Str 2
C+1->C
If List 1[C]≥5
Then Then Locate 13+C,7,Str 5
Else Locate 13+C,7,Str 4
IfEnd
IfEnd
Locate 8,2,C
List 1[C]->D
If Getkey=31 And D<6
Then Q+1->Q
If K=1
Then 2->K
Else 1->K
IfEnd
K->Mat A[6-D,C]
If K=1
Then Locate 13+C,6-D,"<FILLED CIRCLE>"
Else Locate 13+C,6-D,"<OPEN CIRCLE>"
IfEnd
D+1->D
D->List 1[C]
D=6=>Locate 13+C,7,Str 5
0->W
For 1-I To 6
If Mat A[I,C]=K
Then W+1->W
W=4=>Goto F
Else 0->W
IfEnd
Next
0->W
For 1-I to 7
If Mat A[7-D,I]=K
Then W+1->W
W=4=>GoTo F
Else 0->W
IfEnd
Next
0->W
If C≥D
Then C-D+1->L
1->R
Else 1->L
D-C+1->R
IfEnd
While L≤7 And R≤6
If Mat A[7-R,L]=K
Then W+1->W
Else 0->W
IfEnd
W=4=>Goto F
R+1->R
L+1->L
WhileEnd
0->W
If 8-C≥D
Then 1->R
C+D-1->L
Else 7->L
D+C-8->R
IfEnd
While L≥1 And R≤6
If Mat A[7-R,L]=K
Then W+1->W
Else 0->W
IfEnd
W=4=>Goto F
L-1->L
R+1->R
WhileEnd
Q=42=>Goto T
IfEnd
While Getkey=31
WhileEnd
Goto M
ClrList 1
ClrMat A
Lbl T
Locate 1,4,"tie :("
Stop
Lbl F
Locate 1,4,"you win!"

P.S. I learned CASIO BASIC from the software guide (too large to attach), if anyone is interested. Page 212 (8-1)

code

Connect4

casio BASIC

Comment

2 Comments

The post below has been deleted. Click to close.

This post has been deleted. Click here to see post.

Looks like a fun project! I haven't done calculator programs for a while, but I'd have to do mine on my TI-84 which I think also uses BASIC but might allow Python.

by SirCalcsALot, Jun 17, 2021, 4:52 AM

Report

The post below has been deleted. Click to close.

This post has been deleted. Click here to see post.

what do you mean you haven't done calculator programs for a while your name is sircalcsalot

by pog, Nov 29, 2021, 12:46 AM

Report

Submit

I still exist as well.
by G.G.Otto, Aug 11, 2023, 2:44 AM
hello I'm still here lol
by player01, Aug 6, 2022, 6:24 PM
[REVIVAL] I will start posting more calculator relating posts very soon. Even though school has been busy, I have been programming my calculators a decent amount, so I have a lot to share...
by sonone, Feb 18, 2022, 10:29 PM
wow its been like 2.5 years since geo class
by pieMax2713, Feb 4, 2022, 8:38 PM
@violin21, I've been very busy with school lately and haven't been able to add another lesson. I will when i get a free moment
by sonone, Aug 19, 2021, 12:45 AM
ORZ CODER
by samrocksnature, Aug 9, 2021, 9:57 PM
Could you make more Asymptote lessons on your "How to do Asymptote" blog?
by violin21, Aug 9, 2021, 7:26 PM
You can take it, just C&P the CSS into your CSS area
by sonone, Apr 17, 2021, 10:08 PM
how can we take the CSS if we have permission to not take it?
by GoogleNebula, Apr 17, 2021, 5:22 PM
That is awesome!
by sonone, Apr 15, 2021, 10:09 PM
I modified your dodecahedron and got:
[asy]
import three;
import solids;
size(300);
currentprojection=orthographic(0,1.3,1.2);
light(0,5,10);

real phi=(sqrt(6)+1)/3;
real g=(phi-1)/2;
real s=1/2;
real a=sqrt(1-phi*phi/4-g*g)+phi/2;

triple[] d;
d[0]=(phi
by Andrew2019, Mar 26, 2021, 12:15 AM
Not too many, just changing the color here and there. I really like your CSS!
by sonone, Feb 2, 2021, 10:35 AM
Nice!

I see you're making changes to the CSS.
by G.G.Otto, Feb 1, 2021, 9:26 PM
I'm learning Java now!
by sonone, Feb 1, 2021, 5:56 PM
And I took part of it from CaptainFlint and then added a ton of modifications.
by G.G.Otto, Dec 1, 2020, 8:56 AM
fixed $\text{[math]}$
by sonone, Apr 25, 2020, 8:43 PM
Change in progress...
by sonone, Apr 25, 2020, 8:42 PM
When it says "At least 11 users clicked that button" it's incorrect since one person could have just posted 11 times. It should say "At most 11 users click that button".
by G.G.Otto, Apr 25, 2020, 8:26 PM
see this PM
by sonone, Apr 25, 2020, 7:03 PM
I can't get the cursor to work.
by G.G.Otto, Apr 25, 2020, 6:38 PM
If the cursor is confusing, where you are actually pointing in a front of the ship
by sonone, Apr 25, 2020, 11:04 AM
It's ok $\text{[math]}$
by sonone, Apr 23, 2020, 5:30 PM
Sorry I haven't been posting. I've got a Research Paper (for Roman History) due in a week.
by G.G.Otto, Apr 22, 2020, 11:15 PM
You should download it, as it's really useful when learning python. You can find out more here
by G.G.Otto, Apr 19, 2020, 10:04 PM
No. I don't have IDLE.
by sonone, Apr 18, 2020, 7:49 PM
Do you have IDLE installed on your computer? If so, I can give you a couple really cool codes that made that don't work in the AoPS widgets.
by G.G.Otto, Apr 14, 2020, 6:47 AM
I don't know how to change it....
by G.G.Otto, Apr 5, 2020, 5:58 PM
Do you know how the change the into thing above my avatar a different color? It's too hard to see.
by sonone, Apr 5, 2020, 2:08 PM
WELCOME TO MY BLOG!
by sonone, Mar 31, 2020, 4:56 PM

98 shouts

sonone's place

Connect Four with CASIO BASIC

by sonone, Jun 16, 2021, 3:56 PM

2 Comments