X-Git-Url: https://jxself.org/git/?p=supernova.git;a=blobdiff_plain;f=src%2FADPAR.PAS;fp=src%2FADPAR.PAS;h=00f8b5678722ee9fe030e973148c2b43a905d0be;hp=7d0967b6f9900859c049993297ce0d868304048c;hb=dcdf2ef4ab0f04f0777a123eec4efcafefbcdd3d;hpb=49cc6aa3cf3162b66c76e0f9e004f7e3d73fb084 diff --git a/src/ADPAR.PAS b/src/ADPAR.PAS index 7d0967b..00f8b56 100644 --- a/src/ADPAR.PAS +++ b/src/ADPAR.PAS @@ -78,11 +78,11 @@ procedure init_windows; lang:=upcase(GetEnvironmentVariable('LANG')); UTF8Scr:= (Pos('.UTF-8', lang) > 0) or (Pos('.UTF8', lang) > 0); { Check min req col & rows} - if nCols(stdscr) < 80 then begin + if nCols(stdscr) <> 80 then begin writeln('You must have 80 character columns'); Halt; end; - if nRows(stdscr) < 25 then begin + if nRows(stdscr) <> 25 then begin writeln('You must have 25 character rows'); Halt; end;