3%&3%0 500000" **** 3D NOUGHTS AND CROSSES ****(Q Written for Nascom 1/2 fitted withx( NAS-SYS 1 or 'T' series monitors2 by Richard Beal June 1979.<F:H$"3-D NOUGHTS AND CROSSES"P I1 (H$)Z 3030I,((H$,I,1)):dN$"":"What is your name ";N$%nN$""1009xR(.01(N$))e"Enter each move as a 3 digit number,""giving level,row and column, or""enter 888 to display board again, or""enter 999 to resign.""You are 'X' and I am 'O' "Good luck, "N$"."+A0:C0:D0:E0:G0:N0:T0PM(63,6),N(75),E(18),D(63),W(63)xP(63),H(7),C(10),G(63),Q(15),B(13)F1A06:B063:M(B,A):A015:Q(A):A07:H(A):A063:W(A):A010:C(A):"A063:P(A):,A013:B(A):06A075:N(A)0:E@A063:G(A)0:ZJA018:E(A)0:TB$(0)" .":B$(1)" X":B$(2)" O"^M1:Q76h F11010rA$""|"Would you like me to go first ";A$A"$"YES"A$"NO"410"ERROR - Enter YES or NO":370ZA$"YES"(Z700E"Your move"MZ"please";PF0:F`F999470{"You resigned.":1160F888490F1:1010:430F(F)F111F444560D(F100):D1D456b0CFD100:E(C10)E1E4560CCE10:C1C4560@F16F159(F10)6(F100)21T&F0F63570q0"Impossible move.":430:G(F)0590D"Position occupied.":430NG(F)1XB063(M(F,6)76)bNN(M(F,B))0lEE(M(F,B)4)vN3650"Ok - You win "N$"!":1160.N(N4)4N3QQ1<Q01150NN(M(F,B))N1qE(M(F,B)4)E((E(E8)8)7)wN((M1)4)8P10000A063G(A)850T0:E0B63(M(A,6)76) G(B31)7C0B DQ(N(M(A,C)))&TTW(ND)P(E(M(A,C)4))B(GC)3 EEH(D)9*H4E10E10U>TTC(E)sHT(1)PPT.5:FA:T2EyR\G(F)2f1010pB063(M(F,6)76)zNN(M(F,B))EE(M(F,B)4)N1293q 0"I win!!!":1160N4N0QQ1Q01150"N(M(F,B))N4=E(M(F,B)4)E8(E56)CRMM1:430Xl Display board" 1 2 3 4 1 2 3 4 1 2 3 4";" 1 2 3 4"C03C1" ";E03$E0"d ";.RE4C8 B$(G(R));B$(G(R16));"B B$(G(R32));B$(G(R48));,L::9VF1 a`C(F16):EF16C:D(E4):EE4Dj"My move was"D100E10C111t~"Definitely a draw."A$"":"Do you want another game ";A$A$ "YES"A$"NO"1190"Error - Enter YES or NO": 1160!A$"YES"310<"Goodbye "N$".":2120Bd Line pointers M(63,6) (448) 0, 0, 0, 0, 1,37,38, 1 2,41,42, 2, 3, 3, 3, 3 32, 4, 4,35, 5, 5, 5, 5 6, 6, 6, 6,44, 7,k 7,47 32, 8, 8,35, 9, 9, 9, 9 10,10,10,10,44,11,11,476  12,12,12,12,13,37,38,13T 14,41,42,14,15,15,15,15r 16,33,34,28,16,20,24,28( 16,20,24,28,16,45,46,282 17,21,25,29,36,21,25,39< 40,21,25,43,17,21,25,29F 18,2{2,26,30,36,22,26,39P 40,22,26,43,18,22,26,30&Z 19,33,34,31,19,23,27,31Dd 19,23,27,31,19,45,46,31bn 32,20,24,35,36, 1, 1,39x 40, 2, 2,43,44,20,24,47 4,33,34, 4,17,37,38,29 17,41,42,29, 7,45,46, 7 8,33,34, 8,18,37,38,30 18,41,42,30,11,45,46,11 32,23,27,35,36,13,13,394 40,14,14,43,44,23,27,47R 48,65,66,52,57,48,52,61p 58,52,48,62,52,69,70,48 49,56,60,53,64,49,53,67 68,53,49,71,53,59,63,49 50,60,56,54,68,50,54,71 64,54,p50,67,54,63,59,50 51,69,70,55,61,51,55,57$ 62,55,51,58,55,65,66,51B 56,76,76,60,76,76,76,76` 76,76,76,76,59,76,76,63~" 76,76,76,76,76,57,61,76, 76,58,62,76,76,76,76,766 76,76,76,76,76,61,57,76@ 76,62,58,76,76,76,76,7=6J 60,76,76,56,76,76,76,76 T 76,76,76,76,63,76,76,592 ^ 64,76,76,67,76,76,76,76P h 76,76,76,76,68,76,76,71n r 76,76,76,76,76,65,66,76 | 76,69,70,76,76,76,76,76  76,76,76,76,76,69,70,76  76,65,66,76,76,76,76,86  68,76,76 ,71,76,76,76,76! 76,76,76,76,64,76,76,67"! 72,76,76,73,76,76,76,76@! 76,76,76,76,74,76,76,75^! 76,76,76,76,76,72,73,76|! 76,74,75,76,76,76,76,76! 76,76,76,76,76,75,74,76! 76,73,72,76,76,76,76,76! 75,76,76,74,76,76,76,76!! 76,76,76,76,73,76,76,72!" Line pointers Q(15):" 0,4,5,6,1,7,7,7,2,7,7,7,3,7,7,7@"`"& Rows of two counters H(7)v"0 0,0,5,0,0,1,0,0|":"D Main priorities W(63)"N 5,10, 1,4000, 1, 4,700,0"X 5,10, 1,4000, 1, 5,700,"0"b 5,15, 5,4000, 5, 6,700,0#l 5,15,25,4000, 1,12,700,08#v 25,20,40,4000, 1,15,700,0X# 25,30,40,4000, 1,15,700,0x# 25, 1, 1,4000,10,40,700,0# 25, 1, 1,4000,10,40,700,0## Rows of two priorities C(10)# 0,0,160,180,200 #,0,20,180,200,200,400#$ Planes priorities P(63)2$ 0, 0, 0,5,50,100,200,300T$ 0, 0, 0,0, 2, 60, 80,100v$ 0, 0, 0,0, 0, 1, 40, 60$ 5, 0, 0,0, 0, 0, 1, 20$ 55, 5, 0,0,-5, 0, 0, 0$ 60, 50,10,0, 0,-20, x$0, 0$  120,100,20,0, 0, 0,-20, 0 % 150,120,25,0, 0, 0, 0,-20&% G%* Diagonal multipliers B(13)i%4 1, 1,1.5, 1, 1, 1, 1%> 1.5,1.5,1.5,1.5,1.5,1.5,1.5%HF