% IXTACTOE IS DISK NAMEQ **********************************} * NINE TAC TOE *( * PROGRAMMED BY ROY GROTH *2 * CONCEPT COURTESY OF: *< * GAMES MAGAZINE *-F * BOARDS RANDOMIZED BY D COOVER *YG **********************************H * CONVERTED FOR THE C-128 BY *I * JOHN TEEPLE *P **********************************U 5,2: 6,1:%Z5,1: BD(8,2,2),X(26,2,2),WI(8),BM(8)[d"ONE MOMENT PLEASE....IT TAKES TIME TO SET UP THE BOARDS."n I0 8: J0 2: K0 2:BD(I,J,K)0: K,J:BM(I)0: Ix X0 26: SC0 2ISC((0)3)3: BM(I) 130 J((1)3):K((1)3): BD(I,J,K)0 140IBD(I,J,K)X1:X(X,SC,0)I1:X(X,SC,1)J1:X(X,SC,2)K1II0: JJ0 2: KK0 2:IIII(BD(I,JJ,KK)0): KK,JJBM(I)(II9) SC,X I0 8:BM(I)0:WI(I)0: I 710 ,4,23: "DO YOU WANT TO MOVE FIRST";ANS$5 ANS$ "Y" ANS$ "" REPLY 1: REPLY 0g ,4,23: " "; (0) REPLY 470 SV32767:MS0:SB1 MV0 26 X(MV,0,0)0 340 SC0: NU0 2: 270:: 310!BDX(MV,NU,0)1:XX(MV,NU,1)1:YX(MV,NU,2)1+! WI(BD)0 300_!" XY31 620,630,640,650,660,670,680,690,700e!,w!6 SCSV 340!@ SCSV (SB)1 SBSB1: 340!JSVSC:MSMV:SB2!T MV!^SL696: 32000: "I MOVE";MS1;" ";:MVMS!hFG03"r NU0 2:BDX(MV,NU,0)1:XX(MV,NU,1)1:YX(MV,NU,2)1K"| WI(BD)0 420T"FG1"BD(BD,X,Y)1:X(MV,0,0)0:SC0: 290: SC500 WI(BD)1: 420"BM(BD)BM(BD)1: BM(BD)9 WI(BD)2"# FG0 SL696: 32000: "NO, I DON'T";:X(MV,0,0)0: 220# 7201# I0 8: WI(I)0 470@# I: 1130#SL819: 32000: " ";:SL819: 32000: "YOUR MOVE? ";:A$# B$: B$"" 480# (B$)13 520# (B$)57 (B$)48 480# B$;:A$A$B$: 480)$ "";:MV(A$)1: MV0 MV26 540D$ X(MV,0,0)0 550d$SL817: 32000: "";: 470$& NU0 2:BDX(MV,NU,0)1:XX(MV,NU,1)1:YX(MV,NU,2)1$0 WI(BD)0 590$:BD(BD,X,Y)4:X(MV,0,0)0:SC0: 290: SC135 WI(BD)1: 590'%DBM(BD)BM(BD)1: BM(BD)9 WI(BD)2-%Nx%X 720:SL819: 32000: "YOUR MOVE ";MV1;: I0 8: WI(I)0 220%b I: 1130%l 910: 960: 1030:%v 920: 960:% 930: 960: 1010:% 910: 970:% 920: 970: 1010: 1030:& 930: 970:(& 910: 980: 1010::& 920: 980:S& 930: 980: 1030:]& 5,1n&SL0: 32000& I0 8:Q(I3)3: JQ Q2: K0 2&ABD(J,K,IQ): A0 890& "###";A;&" ";: IQ0 "";: 790 ' IQ1 "";: 790'  "";(' K: " ";0'  Ji'* (13);: ((I1)3)(I1)3 (13);(13);: 840'4 H1 3: G1 3: "";'9 G: " ";'> H: (13);'H I'R I0 8: ,54,I1: I1;".. ";: WI(I)0 "-";: 880(\ WI(I)1 5,15:"X";: 5,2: 880I(f WI(I)2 "C";: 5,11:"O";: 5,2S(p I:(z A1 5,11: (32);: "()";: 5,2: 760( 5,15: (32);: "><";: 5,2: 760(QQ0: 940(QQ1: 940(QQ2: 940)SD0: II0 2: BD(BD,QQ,II)0 SDSDBD(BD,QQ,II)#) II: 10502)QQ0: 990A)QQ1: 990J)QQ2)SD0: II0 2: BD(BD,II,QQ)0 SDSDBD(BD,II,QQ)) II: 1050)SD0: II0 2: BD(BD,II,2II)0 SDSDBD(BD,II,2II)) II: 1050*SD0: II0 2: BD(BD,II,II)0 SDSDBD(BD,II,II)%* II]*SD 1080,1090,1100,1070,1110,1110,1110,1120,1110w*$ SD0 SCSC800:*.SCSC1:*8SCSC25:*BSCSC50:*LSCSC2000:*V*`SCSC60:*jSC0: I0 8: WI(I)2 1150*tSCSCWI(I)+~ I+ 5,6;+ SC0 SL949: 32000: "TIE";: 1190k+ SC0 SL949: 32000: "YOU WIN";: 1190+SL949: 32000: "I WIN";+SL1011: 32000: "PLAY AGAIN ? (Y/N)";: A$: A$"Y" : A$"N" 1190+ 5,1+,} ,((SL64)(SL64))64,(SL64):