// RemoveZero.cms 2010.10.09    by あすかぜ
// カーソル列にある「0」から始まるデータについて、「0」を削除します。
// 編集・再配布は自由です。

for(y=1; y<=Bottom; y++){
  data = str([x,y]);
  nonZero = 1;
  while(nonZero < len(data) && mid(data, nonZero, 1) == "0"){
    nonZero++;
  }
  [x,y] = mid(data, nonZero);
}