> pdf になってから、コピーアンドペーストができません。
必要と思われるプログラムは,コピーできます。
そばにある荷札のようなアイコンをクリックすると得られます。
(ブラウザで見ているか,acrobat で見ているかによって得られ方が違いますが。)
このことはホームページのBASIC入門の項に書いてあります。
"上の公開pdf文書に含まれるプログラムは,文書中,プログラムの近くにある
タグアイコンをダブルクリック,あるいは右クリックすることで内容をテキスト
として取得できます。 ご利用ください。"
http://www.tbasic.org/tutorial/index.html>for n=3 to 3000
>gbackcolor="Black"
>gscreen (300,300)
> ・・・
For文の中にgscreen (300,300)は入れてはいけません。
繰り返しの回数だけグラフ画面が開かれます。
> if -0.5=<(0-150)^2+(y-150)^2<=0.5
これは正しい論理式ではありません。
if (-0.5=<(0-150)^2+(y-150)^2) and ((0-150)^2+(y-150)^2<=0.5)
とすべきです。
> GForceColor = "#555555"
これは GForeColor = "#555555"です。
>for x=0 to 275 step0.000001
> for y=0 to 275 step0.000001
このループは何回実行されると思いますか。
精密なものを実行したい気持ちは分かりますが,
少なくとも最初は数万回で終わるループで試すべきです。
PSet は点を描くので,少ない点ですと見えにくいものです。
ですから,よくわかる色で試すべきでしょう。
> if (a-150)^2+(b-150)^2=125^2 then pset(a,b),14
白に黄色では点が掛かれているか良くわかりません。
一応kikiririさんの趣旨に沿ったと思われるプログラムを作ってみました。
随分と荒いプログラムに見えるかもしれませんが,
これでも10万回レベルの回数を実行しています。
GBackColor=Black
Gscreen(400,400)
Window (-200,-200)-(200,200)
EM = 125^2-50
EP = 125^2+50
For a=-200 to 200 step 1
For b=-200 to 200 step 1
c=(a)^2+(b)^2
If (EM<c) and (c<EP) then
pset(a,b),14
End if
Next b
Next a
End