Stubbed a DOSism.
authorRyan C. Gordon <icculus@icculus.org>
Sat, 18 Nov 2000 06:33:48 +0000
changeset 2 3a81231e7b41
parent 1 132a7d1e2daa
child 3 467226c16871
Stubbed a DOSism.
file2.pas
--- a/file2.pas	Sat Nov 18 00:33:00 2000 +0000
+++ b/file2.pas	Sat Nov 18 06:33:48 2000 +0000
@@ -27,6 +27,8 @@
     src,dest:file;
 
   procedure dodate;
+  {rcg11172000 DOSism. Stubbed.}
+  {
   var r:registers;
       od,ot,ha:integer;
   begin
@@ -41,6 +43,10 @@
       ax:=$3e00; bx:=ha; msdos(dos.registers(r));
     end;
   end;
+  }
+  begin
+     writeln('STUB: file2.pas; dodate()...');
+  end;
 
 begin
   ok:=TRUE; nospace:=FALSE;