また全ソースが短いのに汚いし…

> 　 mes "正方形の一辺の長さを入力してください"
> 　 input a
> 　 objsize 200,30
> 　 button "表示する!",*b
> 　 stop
> *b
> 　 mes "一辺の長さが"
> 　 mes a
> 　 mes "の正方形の面積は"
> 　 mes a*a
> 　 mes "です。"
> 　 stop
> 　 end