From 88c971eb16cbde9d4b344963b90f1b4ed06ee1db Mon Sep 17 00:00:00 2001
From: Rick Parrish <github@rick.parrish>
Date: Thu, 7 Feb 2013 13:55:11 -0500
Subject: [PATCH] Now everything compiles

---
 README.md           |  2 +-
 SOURCE/RENEMAIL.PAS | 16 ++++++++++++++++
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index c24703e..a9a71c6 100644
--- a/README.md
+++ b/README.md
@@ -13,7 +13,6 @@ Ported to Win32 by Rick Parrish<br />
 
 TODO list:<br />
 <ul>
-  <li>IFDEF out anything that doesn't compile and make a WIN32 placeholder that does a "WriteLn('REETODO UNIT FUNCTION'); Halt;" (then you can grep the executables for REETODO to see which REETODOs actually need to be implemented)</li>
   <li>IFDEF out any ASM code blocks and handle the same as above</li>
   <li>WORD in RECORD to SMALLWORD</li>
   <li>INTEGER in RECORD to SMALLINT</li>
@@ -27,4 +26,5 @@ TODO list:<br />
 
 Completed list<br />
 <ul>
+  <li>IFDEF out anything that doesn't compile and make a WIN32 placeholder that does a "WriteLn('REETODO UNIT FUNCTION'); Halt;" (then you can grep the executables for REETODO to see which REETODOs actually need to be implemented)</li>
 </ul>
diff --git a/SOURCE/RENEMAIL.PAS b/SOURCE/RENEMAIL.PAS
index 40d5373..1efc988 100644
--- a/SOURCE/RENEMAIL.PAS
+++ b/SOURCE/RENEMAIL.PAS
@@ -2,7 +2,9 @@
 {$I DEFINES.INC}
 {$ENDIF}
 
+{$IFDEF MSDOS}
 {$M 49152,0,65536}
+{$ENDIF}
 {$A+,I-,E-,F+}
 
 PROGRAM ReneMail;
@@ -80,7 +82,9 @@ VAR
 
   FidoMsgHdr: FidoRecordType;
 
+{$IFDEF MSDOS}
   Regs: Registers;
+{$ENDIF}
 
   DirInfo: SearchRec;
 
@@ -842,11 +846,16 @@ BEGIN
       FCB[1] := Chr(Ord(MemMsgPath[1]) - 64)
     ELSE
       FCB[1] := Chr(Ord(StartDir[1]) - 64);
+{$IFDEF MSDOS}
     Regs.DS := Seg(FCB);
     Regs.DX := Ofs(FCB);
     Regs.AX := $1300;
     MSDOS(Regs);
     Purged := (Lo(Regs.AX) = 0);
+{$ENDIF}
+{$IFDEF WIN32}
+  WriteLn('REETODO RENEMAIL PurgeDir'); Halt;
+{$ENDIF}
   END
   ELSE
   BEGIN
@@ -1679,7 +1688,14 @@ BEGIN
       END;
 
       IF (IsNetMail) THEN
+{$IFDEF MSDOS}
         FidoMsgHdr.Attribute := Word(RGMsgHdr.NetAttribute)
+{$ENDIF}
+{$IFDEF WIN32}
+BEGIN
+  WriteLn('REETODO RENEMAIL Scan'); Halt;
+END
+{$ENDIF}
       ELSE IF (Prvt IN RGMsgHdr.Status) THEN
         FidoMsgHdr.Attribute := 257
       ELSE