Common renamed APIComm to avoid problems with free vision

api/test/testfsys.pas

@@ -6,7 +6,7 @@ program TestFS;
 {$I platform.inc}
 
 uses
-  Common,
+  ApiComm,
   Filesys;
 
 const
@@ -129,10 +129,10 @@ begin
         end;
 
     end;
-    if (Common.GetErrorCode = errOK)
+    if (ApiComm.GetErrorCode = errOK)
       then WriteLn (' <NO ERROR>')
       else WriteLn (' <ERROR>');
     inc (i);
   until (i = Passes);
   WriteLn ('---');
-end.
+end.

api/test/testvid2.pas

@@ -1,5 +1,5 @@
 uses
-  Common, Video;
+  ApiComm, Video;
 
 var
   I, J: CPUInt;
@@ -47,4 +47,4 @@ begin
     UpdateScreen(False);
   until False; {KeyPressed;}
   DoneVideo;
-end.
+end.