何故何十行も必要なんですか？ 同じ処理を何度も実行するならfor,def,spfunc,bgfunc,gosubなどが使えますよ