#č¤ ****************************#ō¤ * *#ü¤ * OTHELLO V011 *#¤ * *#¤ ****************************¤$¤ OTHELLO.¤ Version date 14/6/84*8¤ copyright (c) 1984 Tatung (UK) Ltd.B¤1L˙”:Á 4: K~0 r 15:˙•K," ":› K:¤ START LINE 1=V“ Z s ‚:§ 1000:Z~u1: ‚:§ 1000: ā ‘ 2660:¤ START LINE 2`:j¤ *** MAIN CONTROL LOOPt:~ 1250:¤ ** GAME SET UP&ˆ“ G~89 s  1360:¤ ** INSTRUCTIONS’ 1600:¤ ** OPTIONSœ 2790:¤ ** SCREEN SET UPϐ 1770:¤ ** PLAY GAME° 2490:¤ ** GAME END"ē‘ 2630:¤ ** PLAY AGAIN OPTIONÄ:Τ ** GAME SET UP%ؤ variales ordered for max.speed_âK~0:L~0:L6~0:K6~0:L5~0:K5~0:S1~0:Q~0:T2~0:U~0:S3~0:B1~0:T1~0:Q1~0:S2~0:S5~0:S4~0:L3~0:K3~0&ė˙ƒ1:š5,0:¤ suppress leading space ö§ 1280+‡0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1 Š C(9,89),L4(9),K4(9) Q~1 r 8:Ŗ L4(Q),K4(Q):›QQĸ@15,0;" OTHELLO ",,," ˛˛˛˛˛˛˛";@5,6;"Do you want instructions? (Y/N)";(G~ä:G~G z &DF2“ G}78 z G}89 s 1320<¨F¤ ** INSTRUCTIONS0P¤ CLS:PRINT@12,0;" OTHELLO ",,," ˛˛˛˛˛˛˛"6Zĸ@0,2;"* The game is played on an 8 by 8 board.";,dĸ"* You and the computer take turns to",nĸ" place your counters on this board."/xĸ"* Each time you place a counter,it must",‚ĸ" trap some of the computers pieces "+Œĸ" between the one you place and any",–ĸ" other of your pieces on the board,", ĸ" in either a vertical,horizontal or"Ēĸ" diagonal direction."+´ĸ"* Any trapped pieces turn into your"žĸ" pieces.)Čĸ"* To place your counter enter the"0Ōĸ" co-ordinates.Row 1 to 8,Column A to H."+Üĸ"* The game ends when all places are"æĸ" occupied."1đĸ"* The player with the most counters wins";,úĸ"* If you cannot capture at least one"-ĸ" piece you must forfeit your turn by"ĸ" entering 0A."+ĸ"* The best way to learn is to play."/"ĸ"* Press any key to continue.Good Luck."; ,G~ä:¨6¤ ** OPTIONS+@„:ĸ@15,0;" OTHELLO ",,," ˛˛˛˛˛˛˛"2Jĸ@0,6;"What skill level ? (1 or 2) ";TG~ä"^“ G~50 { G~49 s ĸ Į(G): 1620-h“ G~50 s S2~3:S4~2:S5~1: S2~0:S4~0:S5~0 rB~u1:W~1%| L~0 r 9: K~0 r 9:C(L,K)~0:›:›(†C(4,4)~W:C(5,5)~W:C(4,5)~B:C(5,4)~BC1~2:H1~2:N1~4:V1~22šĸ@0,9;"Do you want black or white ? (B/W) ";¤G~ä:G~G z &DF"Ž“ G~66 { G~87 s ĸ Į(G): 1690¸“ G~66 s C~B:H~W: C~W:H~B3Âĸ@0,12;"Do you want first go ? (Y/N) ";ĖG~ä:G~G z &DF"Ö“ G~89 { G~78 s ĸ Į(G): 1740ā¨ę¤ ** PLAY GAME$ô“ G~89 s 1820:¤ YOUR MOVE FIRSTūĸ@4,19,"I am thinking." 1860:¤ * COMPUTER MOVE“ H1~0 { N1~64 s ¨ 2280:¤ * YOUR MOVE&“ H1~0 { N1~64 s ¨ 0‘ 1800:¤ * COMPUTER MOVEDB1~u1:L3~0:K3~0:T1~C:T2~HN L~1 r 8: K~1 r 8X“ C(L,K) s 2010bU~u1: 2020l“ S1~0 s ‘ 2010v“ L~1 { L~8 s S1~S1tS2€“ K~1 { K~8 s S1~S1tS2Š“ L~2 { L~7 s S1~S1uS5”“ K~2 { K~7 s S1~S1uS5ž“ L~3 { L~6 s S1~S1tS4¨“ K~3 { K~6 s S1~S1tS4˛“ S1B1 s ‘ 2010ŧ“ S1}B1 s ‘ 2000Æ“ Õ(1)}.5 s ‘ 2010ĐB1~S1:L3~L:K3~KÚ› K,L:‘2150 ä¤ COUNT%îS1~0: Q~1 r 8:L5~L4(Q):K5~K4(Q)øL6~LtL5:K6~KtK5:S3~0“ C(L6,K6)}T2 s 2130 S3~S3t1:L6~L6tL5:K6~K6tK5“ C(L6,K6)~0 s 2130 “ C(L6,K6)}T1 s 2060*S1~S1tS3:“ U}1 s 21304L6~L:K6~K> Q1~0 r S3:C(L6,K6)~T1HL6~L6tL5:K6~K6tK5:›R›\¨f“ B1}0 ‘ 2200p“ S5 s S5~0:‘ 18608z 3160:ĸ @ 4,19;"I have to forfeit my move.": 3190„“ V1~1 s Ą:‘ 2260ŽV1~1:‘ 22608˜V1~0: 3160:ĸ @ 4,19; "I will move to ";Į(K3t64);L3ĸ“ S1 s S5~1!ŦL~L3:K~K3:U~1: 2020:¤ COUNT ļC1~C1tS1t1:H1~H1uS1:N1~N1t1;Āĸ @ 4,20;"That gives me ";S1;" of your pieces.": 3190ʐ 3020:¤ UPDATEÔ¨Ū¤ * YOUR MOVEčT1~H:T2~C=ō 3160:ĸ @ 4,19;Į(7);"Your move : ";: 2720:¤ GET MOVEü“ L}0 ‘ 2390! G~0:U~u1: L~1 r 8: K~1 r 89 “ C(L,K)~0 s  2670:“ F1 s  2020:“ S1 s G~1:L~8:K~8 ›:›9$ “ G s  3160:ĸ @ 4,19;"You can move.": 3190:‘ 22900. ĸ @ 4,20;"Are you forfeiting your turn ? ";88 I~ä:I~I z &DF:ĸ @4,21; Į(I):“ I}89 z I}78 s 2360B “ I}89 ‘ 2290L “ V1 ‘ 2500: V1~1:‘ 1860CV “ C(L,K) s ĸ @4,20;"Square occupied, try again.": 3190:‘ 2290O`  2670:“ F1~0 s ĸ @4,20;"It doesn,t flank a row ,try again.": 3190:‘ 2290j U~u1: 2020:¤ COUNTIt “ S1~0 s ĸ @ 4,20;"That is not a valid move,try again.": 3190:‘22908~ V1~0:ĸ @ 4,20;"That gives you ";S1;" of my pieces."+ˆ ĸ@4,21;"It is my turn,I am thinking !"’ U~1: 2020:¤ COUNTœ  3020:¤ COUNTER SET Ļ H1~H1tS1t1:C1~C1uS1:N1~N1t1° ¨ē ¤ ** GAME END>Ä  3160:ĸ @ 4,19;"You have ";H1;" & I have ";C1;" pieces.""Î “ H1~C1 s ĸ @ 4,20;"A tie ! "&Ø “ H1}C1 s ĸ @ 4,20;"You've won !"$⠓ H1C1 s ĸ @ 4,20;"I've won !"ė J~(H1uC1)w64xN1:ĸ" ";*ö “ Ju30s ĸ "you need practice.":‘2610- “ Ju10s ĸ "you're not very good.":‘2610, “ J10s ĸ "that was a close one.":‘2610- “ J30 s ĸ "that was a good game.":‘2610- “ J50 s ĸ"that was a great game.":‘2610$( ĸ "that was an excellant game."2 ¨< ¤ ** PLAY AGAIN OPTIONF ĸ@4,22;"Play again?(Y/N)"; P J~ä:J~J z &DF:“ J~78 s 2660Z “ J~89 s ‘ 1100: 2640'd “ Z s 320: ˙”:˙ƒ4:Ž:¤ FINISH LINE n ¤ VALID!x F1~0: L1~u1 r 1: K1~u1 r 1‚ “ C(LtL1,KtK1)~T2 s F1~1Œ ›:›– ¨  ¤ GETMOVEĒ L~u1:K~u1´ G~ä:“G}58 sG~G z &DF1ž “ G}47 z G57 z L~u1 s L~Gu48:ĸ q17,3);Į(G);1Č “ G}64 z G73 z K~u1 s K~Gu64:ĸ q15,3);Į(G);Ō “ K~u1 { L~u1 s ‘ 2740!Ü “ K}u1 z L}u1 s ¨: ‘ 2730æ ¤ ** SCREEN SET UPđ „:˙0,12:ĸĮ(12) ú ˙15,12 HP~6: I~1 r 8:˙‚15,12 ĸ @ HP,0;I  HP~HPt4" › I, V~26  I~ 72 r 65 p u1@ ĸ@ 4,V;Į(I):ĸ@ 38,V;Į(I) J V~Vt2T › I^  X~31 r 223 p 24h ˙€ X,52 r X,180r › X|  Y~52 r 180 p 16† ˙€ 31,Y r 223,Y › YCš ˙15,0:ĸ@0,19;o199);:˙‚0,0:˙€ 245,0 r 245,39:˙€ 250,0 r 250,39¤ ˙†160,"78FFFFFFFFFFFF78" Ž  3020¸ ¨ ¤ SET COUNTERSĖ  L~1 r 8: K~ 1 r 8Ö “ C(L,K)~0 s ‘ 3060&ā “ C(L,K)~1 s ˙1,12: 3080:‘ 3060"ę “ C(L,K)~u1 s ˙15,12: 3080 ô › K,Lū ¨ ¤ DRAW COUNTER “ L~1 s X~7:‘ 3110 X~(Lu1)w4t7& “ K~1 s Y~16:‘ 31300 Y~16u(Ku1)w2: ĸ@X,Y;Į(160);@0,23; D ˙15,0:¨N ¤ BLANK OUT 4 ROWSX ĸ @ 0,19;o160);b ¨ l ¤ PAUSEv  A~1 r 1000:› A€ ¨8XĀoĀ˙|Š@‚#¨