UBASIC
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNG遊びました。
横に伸び縮みするアニメにしてみたら結構処理速度が速くて
驚きました。PC9801やMSXの時代からすると今のWindowsマシンは
化け物ですね。
でも無限ループからブレークする方法とeditから出る方法が
わからなくて強制終了の連続です。
0002デフォルトの名無しさん
NGNG0003ひろゆ子５号
NGNG0004UBASIC
NGNGhttp://www.rkmath.rikkyo.ac.jp/~kida/ubasic.htm
0005BASICER
NGNG10 W=70:Ww=90:Frag=0
20 FOR Ii=0 TO 700
30 circle (320,200),20
40 line (320,60)-(320,340)
50 for i=0 to 360
60 R=I/180*3.141592653
70 x=320+W*sin(R)
80 y=200+140*cos(R)
90 if L=30 then L=0:X1=320+Ww*sin(R):y1=200+180*cos(R):line(x,y)-(x1,y1)
100 L=L+1
110 line (x,y)-(x,y)
120 next I
130 cls
140 if Frag=0 then W=W+1:Ww=Ww+1 else if Frag=1 then W=W-1:Ww=Ww-1
150 if W>100 then Frag=1
160 if W<40 then Frag=0
170 Next Ii
180 print "だからこうなっただよ！！”
0006デフォルトの名無しさん
NGNG/ このスレは無事に /
/ 終了いたしました /
/ ありがとうございました /
/ /
/ モナーより /
/￣￣￣￣￣￣￣￣￣￣￣/
∧＿∧ / /∧＿∧
（ ^∀^） / /（^∀^ ）
（ ）つ ⊂（ ）
｜ ｜ ｜ ｜ ｜ ｜
（_＿）＿） （＿（＿_）
0007デフォルトの名無しさん
NGNGﾂﾏﾗｿ
0008デフォルトの名無しさん
NGNG0009BASICER
NGNGコンパイルしてみたが、どれもまともにCompileしない！！
カーニハン・リッチー以降の凡人どもがあれこれ色々C++でルールを
作り過ぎたのが原因！！
頭に来た！！
俺は、BASICに帰る！！
0010デフォルトの名無しさん
NGNG糞スレageるなｺﾞﾙｧ!
00111
NGNG（ ）
（､ , ,）
|| |‘
／￣￣￣￣＼
ｌ ∨∨∨∨∨ ｌ
| ＼()／ |
(|ｰ=･=- ｰ=･=-|) ／￣￣￣￣￣￣￣￣￣￣￣
| ⊂⊃ | ／ おれはきぶんをこわした！
| .| ⌒ ＼.ｌ／ ⌒ | | ＜
／ |. ｌ ＋ ＋ ＋ ＋ ﾉ |＼ ＼
／ ＼＿＿＿＿＿／ ＼ ＼＿＿＿＿＿＿＿＿＿＿＿
／ ＿ ＼
/／￣￣(＿） |
|ししｌ＿ｌ （ | |
|（＿⊂､＿_） | |
＼_＿＿_/ | |
0012デフォルトの名無しさん
NGNG0013デフォルトの名無しさん
NGNG0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています