diff --git a/file2.pas b/file2.pas
index bed1358..9d32d8a 100644
--- a/file2.pas
+++ b/file2.pas
@@ -27,6 +27,8 @@ var buffer:array[1..16384] of byte;
     src,dest:file;
 
   procedure dodate;
+  {rcg11172000 DOSism. Stubbed.}
+  {
   var r:registers;
       od,ot,ha:integer;
   begin
@@ -41,6 +43,10 @@ var buffer:array[1..16384] of byte;
       ax:=$3e00; bx:=ha; msdos(dos.registers(r));
     end;
   end;
+  }
+  begin
+     writeln('STUB: file2.pas; dodate()...');
+  end;
 
 begin
   ok:=TRUE; nospace:=FALSE;