Check for mandatory terminal window size and fail if it's not

diff --git a/src/ADPAR.PAS b/src/ADPAR.PAS
index 7d0967b6f9900859c049993297ce0d868304048c..00f8b5678722ee9fe030e973148c2b43a905d0be 100644 (file)
--- a/src/ADPAR.PAS
+++ b/src/ADPAR.PAS
@@ -78,11 +78,11 @@ procedure init_windows;
   lang:=upcase(GetEnvironmentVariable('LANG'));  \r
   UTF8Scr:= (Pos('.UTF-8', lang) > 0) or (Pos('.UTF8', lang) > 0);\r
   { Check min req col & rows}\r
   lang:=upcase(GetEnvironmentVariable('LANG'));  \r
   UTF8Scr:= (Pos('.UTF-8', lang) > 0) or (Pos('.UTF8', lang) > 0);\r
   { Check min req col & rows}\r

-  if nCols(stdscr) < 80 then begin\r
+  if nCols(stdscr) <> 80 then begin\r

    writeln('You must have 80 character columns');\r
    Halt;\r
   end;\r
    writeln('You must have 80 character columns');\r
    Halt;\r
   end;\r

-  if nRows(stdscr) < 25 then begin\r
+  if nRows(stdscr) <> 25 then begin\r

    writeln('You must have 25 character rows');\r
    Halt;\r
   end;\r
    writeln('You must have 25 character rows');\r
    Halt;\r
   end;\r