diff options
| author | B Stack <bgstack15@gmail.com> | 2019-03-31 16:46:52 -0400 |
|---|---|---|
| committer | B Stack <bgstack15@gmail.com> | 2019-03-31 16:46:52 -0400 |
| commit | c5ddc29e544066f0acaf930b7f11b25204d614ce (patch) | |
| tree | e79c3c18c7c2aaeb8c0fbe5d2a086fe71351af48 | |
| parent | add notes and todos (diff) | |
| download | beyond-the-titanic-c5ddc29e544066f0acaf930b7f11b25204d614ce.tar.gz beyond-the-titanic-c5ddc29e544066f0acaf930b7f11b25204d614ce.tar.bz2 beyond-the-titanic-c5ddc29e544066f0acaf930b7f11b25204d614ce.zip | |
use color by default
| -rw-r--r-- | src/COMMANDS.PAS | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/COMMANDS.PAS b/src/COMMANDS.PAS index de71549..e062abf 100644 --- a/src/COMMANDS.PAS +++ b/src/COMMANDS.PAS @@ -572,7 +572,7 @@ procedure Initialize; writeln('But first, two simple questions:'); gotoxy(1,4);write('Are you using a COLOR screen (Y/N)? '); nosound; play(72,80,45); - flag:='N'; play(2500,2490,6); + flag:='Y'; play(2500,2490,6); m0:=20;m1:=14;m2:=11;m3:=4;m4:=15;m5:=28;m6:=1;m7:=4;m8:=10;m9:=10; if upcase(flag)='N' then begin |