Home, 83 Math, 83 Other, 86 Games, 86 Math, 86 Other, Downloads
Here are a few games to keep you entertained durring those extra long classes.
Tic-Tac-Toe
Guess The Number
BlackJack
Chess
T
ic-Tac-Toe
ClrHome
Output(1,7,"!
Output(1,9,"!
Output(2,6,"-+-+-
Output(3,7,"!
Output(3,9,"!
Output(4,6,"-+-+-
Output(5,7,"!
Output(5,9,"!
Output(1,6,"7
Output(1,8,"8
Output(1,10,"9
Output(3,6,"4
Output(3,8,"5
Output(3,10,"6
Output(5,6,"1
Output(5,8,"2
Output(5,10,"3
0->Y
0->Z
0->W
0->T
0->U
0->V
0->O
0->P
0->Q
0->A
0->X
While 1
A->X
getKey->K
If K=92 and Y=0
Then
If X=1
Then
Output(5,6,"O
A-1->A
1->Y
Else
If X=0
Then
Output(5,6,"X
A+1->A
10->Y
End
End
End
If K=93 and Z=0
Then
If X=1
Then
Output(5,8,"O
A-1->A
1->Z
Else
If X=0
Then
Output(5,8,"X
A+1->A
10->Z
End
End
End
If K=94 and W=0
Then
If X=1
Then
Output(5,10,"O
A-1->A
1->W
Else
If X=0
Then
Output(5,10,"X
A+1->A
10->W
End
End
End
If K=82 and T=0
Then
If X=1
Then
Output(3,6,"O
A-1->A
1->T
Else
If X=0
Then
Output(3,6,"X
A+1->A
10->T
End
End
End
If K=83 and U=0
Then
If X=1
Then
Output(3,8,"O
A-1->A
1->U
Else
If X=0
Then
Output(3,8,"X
A+1->A
10->U
End
End
End
If K=84 and V=0
Then
If X=1
Then
Output(3,10,"O
A-1->A
1->V
Else
If X=0
Then
Output(3,10,"X
A+1->A
10->V
End
End
End
If K=72 and O=0
Then
If X=1
Then
Output(1,6,"O
A-1->A
1->O
Else
If X=0
Then
Output(1,6,"X
A+1->A
10->O
End
End
End
If K=73 and P=0
Then
If X=1
Then
Output(1,8,"O
A-1->A
1->P
Else
If X=0
Then
Output(1,8,"X
A+1->A
10->P
End
End
End
If K=74 and Q=0
Then
If X=1
Then
Output(1,10,"O
A-1->A
1->Q
Else
If X=0
Then
Output(1,10,"X
A+1->A
10->Q
End
End
End
If K=45
Then
ClrHome
Stop
End
If Y+Z+W=3 or T+U+V=3 or O+P+Q=3 or O+U+W=3 or Y+U+Q=3 or O+T+Y=3 or P+U+Z=3 or Q+V+W=3
Then
Output(7,6,"O WINS
Stop
End
If Y+Z+W=30 or T+U+V=30 or O+P+Q=30 or O+U+W=30 or Y+U+Q=30 or O+T+Y=30 or P+U+Z=30 or Q+V+W=30
Then
Output(7,6,"X WINS
Stop
End
If O+P+Q+T+U+V+Y+Z+W=54
Then
Output(7,4,"CATS GAME
Stop
End
If K=0
Then
End
End
Top of Page,Tic-Tac-Toe, Guess The Number, BlackJack, Chess
G
uess The Number
This is a simple game. You guess 1-100, it tell's you higher or lower reletive to the answer, when you get it correct it displays the number of guesses you took.
ClrHome
Top of Page,Tic-Tac-Toe,
Guess The Number,
BlackJack,
Chess
Lbl S
If A>10:10->A
If A=1 and B=10
If A=1
If B=1
ClrHome
If G=1
Lbl E
Output(1,3,"YOUR TOTAL IS
Else
A+B+C->T
If D=1
A+B+C+D->T
If E=1
A+B+C+D+E->T
Lbl B
Top of Page,Tic-Tac-Toe,
Guess The Number,
BlackJack,
Chess
ClrDraw
22->A
0->X
1->B
Pause
Disp "1. C 2. N 3. B","4. P 5. K 6.Q
If Z>=-28 and Z<=-22
(note o=theta and will be used for several following lines)
If o<=31 and o>=25
Text(o,Z," "(6 spaces)
If Y<=31 and Y>=25
Text(Y,X," "(6 Spaces)
If P=1
Pause
Top of Page,Tic-Tac-Toe,
Guess The Number,
BlackJack,
Chess
Home,
83 Math,
83 Other,
86 Games,
86 Math,
86 Other,
Downloads
randInt(1,100->A
Disp "GUESS 1-100
0->X
Lbl 1
Input B
If A>B
Then
Goto 2
Else
If A
Goto 3
Else
If A=B
Goto 4
Lbl 2
1+X->X
Disp "HIGHER
Goto 1
Lbl 3
1+X->X
Disp "LOWER
Goto 1
Lbl 4
ClrHome
1+X->X
Output(3,5,"CORRECT!
Output(5,8,X
Output(7,6,"TURNS
Pause
ClrHomeB
lackJack
ClrHome
randInt(1,13->A
randInt(1,13->B
randInt(1,13->C
randInt(1,13->D
randInt(1,13->E
randInt(16,24->F
If B>10:10->B
If C>10:10->C
If D>10:10->D
If E>10:10->E
Then
Output(5,3,"BLACK JACK
Pause
Goto S
Else
If B=1 and A=10
Then
Output(5,3,"BLACK JACK
Pause
Goto S
End
End
Then
B->T
Disp "TOTAL IS
Disp T
Input "1 or 11?",A
If A=1
Then
1->A
Else
11->A
End
End
Then
A->T
Disp "TOTAL IS
Disp T
Input "1 or 11?",G
If G=1
Then
1->B
Else
11->B
End
End
A+B->T
Output(1,5,"YOU DREW
Output(3,1,A
Output(3,4,B
Output(5,3,"TOTAL OF
Output(5,13,T
Output(7,3,"STAY=1 HIT=2
Disp "","","","","","",""
If T>21:Goto B
Input G
Then
Goto E
ClrHome
If F>21
Then
Output(3,4,"HOUSE BUST
Output(5,5,"YOU WIN
Pause
Goto S
End
Output(2,9,T
Output(4,2,"HOUSE TOTAL IS
Output(5,9,F
If T>F
Then
Output(7,6,"YOU WIN
Pause
Goto S
End
If F>T
Then
Output(7,5,"YOU LOSE
Pause
Goto S
End
If F=T
Then
Output(7,4,"TIE/PUSH
Pause
Goto S
End
If C=1
Then
ClrHome
Disp "TOTAL IS
Disp T
Input "1 or 11?",C
If C=1
Then
1->C
Else
11->C
End
End
Disp "","","","","","",""
Output(1,5,"YOU DREW
Output(3,1,A
Output(3,4,B
Output(3,7,C
Output(5,3,"TOTAL OF
Output(5,13,T
Output(7,3,"STAY=1 HIT=2
If T>21:Goto B
Input G
If G=1
Then
Goto E
Else
Then
ClrHome
Disp "TOTAL IS
Disp T
Input "1 or 11?",D
If D=1
Then
1->D
Else
11->D
End
End
Disp "","","","","","",""
Output(1,5,"YOU DREW
Output(3,1,A
Output(3,4,B
Output(3,7,C
Output(3,10,D
Output(5,3,"TOTAL OF
Output(5,13,T
Output(7,3,"STAY=1 HIT=2
If T>21:Goto B
Input G
If G=1
Then
Goto E
Else
Then
Disp "TOTAL IS
Disp T
Input "1 or 11?",E
If E=1
Then
1->E
Else
11->E
End
End
Disp "","","","","","",""
Output(1,5,"YOU DREW
Output(3,1,A
Output(3,4,B
Output(3,7,C
Output(3,10,D
Output(3,13,E
Output(5,3,"TOTAL OF
Output(5,13,T
If T>21
Then
Goto B
Else
Pause
Goto E
ClrHome
Output(1,7,"BUST
Output(3,5,"YOU LOSE
Output(5,3,"TOTAL OF
Output(5,12,T
Pause
Goto SC
hess
AxesOff
CoordOff
ZInterger
31->A
Repeat A=-32
Line(-28,A,28,A
A-7->A
End
-28->A
Repeat A=35
Line(A,31,A,-25
A+7->
End
20->A
Repeat A=76
Text(8,A,"P
A+7->A
End
Text(1,20,"C
Text(1,27,"N
Text(1,34,"B
Text(1,41,"K
Text(1,48,"Q
Text(1,55,"B
Text(1,62,"N
Text(1,69,"C
Repeat A=78
Text(43,A,"P
A+7->A
End
Text(50,22,"C
Text(50,29,"N
Text(50,36,"B
Text(50,43,"K
Text(50,50,"Q
Text(50,57,"B
Text(50,64,"N
Text(50,71,"C
1->A
1->B
Repeat X=8
Text(A,79,B
A+7->A
B+1->B
X+1->X
End
22->A
Repeat X=0
Text(57,A,B
A+7->A
B+1->B
X-1->X
End
0->A
While 1
ClrHome
Input "PIECE? ",P
Input
X->Z
Y->o(theta)
Input
Then
20->Z
Else
If Z>=-21 and Z<=-15
Then
27->Z
Else
If Z>=-14 and Z<=-8
Then
34->Z
Else
If Z>=-7 and Z<=-1
Then
41->Z
Else
If Z>=0 and Z<=6
Then
48->Z
Else
If Z>=7 and Z<=13
Then
55->Z
Else
If Z>=14 and Z<20
Then
62->Z
Else
69->Z
End
End
End
End
End
End
End
Then
1->o
Else
If o<=24 and 0>=18
Then
8->o
Else
If o<=17 and o>=11
Then
15->o
Else
If o<=10 and o>=4
Then
22->o
Else
If o<=3 and o>=-3
Then
29->o
Else
If o<=-4 and o>=-10
Then
36->o
Else
If o<=-11 and o>=-17
Then
43->o
Else
50->o
End
End
End
End
End
End
End
If X>=-28 and X<=-22
Then
20->X
Else
If X>=-21 and X<=-15
Then
27->X
Else
If X>=-14 and X<=-8
Then
34->X
Else
If X>=-7 and X<=-1
Then
41->X
Else
If X>=0 and X<=6
Then
48->X
Else
If X>=7 and X<=13
Then
55->X
Else
If X>=14 and X<=20
Then
62->X
Else
69->X
End
End
End
End
End
End
End
Then
1-Y
Else
If Y<=24 and Y>=18
Then
8->Y
Else
If Y<17 and Y>=11
Then
15->Y
Else
If Y<=10 and Y>=4
Then
22->Y
Else
If Y<=3 and Y>=-3
Then 29->Y
Else
If Y<=-4 and Y>=-10
Then
36->Y
Else
If Y<=-11 and Y>=-17
Then
43->Y
Else
50->Y
End
End
End
End
End
End
End
If A=1
Then
A-2->A
X+2->X
End
A+1->A
Then
Text(Y,X,"C
Else
If P=2
Then
Text(Y,X,"N
Else
If P=3
Then
Text(Y,X,"B
Else
If P=4
Then
Text(Y,X,"P
Else
If P=5
Then
Text(Y,X,"K
Else
If P=6
Then
Text(Y,X,"Q
End
End
End
End
End
End
End
