Turn Up a ac<Turn-Up by Adrian George, from Your Spectrum #9 (Nov.1984) TURN-UP 7:0:7:  0:  9500% +21,3;1;"You go first" #2:k=21:m$="" (9 ,k;1;"" 2This original line was so annoying that I changed it to line 51 (JimG). =""0.01,20:50 Ditto for line 135. 3=""513 4'21,3;" " 7="m"160 <}i$=:i$>96`Ưi$<105ik=219 ,k;(i$-32 ):k=22:m$=m$+i$:0.05|L,0:40( Foi$=:i$>480Ưi$<579k=229 ,k;i$:k=23:m$=m$+i$:0.05|L,0:40( Pi$=:i$=12 k>21k=k-1:9 ,k+1;" ":m$=m$(1(m$-1)):0.05|L,0:40( ZG=13 k=239 ,k;" ":0.05|L,0:110n d 40( nL0:.4L,20:9 ,21;" ":m$235# x1x=m$(1)-96`:y=m$(2):p$="w" 9000(#:v$="nok"10 ,21;"INVALID";11 ,22;"MOVE":1,0:10 ,21;" ";11 ,22;" ":35# m6000p:9 ,21;"THAT'S ";np;10 ,21;"COUNTER":np>110 ,28;"s" 12 ,22;"Place ?" q="y"9 ,21;" ";10 ,21;" ";12 ,21;" ":140 q="n"9 ,21;" ";10 ,21;" ";12 ,21;" ":35# 133:0.01,0:133 Fv$="ok"x*2,y*2;"";x*2+1,y*2;"" 8000@:4,21;4;" ":4,21;4;you;4,26;me:you+me=64@7000X 0 point=32000} no=0 Ox=18:y=18:p$="b":0.001wn,x*8+y-8 !9000(#:v$="nok"260 0.004yn,65A S6000p:(x=1x=8)(y=1y=8)np=np+4:230 <(x=2x=7)(y=2y=7)np=np-1 8x=1x=8y=1y=8np=np+2 <(x=1x=8)(y=2y=7)np=np-3 <(y=1y=8)(x=2x=7)np=np-3 npme21,1;1;"YOU WIN" 4me>you21,1;1;"I WIN!!!!!!!!" "ANOTHER GAME ? ";j$ Wj$(1)="y"j$(1)="Y"2,1;" ":0:10  9999' @6x$="":y$="":q=you:q1=me:p$="b"q=me:q1=you Jp$="b"x$="":y$="" TUx*2,y*2;x$;x*2+1,y*2;y$:b$(x+1,y+1)=p$ ^ q=q+1 h>f=-11:g=-11:0.005y# =,60< r!f=0g=08180 |-b$(x+f+1,y+g+1)=" "8180 ,b$(x+f+1,y+g+1)=p$8180  h1=x+f+1:h2=y+g+1 b$(h1,h2)=" "8180 ,b$(h1,h2)p$h1=h1+f:h2=h2+g:8090 CHANGE  h1=x+f+1:h2=y+g+1 b$(h1,h2)=p$8180 q=q+1:q1=q1-1 b$(h1,h2)=p$ p0.01z# =,20:(h1-1)*2,(h2-1)*2;x$;h1*2-1,(h2-1)*2;y$ h1=h1+f:h2=h2+g:8130 g:f me=q:you=q1 p$="w"me=q1:you=q  #()b$(x+1,y+1)" "v$="nok": #2If=-11:g=-11:f=0g=09090# #<-b$(x+f+1,y+g+1)=" "9090# #F,b$(x+f+1,y+g+1)=p$9090# #P h1=x+f+1:h2=y+g+1 #Zh1=h1+f:h2=h2+g #db$(h1,h2)=" "9090# #nb$(h1,h2)p$9050Z# #x v$="ok": #g:f # v$="nok": %c:0,2;"1 2 3 4 5 6 7 8";1,1;"";4;" " % 9590v% %!4:2,20;"YOU ME ";3,20;"";4,20;"2 2 ";5,20;" ";6,20;"" %&0:1,0 %0bn=65A72H:0.01z# =,n-40(:n;"";n:" ":n %:L18,1;"";19,2;"1 2 3 4 5 6 7 8" %Dc8,8;"";9 ,8;"";10 ,8;"";11 ,8;"" %NBb$(10 ,10 ):n=110 :b$(n)=" ":n %Xdb$(5,5)="w":b$(6,5)="b":b$(5,6)="b":b$(6,6)="w" %byou=2:me=2 %l 7,20;"I'M BLACK." %q %vh5:n="a""l"+7:a:n,a:n:15,21;"TURN-UP";17,20;"BY A.GEORGE" % 0: %c255,128,a,a,a,a,a,a,255,1,1,1,1,1,1,1 %c128,a,a,a,a,a,a,255,1,1,1,1,1,1,1,255 %255,128,135,136,144,160,a,a,255,1,225,17,9 ,5,5,5 %160,a,a,144,136,135,128,255,5,5,5,9 ,17,225,1,255 %255,128,135,143,159,191,a,a,255,1,225,241,249,253,a,a %191,a,a,159,143,135,128,255,253,a,a,249,241,225,1,255 ^