Characters/Bytes used
1017 characters (1091 bytes)

Source Code
--psnake
--by paul stefko, v1.1
ng=function()s={}n,l,f,s.c,s.d,s.l=0,1,{r(127)\1,r(127)\1},0,⬇️,{}for i=1,15 do a(s.l,{10+i,6}) end end
a,r=add,rnd ng()l=2
::_::
if l!=1then
if btnp(❎)then
ng()end
else n+=1
if(btn(⬇️)and(not(s.d==⬆️)))s.d=⬇️
if(btn(⬆️)and(not(s.d==⬇️)))s.d=⬆️
if(btn(⬅️)and(not(s.d==➡️)))s.d=⬅️
if(btn(➡️)and(not(s.d==⬅️)))s.d=➡️
if(s.d==⬇️)a(s.l,{s.l[1][1],(s.l[1][2]+1)%127},1)
if(s.d==⬆️)a(s.l,{s.l[1][1],(s.l[1][2]-1)%127},1)
if(s.d==⬅️)a(s.l,{(s.l[1][1]-1)%127,s.l[1][2]},1)
if(s.d==➡️)a(s.l,{(s.l[1][1]+1)%127,s.l[1][2]},1)
for i=2,#s.l do
if((s.l[1][1]==s.l[i][1])and(s.l[1][2]==s.l[i][2]))l=0end
if(s.l[1][1]==f[1])and(s.l[1][2]==f[2])then
f={r(127)\1,r(127)\1}s.c+=1
?"\ac"
else
if n%300==0then n=0
?"\aa1..a2..a3"
else deli(s.l)end end end
cls(1)if l==1 then
pset(f[1],f[2],11)for p in all(s.l)do
pset(p[1],p[2],mid((s.c)%14+2,13)+2)end
else if l==2then
?"psnake",52,60,7
?"press ❎",48,72
else
?"game over",48,60,7
?"score: "..s.c,48,72
?"press ❎ to play again",24,84
end end
flip()
goto _