X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=ADPARSER.PAS;h=e3146f488d1f4180d1c95d8a9f6fb82bf30a9c3a;hb=77254a05907a72ba7d1a1559241f1487a83bef97;hp=db823bcfed9013fcdabd9f7b31b7d9af960c9fb6;hpb=c039746d502a489764cf82d37fdb6e8285714e77;p=beyond-jp%2Fbeyond-jp.git

diff --git a/ADPARSER.PAS b/ADPARSER.PAS
index db823bc..e3146f4 100644
--- 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('‚¨‚Á‚Æ‚Æ!')
    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('u',Word,'v‚Æ‚¢‚¤Œ¾—t‚Í‚í‚©‚ç‚È‚¢B');
      'b'  :begin
             if pos(' ',Word)>0 then delete(Word,pos(' ',Word),9);
             writeln('You can''t use the word ''',Word,''' here.')