diff --git a/Microsoft COBOL v21/m.bat b/Microsoft COBOL v21/m.bat index cdfc966..749d96c 100644 --- a/Microsoft COBOL v21/m.bat +++ b/Microsoft COBOL v21/m.bat @@ -1,7 +1,7 @@ del %1.obj 2>nul del %1.exe 2>nul -ntvdm -t -r:. -h -c -d cobol %1,%1,%1/D; +ntvdm -r:. -h -c -d cobol %1,%1,%1/D; ntvdm -c runcob %1 echo: diff --git a/Microsoft COBOL v21/m.sh b/Microsoft COBOL v21/m.sh new file mode 100644 index 0000000..f512496 --- /dev/null +++ b/Microsoft COBOL v21/m.sh @@ -0,0 +1,11 @@ +str=$(tr '[a-z]' '[A-Z]' <<< $1) + +rm $str.INT 2>/dev/null +rm $str.LST 2>/dev/null + +ntvdm -u -r:. -h -c -d COBOL $str,$str,$str/D\; + +rm $str.LST 2>/dev/null + +ntvdm -u -r:. -c RUNCOB $str +echo