修正

diff --git a/README.md b/README.md
index a2c14a5..13a9927 100644 (file)
--- a/README.md
+++ b/README.md
@@ -34,3 +34,11 @@ Beyond the Titanicは80x25ターミナルコンソールが最も適していま
 
 
 著者: Samuel Brian
+
+
+## 日本語版の注意点
+
+* Linuxでプレーする場合は, 端末エミュレータの文字コードをShiftJISに設定してく
+  ださい。
+* Windowsでビルドする場合は, crt.pas.win32のファイル名をcrt.pasに名前を変えて
+  からMake-Win32.batまたはMake-Win64.batを実行してください。

diff --git a/TRANS.PAS b/TRANS.PAS
index 4630537..537eb16 100644 (file)
--- a/TRANS.PAS
+++ b/TRANS.PAS
@@ -204,6 +204,7 @@ begin
 end;
 
 { Convert full width numbers/alphabets to half width }
+const hchrs : Str80 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
 procedure FullToHalf;
 var i, c : integer;
 begin
@@ -220,7 +221,7 @@ begin
       else
       begin
         Delete(Line, i, 2);
-        Insert('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'[Trunc(c / 2) + 1], Line, i);
+        Insert(hchrs[Trunc(c / 2) + 1], Line, i);
         i := i + 1;
       end;
     end;

diff --git a/WORDLIST.PAS b/WORDLIST.PAS
index ca2dc07..8b98af9 100644 (file)
--- a/WORDLIST.PAS
+++ b/WORDLIST.PAS
@@ -35,7 +35,7 @@ procedure Assign1;
 begin
 for x:= 0 to VMax do for y:= 1 to 5 do v[x,y]:=Q;
 v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up';
-d[0,1]:='\82ð\8dU\8c\82';d[0,2]:='\82ð\8eE';d[0,3]:='\82ð\93|';
+d[0,1]:='\8dU\8c\82';d[0,2]:='\8eE';d[0,3]:='\93|';
 prep[0]:='with';
 v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d';
 d[1,1]:='\8bL\8fq';

diff --git a/crt.pas b/crt.pas.win32
similarity index 99%
rename from crt.pas
rename to crt.pas.win32
index 40e8b69..8df1476 100644 (file)
--- a/crt.pas
+++ b/crt.pas.win32
@@ -1,5 +1,3 @@
-{$ifdef WIN32}
-
 unit crt;
 
 interface
@@ -387,10 +385,8 @@ finalization
        TextColor(7);
 end.
 
-{$endif}
-
 {
-       Copyright 2019 maruhiro
+       Copyright 2020 maruhiro
        All rights reserved. 
 
        Redistribution and use in source and binary forms,