X-Git-Url: https://jxself.org/git/?p=supernova.git;a=blobdiff_plain;f=src%2FINSTALL.PAS;fp=src%2FINSTALL.PAS;h=333de3c882a220762b1cfc2927a61d94731ca5b5;hp=ee2e6143c5fbd4636915bad8bca4733a16aca9ed;hb=c39dca3ccc60c8967191a68325d59ef3fd293bae;hpb=1c5af91cf03243a3bdc9c5ff8d82e3afaf4ee571

diff --git a/src/INSTALL.PAS b/src/INSTALL.PAS
index ee2e614..333de3c 100644
--- a/src/INSTALL.PAS
+++ b/src/INSTALL.PAS
@@ -1,5 +1,27 @@
 {//-------------------------------------------------------------------------}
 {/*                                                                         }
+{Copyright (C) 2014 Jason Self <j@jxself.org>                               }
+{                                                                           }
+{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       }
@@ -26,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;
@@ -43,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: