BASICなんで方法は、いくらでも有りますが、一例。