home *** CD-ROM | disk | FTP | other *** search
- procedure configstuff;
- { procedure essentially from the net }
- var
- line : string;
- begin
- writeln('Eventually, there will be several configuration options available.');
- writeln('First is the option of monochrome -- if you load GRAPHICS.COM');
- writeln('your print screen will work. (Also good for laptop VGA screens.');
- write('Do you want a Monochrome display? [N] ');
- readln( line );
- mono := not ( (line='') or (upcase(line[1])='N'));
- writeln('Port displays can have rather full lines: you can switch to');
- writeln('compact codes to get more per line.');
- write('Do you want compact sector description codes? [N] ');
- readln( line );
- verbose := (line='') or (upcase(line[1])='N');
- end;