из PascalABC в Turbo Pascal, переделать код. Опции

[noskovgleb]

Сделал программу в PascalABC программу с графикой т.к. в нормальном Паскале в графическом режиме паскаль отключался как можно переделать правильно на Турбо Паскаль. Сам немогу сделать т.к. неподключаеться ничего и неработает.

{Программа  ресует рекалмный плакат с бегущим текстом Hello World шрифтом TriplexFont}
program mygraph;
uses crt,graphABC;
var x,y : integer;
     s  : string;
     k  : char;
 procedure vpravo;
 Begin
   for x:=10 to 170 do
       begin
         if keypressed then halt;
         Rectangle(10,10,400,80);
         TextOut(x,34, 'Hello World');
         delay(100);
       end;
 End;
 procedure vlevo;
 Begin
   for x:=170 downto 11 do
       begin
         if keypressed then halt;
         Rectangle(10,10,400,80);
         TextOut(x,34, 'Hello World');
         delay(100);
       end;
 End;

BEGIN

SetFontSize(10);
SetFontColor(clred);
SetFontName('TriplexFont');



 vpravo;
 vlevo;

END.

Сообщение отредактировано: noskovgleb - 2.12.2009 18:03

[noskovgleb]

Оу, спасиб большое, и не пойму что с паскалем в граф режиме твориться, спасибо большое.