N&C )(])*Noughts&Crosses by Roger and Joseph Aron $7:0:0:0 &"WHAT ARE YOUR INITIALS?(3 MAX) ";N$ N$=""űN$>320 (POINTS=0:SCORE=0 2ROND=1 <=20,23;1;5;1;"ROUND:";ROND FK(3,3) P=20,23;1;5;1;"ROUND:";ROND Z91;1,24;"ME";1,27;"YOU" d%0,24;0;"SCORES" n%0,24;1;"______" x 7 0:0 0 DRAW BOARD 0,116t 175,0 0,58: 175,0 58:,0 0,175 116t,0 0,175 175,0 0,175  1 10 ,0;"2" 18,0;"3" "3,0;"1" ,0,3;"A" 60,11 ;"B" @0,18;"C" JU=15 T F=0 ^SELECT CROSS PLACE hAF=0:.1}L,-8:"CHOOSE COLUMN: A, B or C ",R$ rR$="A"H=4:410 |R$="B"H=11 :410 R$="C"H=18:410  360h 4.1}L,-4:"CHOOSE ROW: 1, 2 or 3 "; C$ C=C$ C>3360h C<1360h G=C*7-3 J=(1,1) P(G,H)J"ALREADY USED, TRY AGAIN! ","PRESS RETURN... ";O$: 360h G,H;4;"X":1470 U>41480 J=(1,1) CHECK CENTRE ;(11 ,11 )=JX=11 :Y=11 :600X U=11410  1300 & 620l 0X=X*7-3 :Y=Z*7-3 D(X,Y)=J600X N.2~L,-24:540 X?.2~L,0:X,Y;2;"O":1470:B=0:U b 1340< lANALYSIS OF BOARD v*B=1.1}L,-12 :760 K(3,3) %.1}L,6:.1}L,12 Q=13 R=13 /K(Q,R)=(Q*7-3,R*7-3) L(3,3) 9 3:12 +Q*2,20+R*3;K(Q,R)  .07}\(,R*Q R Q  B=1 A=12 !K(1,1)=J840H !K(1,1)=J840H  K(1,1)=K(2,1)K(3,1)=JX=3:Z=1:.1}L,45 -:K(1,1)=58: gK(1,1)=K(2,1)=K(3,1)A = A+1:1,23;1;A  K(1,1)=K(3,1)K(2,1)=JX=2:Z=1:.1}L,45 -:K(1,1)=58: *K(1,1)=K(2,2)K(3,3)=JX=3:Z=3:.1}L,45 -:K(1,1)=58: 4K(1,1)=K(1,3)K(1,2)=JX=1:Z=2:.1}L,45 -:K(1,1)=58: >K(1,1)=K(1,2)K(1,3)=JX=1:Z=3:.1}L,45 -:K(1,1)=58: H!K(1,2)=J870f RK(1,2)=K(2,2)K(3,2)=JX=3:Z=2:.1}L,45 -:K(1,2)=58: \K(1,2)=K(1,3)K(1,1)=JX=1:Z=1:.1}L,45 -:K(1,2)=58: f!K(1,3)=J910 pK(1,3)=K(2,3)K(3,3)=JX=3:Z=3:.1}L,45 -:K(1,3)=58: zK(1,3)=K(3,3)K(2,3)=JX=2:Z=3:.1}L,45 -:K(1,3)=58: K(1,3)=K(2,2)K(3,1)=JX=3:Z=1:.1}L,45 -:K(1,3)=58: !K(2,1)=J940 K(2,1)=K(2,2)K(2,3)=JX=2:Z=3:.1}L,45 -:K(2,1)=58: K(2,1)=K(3,1)K(1,1)=JX=1:Z=1:.1}L,45 -:K(2,1)=58: "K(2,2)=J1040 K(2,2)=K(2,3)K(2,1)=JX=2:Z=1:.1}L,45 -:K(2,2)=58: K(2,2)=K(3,1)K(1,3)=JX=1:Z=3:.1}L,45 -:K(2,2)=58: ʅK(2,2)=K(3,2)K(1,2)=JX=1:Z=2:.1}L,45 -:K(2,2)=58: ԅK(2,2)=K(3,3)K(1,1)=JX=1:Z=1:.1}L,45 -:K(2,2)=58: ޅK(2,3)=K(3,3)K(1,3)=JX=1:Z=3:.1}L,45 -:K(2,3)=58: K(3,1)=K(3,2)K(3,3)=JX=3:Z=3:.1}L,45 -:K(3,1)=58: K(3,2)=K(3,2)K(3,1)=JX=3:Z=1:.1}L,45 -:K(3,2)=58: K(3,1)=K(3,3)K(3,2)=JX=3:Z=2:.1}L,45 -:K(3,1)=58: A "K(1,1)=J1100L hK(1,1)=K(2,1)K(3,1)=JX=3:Z=1:.1}L,45 -: $hK(1,1)=K(3,1)K(2,1)=JX=2:Z=1:.1}L,45 -: .hK(1,1)=K(2,2)K(3,3)=JX=3:Z=3:.1}L,45 -: 8hK(1,1)=K(1,3)K(1,2)=JX=1:Z=2:.1}L,45 -: BhK(1,1)=K(1,2)K(1,3)=JX=1:Z=3:.1}L,45 -: L"K(1,2)=J1130j VhK(1,2)=K(2,2)K(3,2)=JX=3:Z=2:.1}L,45 -: `hK(1,2)=K(1,3)K(1,1)=JX=1:Z=1:.1}L,45 -: j"K(1,3)=J1170 thK(1,3)=K(2,3)K(3,3)=JX=3:Z=3:.1}L,45 -: ~hK(1,3)=K(3,3)K(2,3)=JX=2:Z=3:.1}L,45 -: hK(1,3)=K(2,2)K(3,1)=JX=3:Z=1:.1}L,45 -: "K(2,1)=J1200 hK(2,1)=K(2,2)K(2,3)=JX=2:Z=3:.1}L,45 -: hK(2,1)=K(3,1)K(1,1)=JX=1:Z=1:.1}L,45 -: "K(2,2)=J1250 hK(2,2)=K(2,3)K(2,1)=JX=2:Z=1:.1}L,45 -: hK(2,2)=K(3,1)K(1,3)=JX=1:Z=3:.1}L,45 -: hK(2,2)=K(3,2)K(1,2)=JX=1:Z=2:.1}L,45 -: hK(2,2)=K(3,3)K(1,1)=JX=1:Z=1:.1}L,45 -: hK(2,3)=K(3,3)K(1,3)=JX=1:Z=3:.1}L,45 -: hK(3,1)=K(3,2)K(3,3)=JX=3:Z=3:.1}L,45 -: hK(3,2)=K(3,2)K(3,1)=JX=3:Z=1:.1}L,45 -: hK(3,1)=K(3,3)K(3,2)=JX=3:Z=2:.1}L,45 -:   SELECT AT RANDOM #X=((*9 )/4)+1 (K.1}L,24: .1}L,32 :Z=((*14)/6)+1 2 SL=01;7;1;"NO-ONE.":1810 EGMW=27;1;1;N$;".":SCORE=SCORE+1 FGMW=17;1;1;"ME.":POINTS=POINTS+1 "2,27;5;SCORE #2,24;5;POINTS &POINTS=51880X 0SCORE=51880X :6SL=0100d:ROND=ROND+1::70F DROND=ROND+1 N100d::70F XD2;2,24;SCORE;2,27;2;POINTS bSCORE=5:"YOU WIN!" lPOINTS=5:"I WON!!" Nfointcoron2Jfhcgj8sxzybRAC1