home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modula2 / mod2src.arc / STRINGEX.MOD < prev    next >
Encoding:
Text File  |  1987-02-09  |  1.6 KB  |  53 lines
  1.                                          (* Chapter 6 - Program 6 *)
  2. MODULE StringEx;
  3.  
  4. (* Note - The "Strings" procedures used here are not standard because
  5.           there is no standard.  You may need to modify some or all
  6.           of the string procedure calls to get them to work.  Consult
  7.           the documentation for your compiler and library.         *)
  8.  
  9. FROM InOut   IMPORT WriteString, WriteInt, WriteLn;
  10. FROM Strings IMPORT Assign, Concat;
  11.  
  12. TYPE SevenChar = ARRAY[0..6] OF CHAR;
  13.  
  14. VAR Horse : ARRAY[0..12] OF CHAR;
  15.     Cow   : ARRAY[0..5] OF CHAR;
  16.     S1    : SevenChar;
  17.     S2    : SevenChar;
  18.     Index : CARDINAL;
  19.  
  20. (* ******************************************************* Display *)
  21. PROCEDURE Display(Stuff : ARRAY OF CHAR);
  22. BEGIN
  23.    WriteString("Array(");
  24.    WriteString(Stuff);
  25.    WriteString(") - ");
  26.    FOR Index := 0 TO HIGH(Stuff) DO
  27.       WriteInt(ORD(Stuff[Index]),4);
  28.    END;
  29.    WriteLn;
  30. END Display;
  31.  
  32. (* ************************************************** main program *)
  33. BEGIN
  34.    Horse := "ABCDEFGHIJKL";           (* Copy constant to variable *)
  35.    Display(Horse);
  36.  
  37.    Cow := "12345";
  38.    Assign(Cow,Horse);               (* Assign variable to variable *)
  39.    Display(Horse);
  40.  
  41.    S1 := "Neat";
  42.    S2 := "Things";
  43.    Concat(S1,S2,Horse);       (* Concatenate variables to variable *)
  44.    Display(Horse);
  45.    S1 := S2;                        (* Assign variable to variable *)
  46.  
  47.    Concat(Horse,Cow,Horse); (* Concatenate one variable to another *)
  48.    Display(Horse);
  49.  
  50.    Concat(Cow,Horse,Horse);        (* Concatenate to the beginning *)
  51.    Display(Horse);
  52. END StringEx.
  53.