Stubbed a DOSism.

icculus · Nov 18, 2000 · 0112902 · 0112902
1 parent c97d23e
commit 0112902
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/file2.pas b/file2.pas
@@ -27,6 +27,8 @@ procedure copyfile(var ok,nospace:boolean; showprog:boolean;
     src,dest:file;
 
   procedure dodate;
+  {rcg11172000 DOSism. Stubbed.}
+  {
   var r:registers;
       od,ot,ha:integer;
   begin
@@ -41,6 +43,10 @@ procedure copyfile(var ok,nospace:boolean; showprog:boolean;
       ax:=$3e00; bx:=ha; msdos(dos.registers(r));
     end;
   end;
+  }
+  begin
+     writeln('STUB: file2.pas; dodate()...');
+  end;
 
 begin
   ok:=TRUE; nospace:=FALSE;