diff --git a/Zortech C++ v30r1/code/e.c b/Zortech C++ v30r1/CODE/E.C
similarity index 100%
rename from Zortech C++ v30r1/code/e.c
rename to Zortech C++ v30r1/CODE/E.C
diff --git a/Zortech C++ v30r1/code/SIEVE.C b/Zortech C++ v30r1/CODE/SIEVE.C
similarity index 100%
rename from Zortech C++ v30r1/code/SIEVE.C
rename to Zortech C++ v30r1/CODE/SIEVE.C
diff --git a/Zortech C++ v30r1/code/TM.C b/Zortech C++ v30r1/CODE/TM.C
similarity index 100%
rename from Zortech C++ v30r1/code/TM.C
rename to Zortech C++ v30r1/CODE/TM.C
diff --git a/Zortech C++ v30r1/code/TTT.C b/Zortech C++ v30r1/CODE/TTT.C
similarity index 100%
rename from Zortech C++ v30r1/code/TTT.C
rename to Zortech C++ v30r1/CODE/TTT.C
diff --git a/Zortech C++ v30r1/code/m.bat b/Zortech C++ v30r1/CODE/m.bat
similarity index 100%
rename from Zortech C++ v30r1/code/m.bat
rename to Zortech C++ v30r1/CODE/m.bat
diff --git a/Zortech C++ v30r1/CODE/m.sh b/Zortech C++ v30r1/CODE/m.sh
new file mode 100644
index 0000000..4ea52fb
--- /dev/null
+++ b/Zortech C++ v30r1/CODE/m.sh	
@@ -0,0 +1,13 @@
+str=$(tr '[a-z]' '[A-Z]' <<< $1)
+
+rm $str.EXE 2>/dev/null
+rm $str.MAP 2>/dev/null
+rm $str.OBJ 2>/dev/null
+
+ntvdm -u -r:.. -e:path=c:\\bin ../bin/ztc $str.c -Ic:\\include -ms -c -DDOSTIME 
+ntvdm -u -r:.. -e:path=c:\\bin,lib=c:\\lib ../bin/blink ct+$str, $str, $str, ZLs.LIB /noi \;
+
+rm $str.MAP 2>/dev/null
+rm $str.OBJ 2>/dev/null
+
+ntvdm -r:. -u -c -p $str