Esope source files

   1 : C LONG      SOURCE    CHAT      05/01/13    01:25:14     5004           
   2 : C  REND LA LONGUEUR D'UNE CHAINE DE CARACTERES                                  
   3 : C                                                                               
   4 :       FUNCTION LONG(CH)                                                         
   5 :       IMPLICIT INTEGER(I-N)
   6 :       CHARACTER*(*) CH                                                          
   7 :       DO 10 I=LEN(CH),1,-1                                                      
   8 :        IF (CH(I:I).NE.' ') GOTO 20                                              
   9 :   10  CONTINUE                                                                  
  10 :       I=1                                                                       
  11 :   20  LONG=I                                                                    
  12 :       END                                                                       
  13 :