ZXTape! ANGLES dvjd@23693\,0:0:23624H\,0:32255} n\7;1;10 ,8;"PROGRAM LOADING";13 ,10 ;"PLEASE WAIT" x0,0;:"" .23659k\,1:21,0;:"" 21,0;:"" s=LOGO @6 `0 aq?  J<0?<?7ǀ  000 p0 0?  .><0?<?ec  0  χp0< <?0?<0? ?>7> Mp  0 @ 8D0< <?0?<k0? ??ͳ8~  0 @d۞?7??0???1?  `@ >>$۸?0???ja|`@@8<|q`??<`8 1pÃ``x88q8xÃ``f88p0a<<a80a```x8```888888 E@LJÃ8 E@LJÃ8  DDDD@D@@8  DDDD@D@@8 @GLJÀ GD@GLJǀÃ @GLJÀ GD@GLJǀÃ DA@DDDD@@ DA@DDDD@@GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGCCCCGGGGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCCCDEDEDEDEDEDEDEDEDEDEGGCCCCCCCCCCEDEDEDEDEDEDEDEDEDEDGGCCCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGGGGCCCCGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEEEEEEEEEEEEEEEEGGGGGGGGGGGGEEEEEEEEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGw. ,~.![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[~2[: [G: [2 [*[ ~2[: [G: [2[: [Oͤ~:[<2[ :[<2[ :[0~@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!~xO F![F(// Pa M 1983 Brian Hebbes d/s-iv,128-iv*d$:s-iii,yp:yp=160 x7b=i̱d$:s+b,d$(b):b:s+b,255:32256~: d$=e$(iv):di C23659k\,2:i:vi:x-i:vi::s-ii,i:s-i,ii:s,x-ii:di Td$="________":ii:r=x+v+iii-i:c=oi:r,v*v*c-c;:e(r)"| | | |";:142 " | | | |"; mr,v*v*c-c;d$;:c:r:o:o:o,v+ii;25;:n=ix+vi:n,v+ii;" ";n,24;" ":n:n,v+ii;v*v;:vi ii;vi,i;"THE";v+ii,ii;"";x-ii,ii;"GAME";x-i,ii;"";i;x,v*v;"XOX";x+i,v*v;" XO";x+ii,v*v;"X O";iv,-z-iv;"C";v,-z-v;"oves";vi,-z-iv;"B" yd$="The squares are numbered 0-9,A-F":di:r=iiv:r$:c=iiv:iv*r-i,iv*c+v;r$(c);:c:r:"0123","4567","89AB","CDEF" Xx*x:cl:yp=176:di:d$=" The board ":di:r=iiv:c=iiv:b$(r,c)="1":sq:c:r 5yp-x:a=iiv:b$(a):a:"0331","1231","1231","1220" !d$=" Your L ":di:c$="2":sh d$=" My L ":di:c$="3":sh (d$="The black squares":di:c$="0":sh Od$="What level (from 1 to 3) ?":di:in-z:l=r$-480:i>ll>iiii,z:yp 1cl:d$="Want first move?": di:yn:yeser-x-x J:x*x:r=i:c=ii:b$(r,c)="1":sq:r=i+ii*(ii*):c=iv:b$(r,c)="3":sq Fl>ix*x:r=iv:b$(r,c)="1":sq:r=(iii*+ii):c=i:b$(r,c)="0":sq md$="Your move - enter new L position":di:d$="in order from one end of the L":yp=176:di:a=i:no=i 9in:h=i:sq:r(a)=r:c(a)=c:b$(r,c)="1"no=o:er-x-iv 8b$(r,c)"2"d$=" There's another piece there! ":er n(a)=n:a=ia=ii:er-x-vi n=n(a-i)i,z:er-x-vi \d=(n-n(a-i)):didivr(a)r(a-i)c(a)c(a-i)d$=" Always enter squares in order. ":er d(a-i)=d:a=iia=iii:er-x-vi 9n(a)=n(a-ii)d$=" You've already had that square.":er a=iiia=iv:er-x-vi :d(i)+d(iii)vd$=" Do you call that L-shaped?!! ":er /nod$="You must move to a new position!":er er+iii n=ia:r=r(n):c=c(n):sq:n: gi,z:1:di:0:d$=" Press any key to try again. ":yp=176:di:o:er-ii:200 :x*v:er-ii:r=iiv:c=iiv:b$(r,c)="2"b$(r,c)="1":sq c:r ,n=iiv:r=r(n):c=c(n):b$(r,c)="2":sq:n Typ=176:cl:d$=" Want to move a black square? ":di:yn:cl:no250 d$="From":o$="0":n$="1" d$=d$+" which square?":di 2in:h=i:sq:x*v:b$(r,c)o$i,z:sq:237 Kb$(r,c)=n$:sq:o$="0"d$=" To":n$=o$:o$="1":sr1=r:sc1=c:235 cl:sr0=r:sc0=c 3d$="My move...":di::c$="2":co:yes270 c$="3":co:no270 ad:ca:ma:w=oca:270 <yw=yw+i:d$=e$((iii*)+v):di:n=z-xi/v:.01z# =,n:n Td$=yw+" to you, "+mw+" to me. Play again?":yp=176:di:yn:yes145  8d$="Enter CONT when you feel better.":di::145 c$="2":ad:m=iii3106 6y=yj:n=o:r=iiv:c=iiv:w$(y,r,c)"3"278 a$(r,c)="3"n=n+i:278 a$(r,c)"1"294& c:r:n>iii294& "6r=iiv:c=iiv:w$(y,r,c)="0"a$(r,c)="0"300, %c:r &y:3106 ,ft=iv-t:t=ivt=o -8c$="3":fi:n=iiv:r=r(n):c=c(n):b$(r,c)="1":sq:n .0r=iiv:c=iiv:crc:b$(r1,c1)=w$(y,r,c):c:r /Em=iiio-i:c$=m:sh:m:y>x+vd$="Try that for size":di:er-x-x 1Hd$=e$((iii*)+i):di:n=iiii:iii/x,o:n:i,-iii:mw=mw+i:260 65a=ivi:y=iiv:r$=l$(a,y):in+v:r(y)=r:c(y)=c:y =St=oiii:f=oi:n=o:y=iiv:r=r(y):c=c(y):crc:b$(r1,c1)="3"n=n+i:321A ?b$(r1,c1)"1"323C @r=r1:c=c1:h=i:sq:sq Ay:na=0:c=iiv:r=iiv:b$(r,c)=c$a=a+i:r(a)=r:c(a)=c 9r:c: >3m=o:r=iiiii:c=iiiii:m=m+(b$(r,c)=c$):c:r: C5r=iiv:c=iiv:a$(r,c)="2"a$(r,c)="3":837E Da$(r,c)="3"a$(r,c)="2" Ec:r: Hr1=r:c1=c:t=ocrc+v It=iicrc+iii Jr1=c:c1=r:t=iiicrc+iv Kr1=v-r1:t=icrc+v L c1=v-c1 M fc1=v-c1 N RIt=oiii:f=oi:b=iiv:r=r(b):c=c(b):crc:w$(y,r1,c1)"2"853U Tb: Uf:t: \My=yj:r=14:c=14:a$(r,c)w$(y,r,c)w=o:ma+iii ^ c:r:w=i: _y: f$fi:mi:y=i:j=x+ii:my=j+i:j=y gmiij=j+i i#co:noy=j+i:j=y+ii:l 1983 Brian Hebbes oiiv zs[rcrc ****** ANOTHER GREAT WIN!!******SuperSpectrum strikes yet again! The machine that can't be beat OK, Congratulations! You did it. I'll let you have that one There must be a mistake!You win!gh  !!dp*/4>CrHR\f72231213123310101223121312331011022312131233001112201231123330111220123112333101122012331231013112201233023111311220123112310133122012310231113312201233323111011223121312033011122012011233313112311233322011011220112310231133122311231023310112233123102311011020112312231133102331231223110110231123122331011xn159A95121598951004898401DAngle-game  1983 Brian Hebbes