ZXTape! 0OTHELLO (ZX-SOFT) - EN OTHELLO II K =================  = OTHELLO =  = EINAR SAUKAS =  = & EDUARDO ITO =  ================= 6:0:0: $8,0;1;1;" " .~4;5,6;1;"*ZX-SOFT*";0;" presents:";5;14,3;"Einar Saukas & Eduardo Ito" 81"PLAYER 1: ";M$:M$=""űM$>710808 B6"PLAYER 2 (or ENTER): ";N$:N$>71090B L+F=2:N$=""N$="OTHELLO":F=1 VT(8,8):T(4,4)=2:T(4,5)=1:T(5,4)=1:T(5,5)=2 `C$="188111883363366643566534645335466151413116151413868584836858483862524232675747372625242376757473277277228271211287782817":C=1:D=C:E=D:S=E jJ0:6:6::1;" OTHELLO *ZX-SOFT* 1989 " t15,144:129,0:0,-129:-129,0:0,129:1440:Z=18:Z*2+2,0;(Z+64@);21,Z*2+1;Z:Z ~14-6*E,23;" ";1;7;E;6,22;M$;":";N(1);:E=E:" ";2;7;E;12 ,22;N$;":";N(2);:" ":E=FV=0:13302:1250 ""1160 .05|L,20 `7;8;1;C*2+2,D*2;"";C*2+3,D*2;"" A=C+(="8"C<8)-(="9"C>1):B=D+(="7"D<8)-(="6"D>1):ACBD8;C*2+2,D*2;"";C*2+3,D*2;"":C=A:D=B:1180 =13 8+6*E,23;"PASS ";9 +6*E,23;" ";8;C*2+2,D*2;"";C*2+3,D*2;"":.1}L,5:V=1:13302:1260-20*R "0"1190 \8+6*E,23;" ";9 +6*E,23;" ":.1}L,10 :T(A,B)V=0:R=0:1360P:R1250 U8+6*E,23;" TRY ";9 +6*E,23;"AGAIN":1170 R8+6*E,23;"(";(A+64@);",";B;")";E+1;1;A*2+2,B*2;"";A*2+3,B*2;"":.05|L,30:1440 BN(2-E)N(1)+N(2)<64@S+RS=R:1150~ 7;6,22;1;M$;":";N(1);6;" ";12 ,22;2;N$;":";N(2);6;" ":N(1)=N(2)5;1;1;19,23;"DRAW!":Z=-10 10 :.02{# =,Z*5:Z N(1)>N(2)1;5;1;1;18,21;M$;20,21;"WON!":Z=530:.01z# =,Z:.01z# =,Z/2:Z  N(1)0X<9 Y>0Y<9 T(X,Y)=2-E1380d ZJ:I: d9X=X+I:Y=Y+J:X<1X>8Y<1Y>8 nT(X,Y)=2-E1380d x T(X,Y) R=1:V 5X=X-I:Y=Y-J:T(X,Y)=1+E:XAYB1420  N(2):I=18:J=18:7;T(I,J);I*2+2,J*2;"";I*2+3,J*2;"" 0Z=7:T(I,J)Z=T(I,J):N(Z)=N(Z)+1 PZ;I*2+2,J*2;"";I*2+3,J*2;"":J:I: $:Z="A""D"+7:R:Z,R:Z: }255,128,R,R,R,R,R,R,255,1,R,R,R,R,R,R,128,R,R,R,R,R,R,255,1,R,R,R,R,R,R,255 w