MODULE HelloWorld; FROM InOut IMPORT ReadString, WriteString, WriteLn; CONST StrLength = 80; h = "Hello ..."; w = "World !"; TYPE STRING = ARRAY [0..StrLength] OF CHAR; VAR str1 : STRING; str2, svar : ARRAY [0..StrLength] OF CHAR; BEGIN (* -- Textzeilen einlesen ... ACHTUNG: Leerzeichen ist Separator ! *) WriteString("Lies Textzeile 1 (max. 80 Zeichen) : "); ReadString(str1); WriteString("Lies Textzeile 2 : "); ReadString(str2); WriteLn; (* -- Ausgabe der gelesenen Textzeilen ... *) WriteString("Textzeile 1 : "); WriteString(str1); WriteLn; WriteString("Textzeile 2 : "); WriteString(str2); WriteLn; WriteLn; (* -- Konkatenation von Strings ... *) WriteString("String-Konstanten ... "); WriteString(h); WriteLn; WriteString(" "); WriteString(w); WriteLn; WriteString(" "); WriteString(h); WriteString(w); WriteLn; WriteLn; svar := h; WriteString("VAR-String ... "); WriteString(svar); WriteLn END HelloWorld.