1 {//-------------------------------------------------------------------------}
\r
3 {Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
\r
5 {This file is part of Supernova. Supernova is free software; you can }
\r
6 {redistribute it and/or modify it under the terms of the GNU General Public }
\r
7 {License as published by the Free Software Foundation; either version 2 }
\r
8 {of the License, or (at your option) any later version. }
\r
10 {This program is distributed in the hope that it will be useful, }
\r
11 {but WITHOUT ANY WARRANTY; without even the implied warranty of }
\r
12 {MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }
\r
14 {See the GNU General Public License for more details. }
\r
16 {You should have received a copy of the GNU General Public License }
\r
17 {along with this program; if not, write to the Free Software }
\r
18 {Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.}
\r
20 {Original Source: 1990 Scott Miller }
\r
21 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
\r
23 {//-------------------------------------------------------------------------}
\r
24 program Install; { Used to add FILES=16 to a CONFIG.SYS file. }
\r
26 uses crt, dos, turbo3;
\r
34 TestStr :string[200];
\r
38 procedure Pause(X:integer);
\r
41 if X=1 then write('Press any key to continue . . .')
\r
42 else write('Press any key to end installation program . . .');
\r
43 read(kbd,CH);textcolor(15);writeln;
\r
47 textbackground(0);clrscr;textcolor(15);
\r
48 clrscr;with Result do begin ax:=$b00;bx:=$1;end;intr($10,result);
\r
49 gotoxy(25,2);writeln('SUPERNOVA INSTALLATION PROGRAM');
\r
50 gotoxy(25,3);writeln('------------------------------');writeln;
\r
53 writeln('NOTE: Hard disk users don''t need to install SUPERNOVA! Hit <Ctrl-C> to abort.');
\r
56 ('This program will prepare a "boot" disk for SUPERNOVA. The disk you wish');
\r
58 ('to make your "boot" disk MUST have DOS already on it (version 2.0 or higher.)');
\r
60 ('SUPERNOVA makes use of DOS file handles (explained in your DOS manual.)');
\r
62 ('Everytime you play SUPERNOVA you must use this "boot" disk--which you are in');
\r
64 ('the process of making--to power-on your computer.');writeln;
\r
65 writeln('This program will either:');
\r
67 ('* Create a CONFIG.SYS with the Files=16 DOS option,');
\r
69 ('* Add the Files=16 DOS option to a CONFIG.SYS file that is found on the disk,');
\r
71 ('* Modify a CONFIG.SYS file that already has the Files=# option in it.');
\r
72 writeln;textcolor(15);
\r
73 writeln('Insert the disk you wish to have installed for SUPERNOVA.');Pause(1);
\r
74 gotoxy(1,wherey-1);delline;
\r
76 assign(ComTest,'command.com');
\r
81 begin textbackground(0);textcolor(15);close(ComTest);
\r
82 writeln('This disk does not have the DOS system on it (it''s missing COMMAND.COM).',^g);
\r
83 write('You must install a disk that already has DOS, please find another disk...');
\r
84 textbackground(0);textcolor(7);
\r
85 writeln;writeln;Pause(1);goto JUMP;
\r
88 write('Searching for CONFIG.SYS...');
\r
89 assign(Fil,'config.sys');
\r
93 if IOResult<>0 then { config.sys file needs to be created! }
\r
95 writeln('not found...will create one for you!');
\r
97 writeln(Fil,'Files=16');
\r
100 else { config.sys file exists already! }
\r
102 writeln('found...will now modify it correctly.');
\r
105 writeln(Fil,'Files=16');
\r
109 writeln('Your CONFIG.SYS file is now configured correctly for SUPERNOVA.');
\r
111 textbackground(0);textcolor(15);
\r
112 clrscr;with Result do begin ax:=$b00;bx:=$1;end;intr($10,result);
\r
113 gotoxy(25,3);writeln('SUPERNOVA INSTALLATION PROGRAM');
\r
114 gotoxy(25,4);writeln('------------------------------');writeln;
\r
118 ('From now on you MUST use this disk (or any other "boot" disk you make) when');
\r
120 ('you want to play SUPERNOVA, or the game will crash after you load it!');
\r
123 ('Simply turn on your computer with this "boot" disk in drive A: when you want');
\r
125 ('to play SUPERNOVA, then after you see the DOS prompt A> type in NOVA and');
\r
127 ('press <enter>.');writeln;
\r
129 ('Before you can play SUPERNOVA you must turn your computer off, then follow');
\r
131 ('the above instructions.');
\r
133 writeln('REMEMBER: If you boot from a hard disk you don''t need to make a "boot" disk.');
\r
136 textbackground(0);textcolor(7);
\r
137 clrscr;with Result do begin ax:=$b00;bx:=$0;end;intr($10,result);
\r