1coba1, Тока что сделал на бейсике, но тороплюсь. Позже пришлю.