samples/{wire3,poly3}.bas のリファクタリング