' *********NOUGHTS AND CROSSES*****' ******BY B.SURRIDGE DEC 1988***** : "NOUGHTS AND CROSSES"( "-------------------"2<@ 15,3;""F@ 15,4;"1 2 3 "P@ 15,5;""Z@ 15,6;" "d@ 15,7;"4 5 6 "n@ 15,8;""x@ 15,9;" "@15,10;"7 8 9 "@15,11;""3@ 0,14;"ENTER X OR O AND SPACE No. EACH TIME" I ~ 1 r 9A$~"000000":~A$D$~:D~((,4))(@ 5,20;"WHOSE GO NOW 'X' OR 'O' "; W$~$ W$~"X"s 250 230 W$~"O" s 270'*************X ROUTINE***********@ 5,20;(21)0@ 5,15;" 'X' TO GO, ENTER SPACE No.": 290@ 5,20;(21)0@ 5,15;" 'O' TO GO, ENTER SPACE No.": 515"@ 0,20;(21):P$~$, P$~"1"s A$(1)~P$: 3906 P$~"2"s A$(2)~P$: 400@ P$~"3"s A$(3)~P$: 410J P$~"4"s A$(4)~P$: 420T P$~"5" s A$(5)~P$: 430^ P$~"6" s A$(6)~P$: 440h P$~"7" s A$(7)~P$: 450r P$~"8" s A$(8)~P$: 460| P$~"9" s A$(9)~P$: 470@ 16,4;"X": 480@ 19,4;"X": 480@ 22,4;"X": 480@ 16,7;"X": 480@ 19,7;"X": 480@ 22,7;"X": 480@ 16,10;"X": 480@ 19,10;"X": 480@ 22,10;"X": 480XM$~A$(1)tA$(4)tA$(7):N$~A$(2)tA$(5)tA$(8):H$~A$(1)tA$(2)tA$(3):T$~A$(3)tA$(6)tA$(9)XV$~A$(1)tA$(5)tA$(9):F$~A$(3)tA$(5)tA$(7):G$~A$(4)tA$(5)tA$(6):S$~A$(7)tA$(8)tA$(9)  720"**********O ROUTINE*********@ 0,20;(21) Q$~$ Q$~"1"s B$(1)~Q$: 620 Q$~"2"s B$(2)~Q$: 630& Q$~"3" s B$(3)~Q$: 6400 Q$~"4" s B$(4)~Q$: 650: Q$~"5" s B$(5)~Q$: 660D Q$~"6" s B$(6)~Q$: 670N Q$~"7" s B$(7)~Q$: 680X Q$~"8" s B$(8)~Q$: 690b Q$~"9" s B$(9)~Q$: 700l@ 16,4;"O": 950v@ 19,4;"O": 950@ 22,4;"O": 950@ 16,7;"O": 950@ 19,7;"O": 950@ 22,7;"O": 950@ 16,10;"O": 950@ 19,10;"O": 950@ 22,10;"O": 950"********X STRINGS***********S H$~"123" { H$~"231" { H$~"312" { H$~"213" { H$~"321" { H$~"132" s 850 730S G$~"456" { G$~"465" { G$~"564" { G$~"546" { G$~"654" { G$~"645" s 850 740S S$~"789" { S$~"798" { S$~"879" { S$~"897" { S$~"978" { S$~"987" s 850 750S M$~"147" { M$~"174" { M$~"417" { M$~"471" { M$~"714" { M$~"741" s 850 760S N$~"258" { N$~"285" { N$~"528" { N$~"582" { N$~"825" { N$~"852" s 850 770S T$~"369" { T$~"396" { T$~"693" { T$~"639" { T$~"936" { T$~"963" s 850 780S  V$~"159" { V$~"195" { V$~"591" { V$~"519" { V$~"915" { V$~"951" s 850 790S F$~"357" { F$~"375" { F$~"573" { F$~"537" { F$~"753" { F$~"735" s 850 810*C~((,4)):E~CuD:R~E74@ 0,18;"YOU TOOK:";E;" SECONDS TO MAKE YOUR MOVE" >J~JtRC I}~9 s 1190 840HRC~((,4)):E~CuD:R~E7\@ 0,18;"YOU TOOK:";E;" SECONDS TO MAKE YOUR MOVE"]@ 15,20;"X HAS WON" fJ~JtRpE~0 @ 10,22;"PRESS SPACE BAR";V$~$: V$~"" s 920-@0,20;(21):@ 0,18;(21):@ 0,22;(21)  1180!**********O STRINGS********XK$~B$(1)tB$(4)tB$(7):Y$~B$(2)tB$(5)tB$(8):L$~B$(1)tB$(2)tB$(3):Z$~B$(3)tB$(6)tB$(9)XK$~B$(1)tB$(4)tB$(7):Y$~B$(2)tB$(5)tB$(8):L$~B$(1)tB$(2)tB$(3):Z$~B$(3)tB$(6)tB$(9)XU$~B$(1)tB$(5)tB$(9):R$~B$(3)tB$(5)tB$(7):C$~B$(4)tB$(5)tB$(6):J$~B$(7)tB$(8)tB$(9)U L$~"123" { L$~"132" { L$~"231" { L$~"213" { L$~"312" { L$~"321" s 1140 990U C$~"456" { C$~"465" { C$~"564" { C$~"546" { C$~"654" { C$~"645" s 1140 1000U J$~"789" { J$~"798" { J$~"879" { J$~"897" { J$~"978" { J$~"987" s 1140 1010U K$~"147" { K$~"174" { K$~"417" { K$~"471" { K$~"714" { K$~"741" s 1140 1020U Y$~"258" { Y$~"285" { Y$~"528" { Y$~"582" { Y$~"825" { Y$~"852" s 1140 1030U Z$~"369" { Z$~"396" { Z$~"693" { Z$~"639" { Z$~"936" { Z$~"963" s 1140 1040U U$~"159" { U$~"195" { U$~"591" { U$~"519" { U$~"915" { U$~"951" s 1140 1050U R$~"357" { R$~"375" { R$~"573" { R$~"537" { R$~"753" { R$~"735" s 1140 1070.G~((,4)):T~GuD:S~T88@ 10,18;"YOU TOOK:";T;" SECONDS TO MAKE YOUR MOVE" BM~MtSG I}~9 s 1190 1100LtG~((,4)):T~GuD:S~T8u@ 10,18;"YOU TOOK:";T;" SECONDS TO MAKE YOUR MOVE"v@ 15,20;"O HAS WON" wM~MtSxT~0 @ 10,21;"PRESS SPACE BAR";V$~$: V$~"" s 1178.@ 0,20;(21):@ 0,21;(21):@ 0,18;(21)F@ 10,18;"THE TOTAL TIME FOR THE GAME IS: ";JtM;" SECONDS": 1200@ 15,20;"GAME IS A DRAW"@ 12,22;"PRESS SPACE BAR"E$~$: E$~" " s 12205@ 0,10;"DO YOU WISH TO CONTINUE PLAYING? (Y/N)""D$~$: D$~"Y" s 1250 1260 : 10&:@ 10,10;"THANKS FOR PLAYING":QYI0