> ということで、今回の結果を出した検証プログラム、#11195に載っているものと
> 大体同じものだと思いますが、念のため、もう一度示してください。重要なのは表示
> でして、同じような表示にしたいので表示部は必須。
DOSVAXJ3 の32ビット版をJ31モードにして TBasicインタプリタが起動できました。
結構互換性があるのね。
それで、ソースをリナンバーしてみました。
RENUM 3000
これで、3000 から始まる行番号にキチンと並べ替えられました。＼(^^)／ ﾔｯﾀ-
ではそのソースを貼り付けます。
3000 ' SQR-3.BAS
3010 DEFDBL A-Z
3020 'defsng a-z
3030 'screen 0
3040 CLS
3050 INPUT S
3060 OPEN "SQR.dat" FOR OUTPUT AS #1
3070 CC=0
3080 X = S / 2! '; // Is there any better way to determine initial value?
3090 LASTX = 0! '; // the value one before the last step
3100 'while ( x != lastx ) '// until the difference is not significant
3110 LASTX = X
3120 X = (X + S / X) / 2!
3130 CC=CC+1
3140 PRINT "div=";LASTX-X, X,LASTX,CC
3150 PRINT#1,"div=";LASTX-X, X,LASTX,CC
3160 IF X < LASTX THEN 3100
3170 PRINT "SQR(";S;")=";X,LASTX,CC
3180 PRINT#1, "SQR(";S;")=";X,LASTX,CC
3190 CLOSE
3200 INPUT A
3210 END
このままで J31 と PC-98 で動くと思います。