From 08df9e8374e99408804b471ded07c9d5aac69e28 Mon Sep 17 00:00:00 2001
From: David Knaack <davidknaack@gmail.com>
Date: Sun, 2 Apr 2017 17:44:41 -0500
Subject: [PATCH] compiler flags for freepascal compiler

---
 MIU.PAS | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/MIU.PAS b/MIU.PAS
index 497d932..5cb3261 100644
--- a/MIU.PAS
+++ b/MIU.PAS
@@ -27,6 +27,9 @@
       2) WRITE A STRING AND A RULE NUMBER AND THE COMPUTER WILL GIVE THE
       STRING THAT WILL BE THE OUTCOME OF ISSUING THAT RULE ON THAT STRING.
 }
+{$IFDEF FPC}
+   {$MODE TP}
+{$ENDIF}
 
 PROGRAM MIT;
 
@@ -382,4 +385,3 @@ L:   GOTOXY(1,25);
      IF SEL='1' THEN XtoY ELSE IF SEL='2' THEN XbyY ELSE GOTO L;
 END.
 
-
\ No newline at end of file