英語の入力ができない問題の修正

[beyond-jp/beyond-jp.git] / COMMANDS.PAS

diff --git a/COMMANDS.PAS b/COMMANDS.PAS
index 31644ad..15bc943 100644 (file)
--- a/COMMANDS.PAS
+++ b/COMMANDS.PAS
@@ -552,21 +552,19 @@ procedure Initialize;
    {                      *** SHAREWARE SCREEN ***                            }
 
    textcolor(15);
-   writeln('Please note that Beyond the Titanic is a SHAREWARE game.');
    writeln;
-   textcolor(7);
-   writeln('This game has been placed in the public domain for your enjoyment.');
-   writeln;
-   writeln('If you like the game the author (Scott Miller) asks that you please');
-   writeln('contribute $5 or $10 (your discretion) to him.  This minimal payment');
-   writeln('will help compensent the author for the year of work that went into');
-   writeln('Beyond the Titanic.  It will also encourage the author to make new and');
-   writeln('better games, like Supernova and Kingdom of Kroz, both of which are');
-   writeln('also shareware games recently released.');
+   writeln('Beyond the Titanic\82Í\83V\83F\83A\83E\83F\83A\82Å\82·\81B');
    writeln;
-   writeln('This fee also registers the payer for telephone support and clues.');
+   textcolor(7);
+   writeln('\82±\82Ì\83Q\81[\83\80\82ÍGPL2\83I\81[\83v\83\93\83\\81[\83X\83\\83t\83g\83E\83F\83A\82É\82È\82è\82Ü\82µ\82½\81B');
    writeln;writeln;
-   writeln('Please make checks payable to Scott Miller.');
+   writeln('\82à\82µ\82±\82Ì\83Q\81[\83\80\82ð\8ay\82µ\82ñ\82¾\82È\82ç\82Î\81A\8dì\8eÒ(Scott Miller)\82É$5\82©$10\82ð\82¨\8ex\95¥\82¢\82­\82¾\82³\82¢\81B');
+   writeln('\82±\82Ì\82í\82¸\82©\82È\97¿\8bà\82Í\8dì\8eÒ\82ÌBeyond the Titanic\82Ì\90§\8dì\82Ö\82Ì\91Î\89¿\82Æ\82È\82è\82Ü\82·\81B\82³\82ç\82É\8dÅ\8bß');
+   writeln('\94­\95\\82³\82ê\82½\83V\83F\83A\83E\83F\83A\82ÌSupernova\82âKingdom of Kroz\82Ì\82æ\82¤\82È\90V\8dì\82É\82à\82Â\82È\82ª\82è\82Ü\82·\81B');
+   writeln;
+   writeln('\82Ü\82½\81A\82±\82Ì\97¿\8bà\82Í\93d\98b\83T\83|\81[\83g\8cW\82Ö\82Ì\92À\8bà\82É\82à\82È\82è\82Ü\82·\81B');
+   writeln;writeln;writeln;
+   writeln('\8ex\95¥\90æ\82ÍScott Miller\82Å\82¨\8aè\82¢\82µ\82Ü\82·\81B');
    writeln;
    textcolor(15);
    writeln('        Scott Miller           (214) 240-0614');
@@ -574,7 +572,7 @@ procedure Initialize;
    writeln('        Garland, TX  75043');
    writeln;
    textcolor(7);
-   writeln('Thanks, enjoy the game...');
+   writeln('\82 \82è\82ª\82Æ\82¤\82²\82´\82¢\82Ü\82µ\82½\81B\83Q\81[\83\80\82ð\82¨\8ay\82µ\82Ý\82­\82¾\82³\82¢\81c');
    gotoxy(23,25);
    delay(3000);
    while keypressed do readkey;