1*-----------------------------------------------------------------------
2*     Copyright (C) 2000 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      CHARACTER*1 FUNCTION CSGI(IC)
5
6
7*     IF (IC .GT. 127) IC = IC - 256
8*     CSGI=CHAR(IC)
9
10      IF (IC .GT. 127) THEN
11        CSGI=CHAR(IC - 256)
12      ELSE
13        CSGI=CHAR(IC)
14      END IF
15
16      END
17