Isolation 446WIsolation by James Shaw from Sinclair User, Feb'85 _togo=1:z(8):p$(2,22):x(2):y(2):s(2):e=0 ,23658j\,8:236099\,175  1260 ( 1420 2 480 < 5600 FMAIN ROUTINE PQx(1)=6:y(1)=0:x(2)=4:y(2)=14 ZW12 ,14;1;1;7;0;p$(togo)(8);" to move." dp=x(togo):o=y(togo) n519,0;"Enter coordinates- " xd$ $a=(d$(1)-65A)*2 d=d$(2) e=1800  o2110n a-o>2110n b=d*2 p>b240 p2110n b-p>2110n  710 togo=1ink=5 togo=2ink=4 "togo=1n$=a$ ,togo=2n$=b$ 6 r$="" @\y(togo),x(togo);6;ink;0;n$(2);y(togo)+1,x(togo);n$(3) J o=0p=6390 T!o=14p=4390 ^Ho,p;6;0;1;r$(2);o+1,p;r$(3) h.3,2 r 790 | 430  r$="" Ho,p;7;0;0;r$(2);o+1,p;r$(3) .3,2  790 togo=togo+1 togo=3togo=1  940  90Z  ENTER NAME v:4,5;a$(2);5,5;a$(3):4,9 ;"Enter name - PLAYER 1":p$(1) 4,9 ;p$(1) w12 ,5;b$(2);13 ,5;b$(3):12 ,9 ;"Enter name - PLAYER 2":p$(2) 12 ,9 ;p$(2)   90Z  &Set up screen 087:0:0:0:0::3 :l$="ABCDEFGH" Di=07 Nn=05 Xhi*2,n*2;6;1;0;c$(2);i*2+1,n*2;c$(3) bn l@i*2,n*2;7;1;l$(i+1i+1) v4i*2+1,n*2;7;1;" " i Mi=05:16,i*2;7;1;i;" ":i:0 0,6;0;5;a$(2);1,6;a$(3);14,4;4;b$(2);15,4;b$(3) 2,14;0;0;p$(1)(18);" ";2,24;a$(2);" ";s(1);3,24;a$(3) 5,14;p$(2)(18);" ";5,24;b$(2);" ";s(2);6,24;b$(3) H0,26;"SCORE":0,26;1;"_____":0  Check next square -(a,b)=112pū(a,b)=568760 m19,0;5;1;1;"YOU CANNOT MOVE THERE":.2~L,9 :.3,2 100d:502 ?19,0;7;" ":110n y(togo)=a:x(togo)=b  270  DROP SQUARE T19,0;"Enter coords for square to be dropped.":e=1:120x  b=d*2 *(a,b)=112p860\ 4Z19,0;" ":" " >919,0;1;5;"PLEASE TRY AGAIN." H..2~L,9 :.3,4:502 R 790 \a,b;1;2;"" f%a+1,b;1;2;"" p.15~,-10 z0:0 619,0;" " 620,0;" "  e=0  CHECK NEXT MOVE i=y(togo):j=x(togo) q$="12345678" i=0q$="45678" i=14q$="12348" j=0q$="23456" j=10 q$="12678" i=0j=0q$="456"  i=0j=10 q$="678"  i=14j=0q$="234" !i=14j=10 q$="128" z(1)=(i-2,j-2):z(2)=(i-2,j):z(3)=(i-2,j+2):z(4)=(i,j+2):z(5)=(i+2,j+2) $Yz(6)=(i+2,j):z(7)=(i+2,j-2):z(8)=(i,j-2) .i=1̱q$ 8 v$=q$(ii) Bv=v$ L z(v)=112pz(v)=568 Vi `togo=togo+1 jtogo=3togo=1 tO:1:10 ,7;0;5;p$(togo)(8);" has won." ~61220:i=144,:p,d:.2~L*d,p:i )15,6;"ANOTHER GAME? (Y/N)" ="Y"1200  ="N"  1170 s(togo)=s(togo)+1  60< )-5,1,-3,1,-1,1,0,2,-5,3,0,1,-1,1,0,1,2,2,-3,3,-3,1,-1,1,0,1,4,1,2,1,2,1,0,1,0,1 -1,1,-3,1,-1,1,-5,6,-5,1,-3,1,-1,1,0,2,-5,3,0,1,-1,1,0,1,2,2,-3,3 -3,1,-1,1,0,1,4,1,2,1,2,1,0,1,0,1,-1,1,-3,1,-1,1,0,6  U.D.G.s 01290 :i=095_:a:"a"+i,a:i !a$="":b$="":c$=""   E0,0,3,3,12 ,12 ,513,513 K0,0,192,192,480,480,204,204 E513,513,12 ,12 ,3,3,0,0 (K204,204,480,480,192,192,0,0 2G0,0,480,480,15,15,12 ,12