initial commit
This commit is contained in:
commit
60db522e87
107 changed files with 36924 additions and 0 deletions
15
tests/umlaut.pas
Normal file
15
tests/umlaut.pas
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
(*
|
||||
test program for
|
||||
multibyte characters
|
||||
and tabs
|
||||
*)
|
||||
program umlaut;
|
||||
var s:string = 'ÄÖÜß';
|
||||
begin
|
||||
writeln('Falsches Üben von');
|
||||
writeln('Xylophonmusik quält jeden');
|
||||
writeln('größeren Zwerg.');
|
||||
writeln;
|
||||
writeln(s);
|
||||
writeln(length(s));
|
||||
end.
|
||||
Loading…
Add table
Add a link
Reference in a new issue