ZXTape! 0Created with Ramsoft MakeTZX0Lesson 3]othello ?@ **** OTHELLO ****  k=1  1500 3000 :4000 ( 30 !x1=p-(p/10 )*10 x2=(p-x1)/10 Kxc=480+((x1-1)*16):yc=151-((x2-1)*16) t=11 &t=26 0 2000 :!b(x2*10 +10 )=9 D.05|L,x2*2+x1 N b(p)=t: 8y=0:z=0:0:i=11 88X b(i)=1y=y+1 b(i)=2z=z+1 i  17,26;y;" ";9 ,26;z;" "  *$r=p:s=0:b(p)0 4f=1500 H(j=18:q=r:p=r:k=0 R,q=q+m(j):q<11 q>88X900 Wb(q)=0900 \b(q)=t880p fk=k+1:850R p's=s+k:f=0k<1900 z-i=0k-1:p=p+m(j):500:i j: Hk=0:7:7::"":20,3;:20 Ix=1:lr=3:hr=6:lc=3:hc=6:ra=6 m(8):b(100d) y=2:z=2  b$="":p=0:z$="":y$=""   511 ,10 ,9 ,1,-1,-9 i=16:m(i):i ,m(7)=-10 :m(8)=-11 k=11580, "a(100d):"OD"a() ,x2=0:x1=0 68000@:7000X @ ,att=(X2*2,3+(x1*2)) ڃatt>94^x2*2,3+(x1*2);4;" ";1+(x2*2),3+(x1*2);4;" ":21004 ix2*2,3+(x1*2);3;" ";1+(x2*2),3+(x1*2);3;" " 4v=ra0-1 >h=((ra*ra-v*v)) Hxc-h,yc-v:h*2,0 Rv \v=0ra fh=((ra*ra-v*v)) pxc-h,yc+v:h*2,0 zv  5700:y+z=64@y*z=085004! A9500%:17,23;"Your";18,25;"move" B10 ,26;"Row:";:.1}L,16:.5,12 b$=:b$=""3040 b$:b$="C"b$="c" b$="Q"b$="q":85004! "z$=b$:z$<"1"z$>"8"3140D 12 ,26;"Col:"; ""3090 b$=:b$=""3100 &&b$:y$=b$:y$<"1"y$>"8"3140D 0p=z$*10 +y$ :8t=1:f=0:810*:s>03150N DC10 ,26;"ERROR":1,0:20:3000 Nf=1:800  X4200h: 5700:y+z=64@y*z=085004! Wx=0:d=0:f=0:t=2:9500%:17,23;"thinking" "u=lrhr:v=lchc:p=u*10 +v .9000(#:800 :s=04080  s=s*a(p) s=d>.5d=d-1 s>dd=s:x=p v:u Jx>0f=1:p=x:4250:9510&%:800 :4200h Wx=017,23;"Can't ";18,23;"move":.5,24  hF(r-(r/10 )*10 )=lclc=lc-1:lc=0lc=1 r9(r/10 )=lrlr=lr-1:lr=0lr=1 |9(r/10 )=hrhr=hr+1:hr>8hr=8 F(r-(r/10 )*10 )=hchc=hc+1:hc>8hc=8  20:10 ,26;"Row:";(P/10 ) 612 ,26;"Col:";(P-(P/10 )*10 ) N.2~L,16:.2~L,21:.2~L,19:.5,17: X:0,10 ;2;7;"OTHELLO";6,22;1;7;"YOU HAVE";8,23;0;6;"I HAVE" bO20,0;"Press C if you can't move Press Q to QUIT the game." lb39',160:129,0:0,-129:-129,0:0,129 vpb=3:pw=4 pi=07:pb=3+(i-(i/2)*2):pw=4-(i-(i/2)*2):j=03 o2+i*2,5+j*4;pb;" ";pw;" ";3+i*2,5+j*4;pb;" ";pw;" " j:i &i=1100d:b(i)=0:i Z1,0;"col";10 ,0;"r";11 ,0;"o";12 ,0;"w" ji=07:1;1,6+i*2;i+1;3+i*2,3;i+1:i 9t=2:p=44,:500:p=557:500 9t=1:p=45-:500:p=546:500  @Y7:2:1:0::0,12 ;1;2;"OTHELLO" Jk=08100 T4,0;"Your pieces are.....";1;1;"BLUE":6,0;"Mine are...........";1;6;0;"YELLOW" ^8,0;"The object of the game is to capture as many pieces as poss. The winner is the one with the most pieces when the board is full. To move you must trap 1 ormore of your oponents pieces between 2 of yours." h"To place a piece, enter the co-ordinates of your chosen move":"i.e. Row 3 Col 4 etc.":19,5;1;4;"**** GOOD LUCK ****" r/2,2;"Copyright  A. Blair, 1983" |A21,0;" ";1;"*** Press any key to start ***"  9000(# =""8060|  ?10 ,0;1;" ******** STOP THE TAPE ********" +i=010 :.5,-10 :i  !4<:y>z10 ,3;"CONGRATULATIONS.....YOU WON" !\,y