From 7a3b3a7c698a288339fd11d843c1919d0aa34b3a Mon Sep 17 00:00:00 2001
From: David Lee <davidly_lee@hotmail.com>
Date: Sat, 6 Jul 2024 10:00:38 -0700
Subject: [PATCH] linux build and fix typo

---
 RHA (Minisystems) ALGOL v55/TTT.ALG | 1 -
 RHA (Minisystems) ALGOL v55/m.sh    | 6 ++++++
 2 files changed, 6 insertions(+), 1 deletion(-)
 create mode 100644 RHA (Minisystems) ALGOL v55/m.sh

diff --git a/RHA (Minisystems) ALGOL v55/TTT.ALG b/RHA (Minisystems) ALGOL v55/TTT.ALG
index 6339947..6b5fd30 100644
--- a/RHA (Minisystems) ALGOL v55/TTT.ALG	
+++ b/RHA (Minisystems) ALGOL v55/TTT.ALG	
@@ -137,7 +137,6 @@ BEGIN
     movecount := movecount + 1;
 
     IF depth >= 4 THEN BEGIN
-comment winner2 is faster than winner        
         p := winner2( move );
         IF p # 0 THEN BEGIN
             IF p = 1 THEN value := 6
diff --git a/RHA (Minisystems) ALGOL v55/m.sh b/RHA (Minisystems) ALGOL v55/m.sh
new file mode 100644
index 0000000..ea30f55
--- /dev/null
+++ b/RHA (Minisystems) ALGOL v55/m.sh	
@@ -0,0 +1,6 @@
+str=$(tr '[a-z]' '[A-Z]' <<< $1)
+
+rm $str.OBJ 2>/dev/null
+
+ntvdm -r:. -u algol $str
+ntvdm -r:. -u -c -p arun $str.OBJ