* fixed AssignVideoBuf

git-svn-id: trunk@3564 -

rtl/inc/video.inc

@@ -114,7 +114,7 @@ end;
 Procedure AssignVideoBuf (OldCols, OldRows : Word);
 
 var NewVideoBuf,NewOldVideoBuf:PVideoBuf;
-    C,R,old_rowstart,new_rowstart:word;
+    old_rowstart,new_rowstart:word;
 
 begin
   VideoBufSize:=ScreenWidth*ScreenHeight*sizeof(TVideoCell);
@@ -130,8 +130,8 @@ begin
       old_rowstart:=0;
       new_rowstart:=0;
       repeat
-        move(VideoBuf^[old_rowstart],NewVideoBuf^[new_rowstart],C*sizeof(TVideoCell));
-        move(OldVideoBuf^[old_rowstart],NewOldVideoBuf^[new_rowstart],C*sizeof(TVideoCell));
+        move(VideoBuf^[old_rowstart],NewVideoBuf^[new_rowstart],OldCols*sizeof(TVideoCell));
+        move(OldVideoBuf^[old_rowstart],NewOldVideoBuf^[new_rowstart],OldCols*sizeof(TVideoCell));
         inc(old_rowstart,OldCols);
         inc(new_rowstart,ScreenWidth);
         dec(OldRows);