訳を追加

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

diff --git a/ADPARSER.PAS b/ADPARSER.PAS
index db823bc..e3146f4 100644 (file)
--- a/ADPARSER.PAS
+++ b/ADPARSER.PAS
@@ -79,7 +79,7 @@ procedure Format(var input : Str80);
     while(length(input)>0)and(input[1]=' ')do delete(input,1,1);
     while(length(input)>0)and(input[length(input)]=' ')do
      delete(input,length(input),1);
-    if(input='')or(input[1]='.')then writeln('Whoops!')
+    if(input='')or(input[1]='.')then writeln('\82¨\82Á\82Æ\82Æ!')
    end;  {of Format}
 
 
@@ -339,7 +339,7 @@ procedure Check(var SepWord : Str16);
                   ' inside by under using near over onto top below '+
                   ' from away want across ')>0 then begin
              write('The word ''',Word);RL(393)end
-           else writeln('I don''t understand the word ''',Word,'.''');
+           else writeln('\81u',Word,'\81v\82Æ\82¢\82¤\8c¾\97t\82Í\82í\82©\82ç\82È\82¢\81B');
      'b'  :begin
             if pos(' ',Word)>0 then delete(Word,pos(' ',Word),9);
             writeln('You can''t use the word ''',Word,''' here.')