diff --git a/Microsoft QuickPascal v1/m.bat b/Microsoft QuickPascal v1/m.bat
index 7dd8bad..f540357 100644
--- a/Microsoft QuickPascal v1/m.bat	
+++ b/Microsoft QuickPascal v1/m.bat	
@@ -1,4 +1,4 @@
 @echo off
 setlocal
 
-ntvdm -r:. -t qpl %1.pas
+ntvdm -r:. qpl %1.pas
diff --git a/Microsoft QuickPascal v1/m.sh b/Microsoft QuickPascal v1/m.sh
new file mode 100644
index 0000000..206baca
--- /dev/null
+++ b/Microsoft QuickPascal v1/m.sh	
@@ -0,0 +1,7 @@
+str=$(tr '[a-z]' '[A-Z]' <<< $1)
+
+rm $str.EXE 2>/dev/null
+
+ntvdm -u -r:. qpl $str.pas
+
+ntvdm -r:. -u -p $str