こんな感じでも・・・ ていうか、BASICなので、方法は、いくらでもあるかと