- Fixed a bug which caused the SICServer to die when a socket was broken.

- Fixed many things in DIFRAC subsystem:
  * Recoded tcentr.f etc so that the course centering will work and will not
    go into an endless loop.
  * fixed boundary overwrites which occurred when yesno or alfnum where
    uset to get a single character and several were given.
  * Addeded documentation for DIFRAC
- Added tcl-files which  support the WWW status system

difrac/blind.f

@@ -576,7 +576,7 @@ C EDLIST  Edit the reflection list
 C--------------------------------------------------------------------
       SUBROUTINE EDLIST
       INCLUDE 'COMDIF'
-      CHARACTER FLAG*1,REFNAM*40
+      CHARACTER FLAG*1,REFNAM*40,LINE*80
       DIMENSION THETAS(NSIZE),
      $          OMEGAS(NSIZE),CHIS(NSIZE),PHIS(NSIZE),ICNTS(NSIZE)
       EQUIVALENCE (ACOUNT(        1),THETAS(1)),
@@ -596,7 +596,8 @@ C--------------------------------------------------------------------
    90 WRITE (COUT,11000)
       CALL GWRITE (ITP,' ')
   100 WRITE (COUT,12000)
-      CALL ALFNUM (ANS)
+      CALL ALFNUM (LINE)
+      ANS = LINE(1:1)
       IF (ANS .NE. 'L' .AND. ANS .NE. 'D' .AND. ANS .NE. 'R' .AND.
      $    ANS .NE. 'A' .AND. ANS .NE. 'F' .AND. ANS .NE. 'E') 
      $    GO TO 90