Snake! (ZX Spectrum) by mcphail

1 INK 8: LET a=22528: LET h=22826: LET t=h-1: LET s=-10: FOR d=20 TO 2 STEP -1 2 PRINT PAPER 0AT d,1," ": NEXT d: PRINT INK 6 PAPER 6AT 9,9"Q " 3 LET p=INT (RND*19)+2: LET c=INT (RND*19)+1: IF PEEK (a+32*p+c) THEN GO TO 3 4 PAPER 8: PRINT INK 7AT p,c"*": LET s=s+10: PRINT AT 0,0"Score="s,"QAOP" 5 LET k$=INKEY$: LET o=(32*(k$="a"))-(32*(k$="q"))-(k$="o")+(k$="p") 6 LET f=INT ((h-a)/32): LET e=h-a-f*32: IF (d+o) AND o THEN LET d=o 7 PRINT AT f,eCHR$ (d+80): LET h=h+d: LET z=PEEK h: PRINT AT 0,21"to move" 8 POKE h,54: GO TO 9*(z=0)+3*(z=7)+9999*(z>7) 9 LET w=INT ((t-a)/32): LET u=t-a-w*32: LET v=...