O$$$0 100000 03  *** OTHELLO ***M Written for Nascom 1 and 2 fitted withy( NAS-SYS, by M. Kearney. Dec 1979.2<*** A(100) = Board save ***F*** B(100) = Board ***P*** C(100) = Board save *** Z*** D(8) = Dist. to next sq. in 8 dir. **9d*** E(100) = Value of board squares ***fn*** F=Value of opponent's best reply tox*** computer's best play ****** G=Value of opponent's current reply*** to computer's current play *** *** H=Value of opponent's current reply *&*** I = Not used ***F*** J,K & L = Counters ***\*** M = Play ***u*** N = Counter ****** O = Not used ****** P = Player, Black = -1, White = 1 ****** Q = Total moves ****** R,S = Not used ***&*** T = Logical value,True = -1,False =0*?*** U = Counter ***_*** V,W = To save play ***x*** Z = Counter *** A(100)" C(100), B(100)6 D(8)@ E(100)J:"Type a number between 100 & 1000";T N^ N100 N1000 330h:"Randomizing"(r J1 N3|Z(Z); JFD(1)1RD(2)11^D(3)10iD(4)9uD(5)1D(6)11D(7)10D(8)9*** Initialize *** 2690*** Display the board *** 2520 Q5 810*** Check for legal play ***% 11905& T1 810A0T3T31R: T32 750jD"The game's over!"rNN0zXJ0b Z12 89l B(Z)1 660v B(Z)1 670JJ1670NN1 Zg "Black has";N;"pieces. White has";J;"pieces."4"Do you want to play again";A$PT1: (A$,1)"N" T0Vf T1 490q 2970w P1 790"Black has no play, loses turn" 1030"White has no play, loses t urn" 1030*10804 M1 920> Q4 900,H*** Computer plays ***GR*** First 4 plays ***P\M45cf B(M)2 960mpMM1wz 870 1650*** Check play *** M1 1000 M100 1000 Q4 980 B(M) 2 1000B(M)P1020 1430 T0 1030%"Illegal play"/ 5109QQ1BPPW E(M)64 510b 2340l$ 510.*** Get a play ***8B"If you want me to play,enter 0,0"L P1 1130V"Black";` 1140j"White";t"'s turn, enter X,Y";~ X,YMX110Y$F*** Check for legal play ***NT1_"Checking";gM1x U4 1250U0".";UU1 B(M)0 1380N1JD(N)  B(MJ)P 1360 KMJJ B(K)3 1360( B(K)0 13602 B(K)P 1410&<KKJ1F 1310;PNN1LZ N9 1280VdMM1hn M90 1220pxT0v*** Make a play ***T0 B(M)0 1460N1JD(N) B(MJ)P  1610KMJJ B(K)3 1610 B(K)0 1610$ B(K)P 1550.KKJ9 1500AT1ILMZ" LK 1610e,B(L)Po6LLJz@ 1570JNN1T N9 1470^h*** Check computer's plays ***r"Thinking";|F9999 Z12 89C(Z)B(Z) Z M12 U4 1740#U0-".";7UU1B 1430S T0 1890^ 1950o HF 1860 HF 1830*** Choose Rnd. No. of equal plays ***Z(Z) Z.7 1860&FH0*** Found better move ***:WVD Z12 89NB(Z)C(Z)X Z(bMM1:l M90 1710BvMWHNt*** Check opponent's replies ***H99999 Z12 89A(Z)B(Z) ZPPVMM12 1430 T0  2150 2210 GF 2090 *** Forget this play ***HG*  2170;* GH 2120c4*** Found a more harmful reply ***k>HG{H Z12 89RB(Z)A(Z)\ ZfMM1p M90 2020zMVPP*** Evaluate e***G0Z12 B(Z)P 2270  B(Z)0 2300 GGE(Z)* 23007 GGE(Z)U *** Forget this play ***f  GF 2320p ZZ1  Z90 2230   *** Adjust corner values *** $ M12 2380 . E(13)5 8 E(22)5S  B E(23)5 L M19 2420!V E(18)5 !` E(28)5!j E(29)5+!t M82 24607!~ E(72)5C! E(73)5O! E(83)5b! M89 2500n! E(77)5z! E(78)5! E(88)5! ! *** Display the board ***! " 1 2 3 4 5 6 7 8"V!! Y8 1 1! Y;" ";" X1 8" B(X1Y10)1 2600:" B(X1Y10)1 2620G" " - ";R" 2630h"( " ";(187);" ";r"2 2630"< " ";(186);" ";"F X"P Y"Z Y"d " 1 2 3 4 5 6 7 8""n "x *("** Initialize ***" N11 90# E(N) # N# N1 100&# B(N)0.# N=# N1 10H# B(N)3V# B(90N)3f# B(10N9)3t# B(10N)3|# N# B(45)2# B(46)2# B(55)2# B(56)2#" U5#, Q1#6 P1#@ #J 0,64,-#30,10,5,5,10,-30,64,0 $T 0,-30,-40,2,2,2,2,-40,-30,0($^ 0,10,2,5,1,1,5,2,10,0A$h 0,5,2,1,1,1,1,2,5,0Z$r 0,5,2,1,1,1,1,2,5,0u$| 0,10,2,5,1,1,5,2,10,0$ 0,-30,-40,2,2,2,2,-40,-30,0$ 0,64,-30,10,5,5,10,-30,64,0$ $ V