同じということでお察しください。(^^;手抜きの残骸だったのかなんなのか、今はもうわからないです。これはいったいなんだろう、とか。これも借り物のルーチンの残骸ですね。他人に見せることは全く意識してないのです。私のソースはこんなのばっかりなので、元々は公開する気も無かったんですがねぇ。(^^;出来る範囲で改善するようにします。同じということでお察しください。手抜きの残骸だったのかなんなのか、今はもうわからないです。いや、konnoさんがわからないくらいですから、私にも察することはできません。マジでN88-BASICに移植することを考えています。逐語的な変換には手をつけていないのですが。ときは2回出力されるようなんですが、これって仕様的になんとなく妙な気がします。何をやっているのかよくわからない。この2つを足し算しているところもあるし。マジでN88-BASICに移植することを考えています。逐語的な変換には手をつけていないのですが。画面がピンクになって動かないみたいです。コンパイラなんですね。入力した数字が素数かどうかを表示するのですね。なんとなく妙な気がします。いい加減なだけでした。何をやっているのかよくわからない。この2つを足し算しているところもあるし。オプションの数字で、カウントがこの数字以上になったら次の数字ぶん表示しないという感じですかね。ほとんど意味がないようですが。マジでN88-BASICに移植することを考えています。逐語的な変換には手をつけていないのですが。→実は覚えていなかったけど、FOR文のカウントに使うループ変数に倍精度型は使えないのだとか。マニュアルに明記してあった・私の趣味でファイル番号指定の「#1」の前には全て半角空白を入れた(たぶん、文法的には不要だと思うけど覚えていない)・#11160で私が指摘した謎の2つのif文はdsp=1のほうだけ残した・ファイル出力の際に、ループ内でいちいちOPEN/CLOSEするのは非効率的だと思うので、最初で開いて最後に閉じるだけにした今の所はそんな感じ。机上デバッグでどこまでできるか。忘れていることが多すぎるなぁ。ん〜、なんとなく動いているっぽい。いいつつ、特にファイル書き込みの部分はろくに動作確認をしていないのだけど。・N88-BASICだと、デフォルトは白黒モードなので、COLORでの色表示がうまくない。→おやくそくのCONSOLEでカラーモードにした。・時間表示の部分、私の趣味で分と秒の間もコロンにした。・エラー処理ルーチンの最後、CLSがあるとエラーで終わったことがわからなくなりそうだったので、これは除去した。明示的にkonnoさんのコードに手を加えたのはこんなところかな。あとは、各行にきちんと行番号をつけてやれば完成。自宅に戻ったらアップロードしたいな。自宅に戻ったらアップロードしたいな。アップロードしました。tp://toshiki.la.coocan.jp/prime88.zip期間限定。そのうちに削除します。いいつつ、特にファイル書き込みの部分はろくに動作確認をしていないのだけど。こんな短いコードなのに、全ての条件分岐を網羅するホワイトボックステストは行っていない。