_____________________________________________________________________________ Title: XO-Deluxe Version: 8.00 Since : 12/10/96 Last update: 09/20/97 Author: RATTANAM WONGKALASIN - B3703007@POPEYE.SUT.AC.TH Model: Designed on a 9750,9850,9850PLUS,9950,9950 PLUS Description: Same TIC TAC TOE ,better than XO-GOLD ------------------- | O | | x | For Select Block Use "Small Block" ------------------- | x | O | x | And move Cursor by Arrow Key and Push EXE ------------------- | | | 0 | Small block =Big block but use for select only ------------------- Big block for Show "Your move and Com move" |--|--|--| |--|--|--| |--|--|--| | | | | | | | | | | | | |--|--|--| |--|--|--| |--|--|--| | | |+<--- Move Cursor | | | X| | | O| X| |--|--|--| And Push EXE |--|--|--| |--|--|--| | | | | | | | | | | | | |--|--|--| |--|--|--| |--|--|--| Small Block Big Block Com move Big block ---------------------------------------------------------------------------- COMMAND TRANSLATION: _ 'display' (SHIFT, 7, F5) <> 'not equal to' (SHIFT, 7, F2, F2) <= 'less than or equal to'(SHIFT, 7, F2, F6) >= 'more than or equal to'(SHIFT, 7, F2, F5) -> 'put in to' => 'then' (SHIFT, 7, F1, F1) Ran# gives a random number. (SHIFT, 5, F2, F4) / divide ----------------------------------------------------------------------------- PROGRAM CODE: XO-Deluxe 'Pragram Name "XO-Deluxe" "VERSION 8.00" "THE BEST EDITION" "TIC TAC TOE"# V-Window 1,127,0,1,63,0 0->A~Z 1->r Lbl 7 Cls For 1->I To 4 F-Line 8,15I-6,98,15I-6 F-Line 30I-22,9,30I-22,54 Next Text 2,89,"Xo-Deluxe" Identity 3->Mat A Fill(0,Mat A For 1->I To 4 F-Line 100+5I,9,100+5I,24 F-Line 120,5I+4,105,5I+4 Next r+1->r r=3=>1->r r->G For 1->Z To 10 0->A~B 0->M~N For 1->I To 3 Mat A[I,1]+Mat A[I,2]+Mat A[I,3->U Mat A[1,I]+Mat A[2,I]+Mat A[3,I->H Mat A[1,1]+Mat A[2,2]+Mat A[3,3->K Mat A[3,1]+Mat A[2,2]+Mat A[1,3->J U=2=>5I+1->M H=2=>5I+2->M K=2=>5I+3->M J=2=>5I+4->M U=8=>5I+1->N H=8=>5I+2->N K=8=>5I+3->N J=8=>5I+4->N U=3 Or U=12=>U->J H=3 Or H=12=>H->J K=3 Or K=12=>K->J J=12 Or J=3=>Goto W Next Z=10=>Goto W Lbl R 0->H 1->O Do H+1->H 4=H=>Isz O 4=H=>1->H LpWhile 0<>Mat A[H,O G=2=>Goto T Lbl A If Z=9 Then Plot 5O+103,27-5H_ Else Plot 113,16_ IfEnd For 1->I To 3 X>100+5I And X<105+5I=>I->A Next For 1->I To 3 Y>5I+4 And Y<9+5I=>4-I->B Next A=0 Or B=0=>Goto R 0<>Mat R[B,A=>Goto R r=1=>E->@ r=1=>F->L B->E A->F 1->Mat A[B,A F-Line 30A-19,57-15B,30A+5,66-15B F-Line 30A+5,57-15B,30A-19,66-15B Goto 5 Lbl T 0->A~B 0->T 0->V If Z=9 Then H->B O->A 4->Mat A[H,O Goto B IfEnd If Z=1 Then Int 3Ran#+1->A Int 3Ran#+1->B 4->Mat A[B,A Goto B IfEnd If Z=3 Then If 1=Mat A[2,2 Then C=1=>3->B C=3=>1->B D=1=>3->A D=3=>1->A If C=2 Or D=2 Then Int 2Ran#+1->A Int 2Ran#+1->B If C=2 Then B=2=>3->B D=1=>A+1->A IfEnd If D=2 Then A=2=>3->A C=1=>B+1->B IfEnd IfEnd IfEnd IfEnd N=0=>M->N If N<>0 Then Int (N/5->C N-5C->D If D=1 Then 0->Q Do 1+Q->Q LpWhile 0<>Mat A[C,Q C->B Q->A IfEnd If D=2 Then 0->Q Do Q+1->Q LpWhile 0<>Mat A[Q,C Q->B C->A IfEnd If D=3 Then 0->Q Do 1+Q->Q LpWhile 0<>Mat A[Q,Q Q->A~B IfEnd If D=4 Then 0->Q Do 1+Q->Q LpWhile 0<>Mat A[4-Q,Q 4-Q->B Q->A IfEnd IfEnd If (A<=0 Or A>3) Or (B<=0 Or B>3) Then If Z=5 Then If @<>2 And L=2 Then D->A @->B IfEnd If @=2 And L<>2 Then C->B L->A IfEnd If C<>2 And D=2 Then L->A C->B IfEnd If D<>2 And C=2 Then D->A @->B IfEnd If A<>0 And B<>0 Then If Mat A[B,A]=0 Then 4->Mat A[B,A GotoB IfEnd IfEnd IfEnd {2,1,1,3,3->List 1 {2,1,3,1,3->List 2 1->Q Do List 1[Q->B List 2[Q->A 1+Q->Q LpWhile Q<=5 And 0<>Mat A[B,A If 0<>Mat A[B,A] Or Z=4 Then 1->Q Do Int (3Ran#+1->B Int (3Ran#+1->A If Q=1 Then If Z=4 And Q=1 And (@=2 Or L=2) And @<>L Then 2->Q If L=2 Then @->B F->A Else L->A E->B IfEnd Else If (E=2 Or F=2) And F<>E Then If F=2 Then E->B L->A Else @->B F->A IfEnd IfEnd IfEnd IfEnd If ((@+L=2 Or @+L=6) And (E+F=2 Or E+F=6)) Or ((@+L=4 And @<>2) And (E+F=4 And E<>2)) And Z=4 Then While (A+B=4 And A<>2) Or (A+B=2) Or (A+B=6) Int 3Ran#+1->A Int 3Ran#+1->B WhileEnd IfEnd If Z=4 And @=L And L=2 And E=3 And E=F 'L=2 ! Then Int 2Ran#+1->B B=2=>3->B B=1=>3-A B=3=>1-A IfEnd LpWhile 0<>Mat A[B,A IfEnd IfEnd 4->Mat A[B,A Lbl B r=2=>C->@ r=2=>D->L B->C A->D F-Line 30A-19,57-15B,30A+5,57-15B F-Line 30A+5,57-15B,30A+5,66-15B F-Line 30A+5,66-15B,30A-19,66-15B F-Line 30A-19,66-15B,30A-19,57-15B Lbl 5 If G=2 Then 1->G Else 2->G IfEnd Next Lbl W J<>12 And J<>3=>Text 57,40,"NobOdY WiN" J=3=>Text 57,35,"You WiN ,GooD" J=12=>Text 57,38,"SorrY, I wIn" Text 57,1,"[NexT]" Text 57,106,"[eXIt]" Text 1,1," " G+1->G Do Getkey->I LpWhile I<>29 And I<>79 I=79=>Goto7 "END OF GAME" "HAVE A NICE DAY" Stop ==================================== My Casio 9850 Game 1 IQMAX -BEST CASIO CFX-9850 Game For me 2 XO-GOLD -Best of tic tac tae Game 3 PROCARD -3 in 1 game BLACKJACK POGDENG BLACKDENG 4 PUZZLE -Easy to write program but not easy to play 5 MINS SWEEPER -Same for win Good game 6 CONFUSION -Same for win Good game for test you memmory 7 HORSE RACING -Fun game 8 CALENDAR -9999 year Calendar viewer 9 AND MORE... ======================================= my casio calculator project for PC Caspaint : casio calculator graphic editor and generate source code CasPc : casio calculator simulator for DOS ( run casio code on PC) Beta Test ------------ Thank for Den Thana -idea for PROCARD THINK ,YO ,EAK ,UOD, BEE CHOO and more for test my games NY R-COM -for idea and technical (C) 1997 By Rattanam wongkalasin -NarM- Telecom Eng. SUT Thailand http://www.angelfire.com/in/narmfever http://popeye.sut.ac.th/~b3703007 b3703007@popeye.sut.ac.th narm@pemail.net