訳を追加

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

diff --git a/ADPARSER.PAS b/ADPARSER.PAS
index 09939d9..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}