ラスタースクロールもどき（キャラクタスクロール）

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

// Char Scroll
var tx=new Array(5);
var deg=0;
var step=18;
function cScroll(){
  var x=10;
  var y=10;
  var i=0;
  while(i<6){
    var a=sin32(i*step+deg)/40;
    tx[i]=x+a;
    i=i+1;
  }
  cls();
  lc(tx[0],y);log("## ##### ##");
  lc(tx[1],y+1);log("## ##    ##");
  lc(tx[2],y+2);log("## ##    ##");
  lc(tx[3],y+3);log("## ##    ##");
  lc(tx[4],y+4);log("## ##### ####");
  deg=deg+1;
  setTout(cScroll,1);
}
cScroll();