ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！
［第４２３回］
●（９）ＷｏｒｄＳｔａｒでカレントディスクが変更できません
また間が空いての更新になってしまいました。
次から次へとよくもまあと呆れるといいますか、めげてしまうほど問題が出てくるものですから、その対策のために時間を取られてしまって、結局ホームページの更新は後回しになってしまいます。
今回もまた長野県のＮ様からのメールです。
やっとのことでなんとかＷｏｒｄＳｔａｒも動くようになったのですが、なんとなくどこかがまだおかしいように感じておりました。
ただ私は実際にＷｏｒｄＳｔａｒは使ったことがないものですから、どこがどのようにおかしいのかよくわかりません。
長野県のＮ様からのメールによりますと、Ｌコマンドでカレントディスクを変更しても編集コマンドＤや実行コマンドＲを使うともとのドライブに戻ってしまうとのご指摘です。
メールで指示いただいた通りに操作してみましたら、確かにご指摘の通りです。
どうもカレントディスクの設定手続きに問題があるようです。
これはかなり大ごとでありました。
どこがおかしいのかという追求と、その結果どこをどのように直すべきかというあたりをつかんで、実際にプログラムを修正するのにほぼ２日間かかってしまいました。
やはりカレントドライブの扱いにアナがあったことがわかり、ＺＢＤＯＳのファイル関連（ＯＰＥＮ、ＣＬＯＳＥ、ＲＥＡＤ、ＷＲＩＴＥなど）を大幅に書き直すことになってしまいました。
なかなかにしんどい作業ではありましたが、しかし、私ひとりで検証しておりましたら、このようなバグは到底見つけ出せなかったと思います。
これもひとえに実に熱心に検証をしてくださっております長野県のＮ様、大分県のＨ様のご協力のお蔭と感謝いたしております。
まことに有難いことです。
やっとのことで修正を完了しましたＺＢ３ＤＯＳプログラムをＮ様にお送りしましたところ、ほどなくＮ様から「WordStar
がうまく動くようになりました」というメールが届きました。
やっとこれでＺＢ３ＤＯＳの当面のデバッグも完了か、とほっと一息ついたのでありますが…。
●（１０）ＣＬＳがうまく働きません
Ｎ様からは続けてメールが届きました。
ＺＢ３ＤＯＳではエスケープシーケンスは使えないのですか？
プログラムを作っていて画面クリアができないので苦労しています。
というメールでした。
エスケープシーケンスはＥＳＣコード（１ＢＨ）に続いて何文字かの文字コードを組み合わせることで、主に画面制御などの特殊な働きをディスプレイ端末に行なわせるもので、たとえばカーソルの位置制御とか文字種、色の表示などを指定することができました（プリンタに対しても特殊な働きを指定することができました）。
しかしそれは昔のお話でＷｉｎｄｏｗｓの時代になりましてからは、ほとんど過去のものになってしまいました。
ＷｉｎｄｏｗｓのＤＯＳプロンプト（コマンドプロンプト）ではデフォルトの設定ではエスケープシーケンスは働きません。
このことにつきましては後ほどまた詳しく説明をいたします。
もともとエスケープシーケンスは直接ＣＰ／Ｍに関わる機能ということではなく、ＣＰ／Ｍをインストールするシステムのハードウェアのもつ機能ということになりますから、それはＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）の範囲外の機能であるということになります。
でありますから、当初からＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）の機能としてはエスケープシーケンスは全く考慮しておりませんでした。
しかしＷｏｒｄＳｔａｒを何とか動くようにしてみよう、という作業のなかでカーソル位置指定のためのエスケープシーケンスＥＳＣ＝ＹＸだけはどうしても必要であることがわかりました。
それがないとＷｏｒｄＳｔａｒの画面表示がぐちゃぐちゃになってしまいます。
そこでＥＳＣ＝ＹＸだけはＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）の機能としてその働きをプログラムで行なわせるようにしました。
ＥＳＣ＝ＹＸは［第３９７回］で説明をしています。
そういうことですから、ＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）ではそのほかのエスケープシーケンスは働きません。
Ｎ様には申し訳ありませんが、ここまで来るまでにたっぷり時間がかかってしまっていますから、このうえエスケープシーケンスにまで対応するというのは、ちょいと無理です。
あしからずご了承を、というメールを書こうとしまして、ふと、そういえばＺＢ３ＢＡＳＩＣには画面クリア命令としてＣＬＳがあったっけ、と余計なことを思い出してしまいました。
実はこのＣＬＳ命令、コマンドの／ＣＬＳというのもあるのですが、ともにＮＤ８０ＺⅢ（ＮＤ８０Ｚ３．５）のＺＢ３ＢＡＳＩＣ操作説明書からは落ちてしまっていました。
ＺＢ３ＢＡＳＩＣを起動して＞が表示されているときに
＞／ＣＬＳ［Ｅｎｔｅｒ］
と入力すると画面がクリアされます。
一方ＢＡＳＩＣプログラムの中で
１０ ＣＬＳ
のように使うことで、プログラム実行中に画面をクリアすることができます。
のはずだったのですが…。
その使用例を記事に書こうと思いまして、簡単なプログラムを書いて実行してみましたら。
あれま。
プログラムの動きがおかしくなってしまいました。
むむ。
バグがある…。
ということで、またもや今度はＺＢ３ＢＡＳＩＣのＣＬＳ命令のバグ取り作業をすることになってしまいました。
やっとのことでまともに動くようになったＺＢ３ＢＡＳＩＣのＣＬＳ命令の実行例です。
こちらは実行前、プログラムをＬＩＳＴ表示させたところです。
こちらが実行後の画面です。
●（１１）画面クリアのエスケープシーケンスも組込みました
そうこうしておりましたら、今度は大分県のＨ様からメールが届きました。
やっぱりこちらもエスケープシーケンスについてのお尋ねです。
エスケープシーケンスがうまく機能していないようですが、ＺＢ３ＤＯＳのエスケープシーケンスはＡＮＳＩでしょうか？
画面の色表示については何も説明がありませんが、色の表示はできますでしょうか？
上にも書きましたように、エスケープシーケンスにつきましてはＺＢ３ＤＯＳの守備範囲外ということで逃げてしまうつもりでおりましたが。
考えてみましたら、Ｎ様、Ｈ様が熱心にご協力していただきましたればこそ、ＺＢ３ＤＯＳのデバッグができたことに間違いはありません。
私ひとりではとてもこれだけ沢山のバグは見つけ出せませんでしたでしょう。
間違いなくＮ様、Ｈ様のご協力の賜物であります。
そのお二人からそろってエスケープシーケンスについてお尋ねをいただいてしまいましたからには、いや、これはとても逃げてはおれませんでしょう。
覚悟を決めました。
そこで。
画面クリアのエスケープシーケンスもプログラムで実行できるようにしてしまいました。
画面クリアのエスケープシーケンスは
ＥＳＣ［２Ｊ
です。
下はＥＳＣ［２Ｊで画面クリアをする簡単なテストプログラムです。
しかしＷｉｎｄｏｗｓのＤＯＳプロンプト（コマンドプロンプト）で普通にこれを実行しても、この画面のようになってしまい、画面クリアはできません。
Ｗｉｎｄｏｗｓ９８やＷｉｎｄｏｗｓＸＰではＤＯＳプロンプト（コマンドプロンプト）でエスケープシーケンスを扱うためにはＣｏｎｆｉｇ．ｓｙｓまたはＣｏｎｆｉｇ．ｎｔにそのための記述が必要です。
しかしそのようにしてもＷｉｎｄｏｗｓ７ではやはり実行できません。
そこで今回はそのような設定の変更をすることなくＥＳＣ［２Ｊの画面出力で画面クリアをするようにＺＢ３ＤＯＳ．ＥＸＥをプログラム変更しました。
下はそのように変更したＺＢ３ＤＯＳを起動して、上と同じプログラムを実行した結果の画面です。
３０行のＰＲＩＮＴ文でＥＳＣ（１ＢＨ）と［２Ｊを画面に表示すると、それが画面クリアとして働いていることがわかります。
あ。
今気が付きました。
ここは
３０ ＰＲＩＮＴ ＣＨＲ＄（＄１Ｂ）；”［２Ｊ”；
とすべきでした。
最後に ； が無いために画面クリア後に１行改行されてしまいました。
こちらは同じことをＣＰ／Ｍモードで実行するためのプログラムです。
