MODULE text EXPORTS Main;
IMPORT IO, Text, Fmt;

VAR
    text1  : TEXT;
    text2  : TEXT := "Hallo";
    text   : TEXT;
    
    char   : CHAR := 'a';
    pos    : INTEGER;


BEGIN
    text1 := "Ich sag ";
    IO.Put("Variable text1 enthaelt : " & text1 & "\n");
    IO.Put("Variable text2 enthaelt : " & text2 & "\n");
    
(* verknuepfung von 2 textvariablen *)    
    text := Text.Cat(text1, text2);
    text := (text1 & text2);    

    IO.Put("Text.Cat(text1,text2)   : " & Text.Cat(text1, text2) & "\n");
    IO.Put("das selbe =) - text     : " & text &  "\n");
    
(* zeichen in einer Text-Variablen finden : *)

    pos := Text.FindChar(text, char, 0);	 (* siehe Anhang -> Interface Text *)
    IO.Put("Das Zeichen " & Fmt.Char(char) & " befindet sich an Stelle : " & Fmt.Int(pos) & "\n");
    

END text.