scrollto.pas

 {ScrollTo.PAS}
 
 { Пример программы для процедуры ScrollTo }
 { Компилировать в режиме Windows }
 
 Uses WinCrt;
 
 Begin
  GotoXY(1, 10);
  WriteLn('Привет!');
  WriteLn('Введите строку и нажмите <ENTER>.');
  ReadLn;
  ScrollTo(0, 10);
 End.