Snake（スネークゲーム）

[以下のJavaScriptプログラムをダウンロード]

// Snake
var k=29,s=0;
function key(n){ k=n; }
function main(){
  if(k==28){ scroll(1,1); }
  if(k==29){ scroll(3,1); }
  if(k==30){ scroll(2,1); }
  if(k==31){ scroll(0,1); }
  if (scr(15,11)==64){
    lc(10,13);
    log("Game Over");
    lc(10,14);
    log("Score:",s,"\n");
    exit();
  }
  lc(15,11);
  log("@");
  s=s+1;
  setTout(main,50);
}
cls();
setKprs(key);
main();