*-----------------------------------------------------------------------
*     Copyright (C) 2000 GFD Dennou Club. All rights reserved.
*-----------------------------------------------------------------------
      CHARACTER*1 FUNCTION CSGI(IC)


*     IF (IC .GT. 127) IC = IC - 256
*     CSGI=CHAR(IC)

      IF (IC .GT. 127) THEN
        CSGI=CHAR(IC - 256)
      ELSE
        CSGI=CHAR(IC)
      END IF

      END