X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2FINSTALL.PAS;h=333de3c882a220762b1cfc2927a61d94731ca5b5;hb=HEAD;hp=2a83a0ce6e0fef0ec1f00cca861a2fe593a5c96c;hpb=d954bdd52e5461f890c60c3b3834d9224f52f838;p=supernova.git diff --git a/src/INSTALL.PAS b/src/INSTALL.PAS index 2a83a0c..333de3c 100644 --- a/src/INSTALL.PAS +++ b/src/INSTALL.PAS @@ -1,5 +1,27 @@ {//-------------------------------------------------------------------------} {/* } +{Copyright (C) 2014 Jason Self } +{ } +{This file is free software: you may copy, redistribute and/or modify it } +{under the terms of the GNU Affero General Public License as published by } +{the Free Software Foundation, either version 3 of the License, or (at your } +{option) any later version. } +{ } +{This file is distributed in the hope that it will be useful, but WITHOUT } +{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or } +{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License} +{for more details. } +{ } +{You should have received a copy of the GNU Affero General Public License } +{along with this program; if not, see https://gnu.org/licenses or write to: } +{ Free Software Foundation, Inc. } +{ 51 Franklin Street, Fifth Floor } +{ Boston, MA 02110-1301 } +{ USA } +{ } +{This file incorporates work covered by the following copyright and } +{permission notice: } +{ } {Copyright (C) 1990, 2009 - Apogee Software, Ltd. } { } {This file is part of Supernova. Supernova is free software; you can } @@ -14,8 +36,11 @@ {See the GNU General Public License for more details. } { } {You should have received a copy of the GNU General Public License } -{along with this program; if not, write to the Free Software } -{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.} +{along with this program; if not, see https://gnu.org/licenses or write to: } +{ Free Software Foundation, Inc. } +{ 51 Franklin Street, Fifth Floor } +{ Boston, MA 02110-1301 } +{ USA } { } {Original Source: 1990 Scott Miller } {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. } @@ -23,7 +48,7 @@ {//-------------------------------------------------------------------------} program Install; { Used to add FILES=16 to a CONFIG.SYS file. } -uses crt, dos, turbo3; +uses crt, dos; {$V-} label JUMP; @@ -40,7 +65,7 @@ procedure Pause(X:integer); textcolor(7); if X=1 then write('Press any key to continue . . .') else write('Press any key to end installation program . . .'); - read(kbd,CH);textcolor(15);writeln; + CH:=readkey;textcolor(15);writeln; end; BEGIN JUMP: