3dnoughts + v 3-D NOUGHTS AND CROSSES was written Bill Welch of Herne Hill ZX Computing oct/nov-83-24  by Bill Welch   9900& *g=144145:f=07 a ( g+f,a 2f:g "9".1}L,-24:"? Start again.":240 ,a$:.1}L,31 63posn=a$+(9 a=2)+(18a=3) @da(posn)0.1}L,-24:22,0;"That place is full: try again,":240 Ja(posn)=4 T8p=0212:p,24;" ":p ^ 8000@ COMPUTER'S MOVE ;22,0;"I'M THINKING...";:.005y# =,12 Ea(14)=0a(14)=1:posn=14:8000@ ".";:.005y# =,12 level=17000X $14,23,5,480,46.,491,47/,33!,28,39',36$,45-,43+,40(,37%,30,31,34",42* .25,1,12 ,9 ,10 ,19,7,3,18,21,27,16,35#,44,,32 ,29,41),38& 8i11 ,20,15,17,2,8,4,26,22,6,13 ,24 Qlevel=21180 V 1060$ [f=1491 `t eb(t)=87500L jf o".";:.005y# =,12 y 1060$ ~f=1491 t b(t)=27500L f ".";:.005y# =,12  1060$ f=1491 t b(t)=17500L f ".";:.005y# =,12  2055 f=114 t 0a(t)=0posn=t:a(t)=1:8000@ f ".";:.005y# =,12 z15,23,5,13 ,23,11 ,27,19,3,7,1,21,25,9 bposn=(*27)+1 l.a(posn)=0a(posn)=1:8000@ v!.005y# =,12 :7000X Q a=0 V$t<10 p=tt+189 [t>9 t<19q=((t-9 )t<13 )+((t-3)(t<16t>12 ))+((t+3)t>15):p=qq+73 `Ft>18t<28q=(t-19)*3+1:p=qq+2 j>t>27t<31q=t-27:p=qq+2412 tOt>30t<34"q=(t-31)*3+1:p=qq+210 ~=t>33!t<37%q=t-27:p=qq+12 6 Ot>36$t<40(q=(t-37%)*3+3:p=qq+168 Nt>39't<43+q=(t-40()*9 +1:p=qq+84 Nt>42*t<46.q=(t-43+)*9 +3:p=qq+42 )t=46.p=12713 )t=47/p=32511 (t=480p=7217 (t=491p=9 195 x%a=a+(p(a=0a(p)=0)):p 'a=(aa=0):posn=a:a(a)=1 @PRINT MOVE Jm=0" ";("B"-(1posn<10 )+(1posn>18));"-";posn-(9 posn>9 )-(9 posn>18) ^;a=8-(7posn<10 )+(7posn>18) h3no=posn-(18a=15)-(9 a=8) r/p=a+(2no>3)+(2no>6) |q=p-a+8 _q=q+(4(no=2no=5no=8))+(8(no=3no=6no=9 )) L.01z# =,36$:7;1;p,q;(""m=1)+(""m=0) !4SEARCH TROUGH LINES !9a=9600%:b=1 !>p=19 !C#q=a(p)+a(p+9 )+a(p+18) !Ha !Mp !Rp=121 !Wp=4p=10 !\p=13 p=19 !a"q=a(p)+a(p+3)+a(p+6) !fa !kp !pp=1253 !u"q=a(p)+a(p+1)+a(p+2) !za !p !p=13 !$q=a(p)+a(p+12 )+a(p+24) !a !p !p=173 !$q=a(p)+a(p+10 )+a(p+20) !a !p !p=79 !#q=a(p)+a(p+6)+a(p+12 ) !a !p !p=39 3 !#q=a(p)+a(p+8)+a(p+16) !a !p !p=1199 !"q=a(p)+a(p+4)+a(p+8) !a !p !p=3219 !"q=a(p)+a(p+2)+a(p+4) !a !p "&q=a(1)+a(14)+a(27) " a "&q=a(3)+a(14)+a(25) "a "&q=a(7)+a(14)+a(21) "a "$&q=a(9 )+a(14)+a(19) ")a "8go=go+1 "Bgo=279000(# "j22,0,, "tm=(m-1) "~1000-(800 m) #2a=0:b=0 #<f=1491 #Fb(f)=3a=a+1 #Pb(f)=12 b=b+1 #Zf #s1,25;"You";3,25;"have";5,25;b;7,25;"line"+("s"b1);":" $`11 ,25;"I have";13 ,25;a;15,25;"line"+("s"a1);"." $a>b9300T$ $b=a9400$ $"622,0;"You win, curse it. Another game?" $,1,-12 $6 9430$ $T,22,0;1;"I WIN AGAIN!"; $^" Another try,sucker?" $hDg=15:f=12 36$10 :.05|L,f:f:g $r 9430$ $,22,0;" ";1;"DRAW"; $" Another game?" $.5,24 $ 9500% $/a$"Y"a$"N".1}L,-24:9430$ $22,0,, $23659k\,2 $a$="Y"20 %/f=12 0-1:.05|L,f:f: %INKEY'S ROUTINE %0=""95200% %:a$= %D %STORE STATE OF LINES %b(b)=q %?q=12 q=3.01z# =,16+(12 q=3) % b=b+1 % &INSTRUCTIONS &/4:4:0:0:0: &10,3;1;"3-D NOUGHTSCROSSES" &f''"The object of the game is to complet as many lines as you can. The computer will also try!" &a'"All straight lines count,whetherhorizontal,vertical or diagonal.There are 49 possible lines." &o'''"Choose a skill level:-"''4;"Press: 1 = dead easy"'11 ;"2 = hard",11 ;"3 = even harder" &.05|L,40( & 9500% &/a$<"1"a$>"3".1}L,-24:9970& ' level=a$ ' : eve8a%1b2 !xmosA