There samples code, write with Turbo Pascal