ZXTape!Snake 77s9 0:0: R:a(x,y\)=10 *(6-(((175-y)/8),(x/8))) >0,10 ;7;2;1;"*** SNAKE ***" (j7:0,167:255,0:0,-159:-255,0:0,159 2nf=140(:c=(*3)+3:a=(*17)+2:b=(*27)+2:a,b;c;"":f <{10 ,14;" ":x=112p:y=88X:a$="8":p=0:p1=0:p2=0:21,11 ;"Score=" Fx,y Pb$=:b$=""b$=a$:100d Za$=b$ d.x=x+(b$="8")-(b$="5"):y=y+(b$="7")-(b$="6") n(x,y)=070F xa(x,y)=-10 170 Wp1=a(x,y):p1p2p2=p1:p=p+p1:21,17;p:.03{u\,10 :140 170 Ix+(4b$="8")-(4b$="5"),y+(4b$="7")-(4b$="6") Nx=x+(8b$="8")-(8b$="5"):y=y+(8b$="7")-(8b$="6") 70F d2,-10 :"Game Over: Another Go? ";a$:a$""a$(1)="y"a$(1)="Y"10 #