home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / lcase.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  932b  |  44 lines
  1. PROGRAM LCASE;{$P,C-,M-,F-}
  2. {$I+}
  3. TYPE
  4. $STRING0 = STRING 0;
  5. $STRING80 =STRING 80;
  6. $STRING255 = STRING 255;
  7.  
  8. VAR
  9. DATA:$STRING80;
  10. FUNCTION LENGTH(x:$STRING255):INTEGER;EXTERNAL;
  11. PROCEDURE SETLENGTH(VAR X:$STRING0; Y:INTEGER);EXTERNAL;
  12.  
  13. {function to convert a string "x" to all lower case characters and then
  14. return this converted string..
  15. corresponds to the BASIC command LCASE$(A$)..}
  16.  
  17.  
  18. FUNCTION LCASE(X:$STRING255):$STRING255;
  19. LABEL 1;
  20. VAR
  21. I,LEN,ASCII:INTEGER;
  22. LCASEX:$STRING80;
  23.  
  24. BEGIN
  25. SETLENGTH(LCASEX,0);
  26. LEN:=LENGTH(X);
  27. IF (LEN = 0) OR (LEN > 255)  THEN GOTO 1;
  28.  
  29. FOR I:=1 TO LEN DO
  30.     
  31.     IF (ORD(X[I]) > 64) AND (ORD(X[I]) < 91) THEN 
  32.     APPEND(LCASEX,CHR(ORD(X[I])+32)) ELSE
  33.     APPEND(LCASEX,X[I]);
  34.  
  35. {97 represents a little 'a' and 122 a little 'z'..32 is the offset between
  36.   a capital and a little letter in ascii code}
  37.  
  38. LCASE:=LCASEX;
  39. 1: {immediate exit upon fatal error}
  40.  
  41. END;
  42.  
  43. Begin
  44. end.