Check for mandatory terminal window size and fail if it's not
[supernova.git] / src / INSTALL.PAS
index 4f84e07f97a181d3d806fb046d951729fe8abf29..333de3c882a220762b1cfc2927a61d94731ca5b5 100644 (file)
@@ -1,10 +1,32 @@
 {//-------------------------------------------------------------------------}\r
 {/*                                                                         }\r
+{Copyright (C) 2014 Jason Self <j@jxself.org>                               }\r
+{                                                                           }\r
+{This file is free software: you may copy, redistribute and/or modify it    }\r
+{under the terms of the GNU Affero General Public License as published by   }\r
+{the Free Software Foundation, either version 3 of the License, or (at your }\r
+{option) any later version.                                                 }\r
+{                                                                           }\r
+{This file is distributed in the hope that it will be useful, but WITHOUT   }\r
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or      }\r
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}\r
+{for more details.                                                          }\r
+{                                                                           }\r
+{You should have received a copy of the GNU Affero General Public License   }\r
+{along with this program; if not, see https://gnu.org/licenses or write to: }\r
+{  Free Software Foundation, Inc.                                           }\r
+{  51 Franklin Street, Fifth Floor                                          }\r
+{  Boston, MA 02110-1301                                                    }\r
+{  USA                                                                      }\r
+{                                                                           }\r
+{This file incorporates work covered by the following copyright and         }\r
+{permission notice:                                                         }\r
+{                                                                           }\r
 {Copyright (C) 1990, 2009 - Apogee Software, Ltd.                           }\r
 {                                                                           }\r
 {This file is part of Supernova.  Supernova is free software; you can       }\r
 {redistribute it and/or modify it under the terms of the GNU General Public }\r
-{License as published by the Free Software Foundation; either version 2     }\r
+{License as published by the Free Software Foundation; either version 3     }\r
 {of the License, or (at your option) any later version.                     }\r
 {                                                                           }\r
 {This program is distributed in the hope that it will be useful,            }\r
 {See the GNU General Public License for more details.                       }\r
 {                                                                           }\r
 {You should have received a copy of the GNU General Public License          }\r
-{along with this program; if not, write to the Free Software                }\r
-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.}\r
+{along with this program; if not, see https://gnu.org/licenses or write to: }\r
+{  Free Software Foundation, Inc.                                           }\r
+{  51 Franklin Street, Fifth Floor                                          }\r
+{  Boston, MA 02110-1301                                                    }\r
+{  USA                                                                      }\r
 {                                                                           }\r
 {Original Source: 1990 Scott Miller                                         }\r
 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
@@ -23,7 +48,7 @@
 {//-------------------------------------------------------------------------}\r
 program Install;  { Used to add FILES=16 to a CONFIG.SYS file. }\r
 \r
-uses crt, dos, turbo3;\r
+uses crt, dos;\r
 \r
 {$V-}\r
 label JUMP;\r
@@ -40,7 +65,7 @@ procedure Pause(X:integer);
   textcolor(7);\r
   if X=1 then write('Press any key to continue . . .')\r
   else write('Press any key to end installation program . . .');\r
-  read(kbd,CH);textcolor(15);writeln;\r
+  CH:=readkey;textcolor(15);writeln;\r
  end;\r
 \r
 BEGIN JUMP:\r
@@ -137,4 +162,4 @@ textbackground(0);textcolor(7);
 clrscr;with Result do begin ax:=$b00;bx:=$0;end;intr($10,result);\r
 \r
 \r
-END.\1a
\ No newline at end of file
+END.\1a\r