BASICの事を聞きたいのですが・・・。

このエントリーをはてなブックマークに追加
381
10 cls : b=-1
20 a=int(rnd(1)*101):d=0
30 while a<>b
40 input "数当てゲーム!! 1から100までの数を入力して下さい。",b
50 if a>b then print "その数より大きいです"
60 if a<b then print "その数より小さいです"
65 d=d+1
70 wend
80 cls
90 print d;"回目に当たりました"
100 if d<5 then print ""
110 if d<10 then print ""
120 if d<12 then print ""
130 if d<16 then print ""
140 if d<20 then print ""
150 print "もう一回やりますか?1か2で答えて下さい"
160 input "1=yes 2=no",c
170 if c=1 goto 10
180 if c=2 then end

今作ってみたんですが・・・どうでしょうか?