> マジでN88-BASICに移植することを考えています。
> で、まだ逐語的な変換には手をつけていないのですが。
私も気になったので、NP2 でやってみました。(^^;
N88BASIC.EXE は画面がピンクになって動かないみたいです。(>_<)
BASIC.COM がコンパイラなんですね。無事コンパイルしたのを実行したら、
入力した数字が素数かどうかを表示するのですね。(^^;
> 気になったのがここ。
> if dsp=1 then print#1,"":gosub 1010
> if n>2000 then gosub 1000 'output
> dsp=1 かつ n>2000 のときは２回出力されるようなんですが、これって仕様的に
> なんとなく妙な気がします。これで正しいのですよね？
もちろんまずいです。(^^; いい加減なだけでした。
> あと、変数 j2 と j3 も、何をやっているのかよくわからない。
> この２つを足し算しているところもあるし。
これですね。
810 if i<j2 then return 'dsp2でカウント表示
j2=j2+j3
820 LOCATE 5,1:PRINT i; '
j2 は表示するまでのカウント数かな？
j3 はオプションの数字で、カウントがこの数字以上になったら次の数字ぶん表示しない
という感じですかね。ほとんど意味がないようですが。(^^;