From 0112902e54cf73c0ded24a67c128015be6b07fb1 Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Sat, 18 Nov 2000 06:33:48 +0000
Subject: [PATCH] Stubbed a DOSism.

---
 file2.pas | 6 ++++++
 1 file changed, 6 insertions(+)

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;