くりかえし命令と配列変数
プログラマーからひとこと
この章では、FOR～NEXT文について学びます。FOR～NEXT文は、それがあるだけでプログラムリストを読むのがぐっと難しくなるというおそろしい命令です。
プログラムした人は意味があって使っているしその意味もわかっているのですが、そのリストを読むほうはたまったものじゃありません。
それでも使うのはなぜかといえば、とてもベンリだからです。
これがあるだけでプログラムの手間はものすごく少なくなります。
あんがい悪くないですね。プラマイでいえばプラスじゃないでしょうか。
さらにこの章では、DIM命令、いわゆる配列変数についても学びます。
配列変数というものはパッと頭で理解するのがなかなかむずかしく、プログラムをおぼえはじめた人はみんなひっかかるポイントです。
正直わたしも何度か「こんなものなけりゃいいのに」と思いました。
「なんの役にたつんだ？」とも思いました。
「なくていいじゃん」とも思いました。
でも、そういうものが意外とけっこう役にたつということは、ここまでこの講座を読んできた人なら知っているはずです。
くやしいことにこれが本当に役にたつのです。
この章では、できるだけじっくりと配列変数のことをおぼえていきます。
あんまりじっくりすぎて途中でめんどくさくなるかもしれませんが、カベをのりこえるためだと思ってじっくり読んでみてください。
FOR～NEXT命令
「くりかえし命令」と言ってどんな命令を想像するかな？
ＧＯＴＯで作る無限ループなんか、「くりかえし」になるんじゃねえか？
0001#. ＠ＭＵＧＥＮ
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＧＯＴＯ ＠ＭＵＧＥＮ
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＧＯＴＯ ＠ＭＵＧＥＮ
たしかに何度もくりかえしているね。じゃあ、無限ループじゃなく10回くり返したら途中でループをやめる、とするとどうすればいいかな？
ムリじゃねえの？
ず、ずいぶんアキラメが早いね。ええと、変数を使って、ループのたびに変数の中身を変えて、IF～THEN文で変数によって別のラベルまで……
ウォオー！ 話を聞いてるだけでめんどクセエうえに、言ってるイミもよくわかんねえぜ！
なかなか難しいよね。そこで役に立つのがFOR ～NEXT 命令なんだ。
まずこのプログラムを見てごらん。
まずこのプログラムを見てごらん。
0001#. ＦＯＲ Ａ＝１ ＴＯ １０
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＮＥＸＴ
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＮＥＸＴ
ほとんどゼンブとっかえてるじゃねえか！ とりあえずＲＵＮしてみるか。
ちゃんとクリカエシを10回書いたところで終わったね。
３行のプログラムにしちゃナカナカやるじゃねえか。どうやらクワシク話をきかなきゃならねェようだな！
英語で「FOR 」は「～から」、「TO 」は「～まで」という意味になるね。
ＦＯＲ Ａ＝１ ＴＯ １０は「Ａ＝１から１０まで」と読んでもいいだろう。
そして「NEXT 」は「次にいく」というところかな。「次のくりかえしを始める」って考えればこれはわかるよね。
ＦＯＲ Ａ＝１ ＴＯ １０は「Ａ＝１から１０まで」と読んでもいいだろう。
そして「
ＮＥＸＴの方はだいたいワカッたぜ。しかしＦＯＲの方、「Ａ＝１から１０まで」ってのはイミわからねェな。フツウ「１から１０まで」じゃねえのか？
あれ？ たしかBASICでイコール記号を使うのは変数のときだけだから……？
よくおぼえていたね。そう、このＡは変数なんだ。
なんでココで変数が出てくんだ……？
話が見えてこねェぞ！ ワカるようにセツメイしやがれ！
話が見えてこねェぞ！ ワカるようにセツメイしやがれ！
ジッサイにプログラムで見てもらうのが早いかな？ ちょっと書きかえてみよう。
0001#. ＦＯＲ Ａ＝１ ＴＯ １０
0002#. ＰＲＩＮＴ”クリカエシ”；Ａ
0003#. ＮＥＸＴ
0002#. ＰＲＩＮＴ”クリカエシ”；Ａ
0003#. ＮＥＸＴ
これをＲＵＮするとこうなるね。
１から10まで、くりかえすたびに変数Ａがふえている、のかな？
そう考えてマチガイじゃないね。これがＦＯＲ～ＴＯのむずかしいトコロなんだけど、「Ａ＝１から始めて、変数Ａが１０になるまで、変数Ａを１ふやしながらくりかえす」というのがＦＯＲ Ａ＝１ ＴＯ １０の正しいイミなんだ。
ズイブンいろいろなコトがはぶいて書いてあんだな、ＦＯＲ～ＴＯ文にはよォ！ わかりづれェ！
そのまま書いても長い命令になって、打ちづらいだろうしね。これくらいがちょうどいいんじゃないかな。
おっと待てよ、オレのギモンがカイケツしてないままだったぜ！ なんで変数がかならず出てくんだ？ はじめの方で使ったこのプログラムだけは、変数いらねえじゃねえか！
0001#. ＦＯＲ Ａ＝１ ＴＯ １０
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＮＥＸＴ
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＮＥＸＴ
それはもっともかもしれないね。FOR～NEXT文では変数を使うことの方がずっと多いから……としか言えないかな。じっさい、変数を使わないループなら変数のことはムシすればいいんだし、別にモンダイはないだろう？
ウムム……タシカに。
うっかり別のところで変数Ａを使ってると、ＦＯＲ命令で変数のナカミが変わっちゃうから、それだけは気をつけないとね。
なんだかマルメこまれた気がしねェでもないが……
次はこのFOR～NEXT文と相性のいい、DIM命令について説明するよ！
配列変数
まずサイショに、「配列変数 」について知っておこうか。
イヤなヨカンだな……。漢字が４コ以上つづいたコトバはムズカシいモンと決まってるぜ！
まあまあ。いままでにおぼえた変数とたいした違いはないんだよ。
ホントに？
使いかたがトクシュだからとまどうかもしれないけど、変数と同じように使うものだってコトさえ忘れなければ、けっこうカンタンなはずさ。
まず、いつもの変数を考えてみようか。
まず、いつもの変数を考えてみようか。
0001#. ＡＰＰＬＥ＝５６
0002#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ；”コ”
おぼえてるかな？ サンプルプログラム１でこんな使いかたをしたよね。0002#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ；”コ”
オボエてなくたって、リストを読めばイミはわかるぜ。えーと、"ＲＵＮ"！
リンコ゛５６コ
ＯＫ
そうそう、変数ＡＰＰＬＥのナカミ、５６をＰＲＩＮＴするんだゼ！ＯＫ
（もうわすれてたのか……）
これを配列変数に変えてみよう。
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（１）
0002#. ＡＰＰＬＥ（０）＝５６
0003#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（０）；”コ”
0002#. ＡＰＰＬＥ（０）＝５６
0003#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（０）；”コ”
１行目からさっそく新しい命令が２つ……
ああ、そこは今は気にしないでいいトコロだから、２行目から読むようにしてね。
ン？ じゃあ変わったのは、変数のウシロに（０）がついただけってコトか？ それともＡＰＰＬＥ（０）てのをＰＲＩＮＴすると５６とはチガってくんのか？
いいや、ＡＰＰＬＥ（０）のナカミは５６でマチガイないよ。
リンコ゛５６コ
ＯＫ
ＯＫ
じゃあナマエ以外ゼンブ同じじゃねェかよ！
変数と同じだって言ったじゃないか。こういうものなんだよ。
うーん……これはワンパク君じゃなくても、フツウの変数でいいじゃないかって思うな。
よし、その気持ちをわすれずに、配列変数の使い方その２にいってみよう！
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（２）
0002#. ＡＰＰＬＥ（０）＝５６
0003#. ＡＰＰＬＥ（１）＝３２
0004#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（０）；”コ”
0005#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（１）；”コ”
やっぱり１行目はムシして読んでね！0002#. ＡＰＰＬＥ（０）＝５６
0003#. ＡＰＰＬＥ（１）＝３２
0004#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（０）；”コ”
0005#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（１）；”コ”
テメー……まさか、ソレもこのフツウの変数と同じだって言うんじゃねェだろうな……
0001#. ＡＰＰＬＥ０＝５６
0002#. ＡＰＰＬＥ１＝３２
0003#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ０；”コ”
0004#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ１；”コ”
0002#. ＡＰＰＬＥ１＝３２
0003#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ０；”コ”
0004#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ１；”コ”
合ってるよワンパク君！ ちゃんとわかってるじゃないか。
ウオォー！ ガキあつかいもタイガイにしやがれー！ 変数のナマエが違うだけじゃねえか!!
そうそう、名前くらいのちがいだって思えばいいんだよ。教えやすくてたすかるなあ。
チッ、ここまではテメーのオモワクどおりってワケか。だが、そろそろ配列変数だけができるワザを言わねえと、オレもダマっちゃいないぜ！
配列変数ならではって言うと……こういうのはどうかな？
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#. ＰＲＩＮＴ”１ニチメ リンコ゛”；ＡＰＰＬＥ（１）；”コ”
0034#. ＰＲＩＮＴ”２ニチメ リンコ゛”；ＡＰＰＬＥ（２）；”コ”
0035#. ＰＲＩＮＴ”３ニチメ リンコ゛”；ＡＰＰＬＥ（３）；”コ”
#####. ：
0063#. ＰＲＩＮＴ”３１ニチメ リンコ゛”；ＡＰＰＬＥ（３１）；”コ”
あんまり長いから途中ははぶいたけど、31日分のリンゴを数えるプログラムなのはわかるよね。0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#. ＰＲＩＮＴ”１ニチメ リンコ゛”；ＡＰＰＬＥ（１）；”コ”
0034#. ＰＲＩＮＴ”２ニチメ リンコ゛”；ＡＰＰＬＥ（２）；”コ”
0035#. ＰＲＩＮＴ”３ニチメ リンコ゛”；ＡＰＰＬＥ（３）；”コ”
#####. ：
0063#. ＰＲＩＮＴ”３１ニチメ リンコ゛”；ＡＰＰＬＥ（３１）；”コ”
つまり……カッコの中の数字があるからわかりやすいって感じ……？
フザケんじゃねエー！ だからソレ、こう書いても同じじゃねえか！
0001#. ＡＰＰＬＥ１＝５６
0002#. ＡＰＰＬＥ２＝３２
0003#. ＡＰＰＬＥ３＝７１
#####. ：
0031#. ＡＰＰＬＥ３１＝４５
0032#. ＰＲＩＮＴ”１ニチメ リンコ゛”；ＡＰＰＬＥ１；”コ”
0033#. ＰＲＩＮＴ”２ニチメ リンコ゛”；ＡＰＰＬＥ２；”コ”
0034#. ＰＲＩＮＴ”３ニチメ リンコ゛”；ＡＰＰＬＥ３；”コ”
#####. ：
0062#. ＰＲＩＮＴ”３１ニチメ リンコ゛”；ＡＰＰＬＥ３１；”コ”
0002#. ＡＰＰＬＥ２＝３２
0003#. ＡＰＰＬＥ３＝７１
#####. ：
0031#. ＡＰＰＬＥ３１＝４５
0032#. ＰＲＩＮＴ”１ニチメ リンコ゛”；ＡＰＰＬＥ１；”コ”
0033#. ＰＲＩＮＴ”２ニチメ リンコ゛”；ＡＰＰＬＥ２；”コ”
0034#. ＰＲＩＮＴ”３ニチメ リンコ゛”；ＡＰＰＬＥ３；”コ”
#####. ：
0062#. ＰＲＩＮＴ”３１ニチメ リンコ゛”；ＡＰＰＬＥ３１；”コ”
そうだよワンパク君！ よくここまでガマンしたね！ ここまでは本当に変数といっしょなんだ。これから、配列変数だけの使い方に変えていくよ。
お、おう……？ ガマンしたオボエはあんまりねェが、とにかくのぞむトコロだぜ！
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0034#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0035#. ＮＥＸＴ
0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0034#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0035#. ＮＥＸＴ
!!
わかってきたかな。33行目からはおぼえたばかりのFOR～NEXTを使っているね。
変数ＤＡＹを１から順にふやしながら、３１までくりかえすんだよね。
ＤＡＹが１のトキは、１ニチメ リンコ゛”；ＡＰＰＬＥ（１）；”コ”ってコトになる……そしてくりかえしてＤＡＹが２になったら、２ニチメ リンコ゛”；ＡＰＰＬＥ（２）；”コ”に……！
これが３１まで自動でくりかえされるってワケか！
これが３１まで自動でくりかえされるってワケか！
これは配列変数じゃないとできないだろう。こういう使い方もできるね。
0033#. ＩＮＰＵＴ”ナンニチメヲ シラヘ゛マスカ”；ＤＡＹ
0034#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0034#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
ＩＮＰＵＴで数字を変数ＤＡＹに入れて、34行目で配列変数ＡＰＰＬＥ（ＤＡＹ）をＰＲＩＮＴするわけだね。
うーん、これを普通の変数でやろうとすると、変数名を入力させて……いやいやそれもダメか……
うーん、これを普通の変数でやろうとすると、変数名を入力させて……いやいやそれもダメか……
みんなもわかったみたいだね。つまり配列変数は「変数名に変数を使える」ベンリな変数なんだ。
ヘンスウメイをヘンスウにツカえるヘンスウ……
ごめんごめん、「変数」というコトバばっかりでわかりづらかったね。こういうふうに、口で説明するのがムズカシいのが配列変数なんだ。だから今回はできるだけジッセン的に説明したよ。
ヘッ、なかなかヤルじゃねえかクソッタレー！
それ、ほめてるの？
DIM命令、CLEAR命令
配列変数についてわかってきたところで、DIM命令もおぼえておこう。
配列変数を使うときはいつも１行目に書いてあったね。
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
ＤＩＭ ＡＰＰＬＥ（３２）というのは、これから配列変数をＡＰＰＬＥ（０）～ＡＰＰＬＥ（３１）まで用意する、という命令だよ。
いちいち前もって数を決めておかないといけないの？
そう。このことを「配列宣言 」と言うんだけど、かならず配列宣言するのはちょっとめんどうではあるね。
メンドウなコトなんざやってられるか！ イキナリ書けばいいじゃねえか！
0001#. ＡＰＰＬＥ（３１）＝１
Ｓｕｂｓｃｒｉｐｔ ｏｕｔ ｏｆ ｒａｎｇｅ （１）
ＯＫ
ＯＫ
というエラーが出るんだよね。
のヤロー！ こうすりゃいいんだろ！ 負けたキブンだぜ！
0001#. ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（３１）＝１
0002#. ＡＰＰＬＥ（３１）＝１
ＯＫ
使うのはＡＰＰＬＥ（３１）までなのに、ＤＩＭ ＡＰＰＬＥ（３２）と書かなきゃいけないのがフシギなんだけど……。
そのＤＩＭだと、用意されるのはＡＰＰＬＥ（０）～ＡＰＰＬＥ（３１）だからね。数を数えてみるとわかるよ。
……タシカに、32コあるな。しかし言われねえとピンとこねえハナシだぜ！
ＬＯＣＡＴＥ命令でもそうだったけど、ゼロから数えるから、頭で考える数より１つズレちゃうんだね。これは気をつけないといけないかな。
いっそありえないくらい大きく宣言したら？
ところが配列のこの数字は、「合計で」32768個までと決まってるんだ。たとえばＤＩＭ ＡＰＰＬＥ（３２７６８）と宣言したあとだと、ＤＩＭ ＯＲＡＮＧＥ（１）くらいでもエラーになってしまうんだよ。
ヤッカイだな、まったく！ まあホドホドに使うくらいならダイジョウブなんだろ？
0001#. ＤＩＭ ＡＰＰＬＥ（３００）
0002#. ＡＰＰＬＥ（３１）＝１
0002#. ＡＰＰＬＥ（３１）＝１
ＲＵＮ
Ｄｕｐｌｉｃａｔｅ ｄｅｆｉｎｉｔｉｏｎ （１， ＤＩＭ）
ＯＫ
Ｄｕｐｌｉｃａｔｅ ｄｅｆｉｎｉｔｉｏｎ （１， ＤＩＭ）
ＯＫ
!? な、ナンだ？ ３００個テイドでエラーは出ねェハズだぞ！
そう感じるのもモットモだね。でもこれは配列変数の「二重定義」になっちゃうんだ。
？？？
たとえば、こう書くのはよくないって、なんとなく思うんじゃないかな？
0001#. ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（３１）＝１
0003#. ＤＩＭ ＡＰＰＬＥ（３００）
0002#. ＡＰＰＬＥ（３１）＝１
0003#. ＤＩＭ ＡＰＰＬＥ（３００）
まあ……いちどナカミを１に決めたＡＰＰＬＥ（３１）が３行目でどうなっちゃうのか、不安になるね。
だから、プチコンでは同じ配列変数の名前で２度ＤＩＭするとエラーになるようになってるんだ。
そこでさっきのワンパク君だけど……
そこでさっきのワンパク君だけど……
オレは最初に……
0001#. ＤＩＭ ＡＰＰＬＥ（３２）
って書いてＲＵＮして、次に
0001#. ＤＩＭ ＡＰＰＬＥ（３００）
にしてＲＵＮしたが……、まさか、ソレか？プログラムが終わっても変数の情報は消えないから、それでもエラーになっちゃうんだ。
そんなコト言われてもどうすりゃいいってんだ！ これハマリじゃねえか！
だいじょうぶ。変数の情報が残ってるのがモンダイなんだから、これをリセットすればいいんだ。
0001#. ＣＬＥＡＲ
0002#. ＤＩＭ ＡＰＰＬＥ（３００）
0002#. ＤＩＭ ＡＰＰＬＥ（３００）
インテリ君がかならず１行目に書いていた、CLEAR 命令だね！
日本語では「かたづける」と言えばいいかな。こう書くだけで、変数はぜんぶリセットされるんだ。
めんどクセェことをはぶくとだ、プログラムにＤＩＭ命令を書くトキは、かならず前にＣＬＥＡＲを書いときゃいいってことだな？
ワンパク君のまとめ方はランボウだけど、今回はボクもサンセイかな。
そうそう、ＣＬＥＡＲを使うならプログラムのはじめの方がオススメだってことも言っておかないとね。あんまり途中で使うと、ダイジな変数もいっしょにクリアされちゃうかもしれないよ。
チッ、なにかとメンドウだぜ！
しかしまあワリと今回はジュウジツしたな。デカいヤマを乗りこえたって感じだゼ！
しかしまあワリと今回はジュウジツしたな。デカいヤマを乗りこえたって感じだゼ！
あ、でもその前にもう１つ、おぼえておきたいコトが……
マジでか。
DATA命令・READ命令
配列変数の説明に使ったこのプログラムだけど……
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0034#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0035#. ＮＥＸＴ
いま見直しても、２～32行目がずいぶん長いって思うよね。0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0034#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0035#. ＮＥＸＴ
でもコロンで２行や３行をまとめても、まだけっこう長いしなあ。
こういうデータをまとめたいときに役にたつのがDATA とREAD のコンビなのさ。
まずはＤＡＴＡの使い方を先に見てみよう！
まずはＤＡＴＡの使い方を先に見てみよう！
0002#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0003#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0004#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
0003#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0004#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
ホントにデータって感じだね。
やってるコトは「，」で区切りながらリンゴの数を順に並べてるだけ……みたいだな。
リンゴの数の種類は全部で31。４行目だけ１つ飛び出してるけど、これはいいの？
ＤＡＴＡ文はかなり自由だから、１行に何個データがあってもいいんだ。２行目では10個、３行目も10個、４行目では11個。プログラムしていて見やすければそれが一番だと思うよ。
だがイマんとこ、ただ数をズラッと書いてるだけじゃねえか！ ＤＡＴＡの使いミチにはほど遠いゼ！
そこがポイントだね。ＤＡＴＡ命令はそのままだと何のイミもないんだ。そこでＲＥＡＤ命令の出番になるよ。
いちばんカンタンなＲＥＡＤ命令の使いかたはこうかな。
0005#. ＲＥＡＤ ＡＰＰＬＥ
さっきのＤＡＴＡ文の後にこう書くと、最初のデータ５６が変数ＡＰＰＬＥに入るよ！31コあるデータなのに、入る数字は最初の１つだけかよ。どういうこった！
いくつもデータを読み込むなら、ＲＥＡＤのあとに変数を並べて書くね。今回使うのは配列変数だから……
0005#. ＲＥＡＤ ＡＰＰＬＥ（１），ＡＰＰＬＥ（２），ＡＰＰＬＥ（３）
0006#. ＲＥＡＤ ＡＰＰＬＥ（４），ＡＰＰＬＥ（５），ＡＰＰＬＥ（６）
#####. ：
こんなふうに10行ほど続けると全部のデータが読み込めるよ。0006#. ＲＥＡＤ ＡＰＰＬＥ（４），ＡＰＰＬＥ（５），ＡＰＰＬＥ（６）
#####. ：
ゼンゼン長ったらしいゼ、まだまだ使えたもんじゃねェな！
あれ、待ってよ。配列変数っていうことは……？
そう、気がついたようだね。今のＲＥＡＤ文を短くまとめると、こうなるんだ。
0005#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0006#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0007#. ＮＥＸＴ
0006#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0007#. ＮＥＸＴ
ココでもまたFOR～NEXTか……。オボエたての命令だが、ずいぶんアチコチで使うんだな。
特に配列変数やＲＥＡＤにはベンリな命令だからね。31行あった文が６行におさまったのはFOR～NEXT文のおかげだね。
いままでのプログラムリストを全部書いてみると、こうなるね。
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0003#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0004#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
0005#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0006#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0007#. ＮＥＸＴ
0008#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0009#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0010#. ＮＥＸＴ
0002#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0003#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0004#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
0005#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0006#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0007#. ＮＥＸＴ
0008#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0009#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0010#. ＮＥＸＴ
ウオォ、いつのまにか10行まで短くなってたのか！
５～10行目はかぶってるところがあるから、まとめちゃおう。
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0003#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0004#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0005#. ＮＥＸＴ
0006#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0007#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0008#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
こんなふうにＤＡＴＡはプログラムリストのどこに置いてもいいんだよ。ＲＥＡＤすると自動的にリストの最初にあるデータをさがして順番に読みこむからね。0002#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0003#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0004#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0005#. ＮＥＸＴ
0006#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0007#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0008#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
オイオイ、８行におさまっちまったぞ！
やっていることは同じでも、はじめのころの63行あったプログラムとくらべると、かなりコンパクトになったろう。
あんまり短くしすぎると書いてる自分もこんがらがるので考えものじゃが、目で追えるていどならセイリしてまとめるのは良いことじゃな。こういうのもプログラムのひとつのダイゴミじゃ。
あ、ハカセ。いつから……？
ジジイの言うこともワカる気がするゼ。ケッキョク配列変数もFOR～NEXTもナシで書いた方がワカりやすさじゃイチバンなんじゃねえか？ とか思ったモンだが……
今までの話をだいなしにしそうなハツゲンだね。
しかし、BASICの命令をクシして、めんどクセェことをゼンブはぶいたのはロックだゼ！ オレのパンクスピリットにもウッタエるモノがあったな！
ワカッてくれたようでうれしいのう。そんなパンクキッズのキミのために、次のサンプルプログラムはサウンドをフィーチャーしてみたぞい。
やってやろうじゃねェかコノヤロー！ さっさと見せやがれェ！
（なんだろうこのテンカイ……）
- FOR～NEXT命令
- ＦＯＲ （変数）＝（最初の数） ＴＯ （終わる数）
ＮＥＸＴ
最初の数から始めて、変数を１ずつふやしながら、終わる数までＦＯＲ～ＮＥＸＴまでをくり返します。 - 配列変数
- Ａ（（数字））という形の変数が配列変数です。たとえばＡ（１）とＡ（２）はまったく別のものとして、違う数が中に入ります。
- DIM命令
- ＤＩＭ （変数）（（数））
配列変数に使う数を決める「配列宣言」をします。たとえばＤＩＭ Ａ（１０）ならＡ（０）～Ａ（９）まで10個の配列変数が用意されます。 - CLEAR命令
- ＣＬＥＡＲ
変数をリセットします。DIM命令の「二重定義」をしないために、プログラムのはじめのうちに使っておくのがいいでしょう。 - READ命令・DATA命令
- ＤＡＴＡ （データ），（データ），……
変数に入れるデータ（数字など）を「，」でくぎって連続で書くことができます。
ＲＥＡＤ （変数）
変数にＤＡＴＡ文で書いたデータを読みこみます。データはプログラムの中で先にあるものから順に呼びだされます。