str=$(tr '[a-z]' '[A-Z]' <<< $1)
rm $str.OBJ 2>/dev/null
rm $str.COM 2>/dev/null
ntvdm -u tcc -f -mm -G -O -DDOSTIME -Z -N- $str.c
ntvdm -c -p $str