home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / modula / strings.mod < prev    next >
Encoding:
Modula Implementation  |  1993-10-23  |  620 b   |  28 lines
  1. IMPLEMENTATION MODULE Strings ;
  2.  
  3. FROM InOut IMPORT WriteString,WriteLn;
  4.  
  5. PROCEDURE CompareString( VAR A , B : ARRAY OF CHAR ) : BOOLEAN ;
  6. VAR i : CARDINAL ;
  7.     Equal : BOOLEAN ;
  8. BEGIN
  9.      i := 0 ; Equal := TRUE ;
  10.      WHILE (A[i] # 0C) AND (B[i] # 0C) AND Equal DO
  11.           Equal := (A[i] = B[i]) ;
  12.           IF Equal THEN i := i + 1 END
  13.      END ;
  14.      RETURN ( A[i] > B[i] ) 
  15. END CompareString ;
  16.  
  17. PROCEDURE Length( A : ARRAY OF CHAR ) : CARDINAL ;
  18. VAR  i : CARDINAL ;
  19. BEGIN
  20.      i := 0 ;
  21.      WHILE A[i] # 0C DO
  22.           INC(i) 
  23.      END;
  24.      RETURN i 
  25. END Length ;
  26.      
  27. END Strings .
  28.