雪を降らせる

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

// Snow
function reset(){ 
  cls();
  var x=rnd(31);
  var y=0;
}
function snow(){
  lc(x,y);
  log(" ");
  y=y+1;
  lc(x,y);
  log(".");
  var s=scr(x,y+1);
  if ((s==46)+(y==22)){
    var x=rnd(31);
    var y=1;
  }
  setTout(snow, 25);
}
reset();
setKprs(reset);
setTout(snow, 25);