Program CodesDemo(input,output);
Const
  BackSpace = chr(8);
  ClrScr = ''$c;     { entspricht chr($c)=chr(12) - siehe Kapitel
                       "Stringtypen". }
Begin
  write(ClrScr,chr(10));
  { Bildschirm löschen und eine Zeile nach unten }
  write('abcx',BackSpace,'def');
  { Bewirkt die Ausgabe von "abcdef", da das "x" durch das Backspace
    mit "d" überschrieben wird. }
  write(' unten'\11'oben');
  { Gibt erst "unten" aus und springt dann eine Zeile nach oben , wo
    "oben" ausgegeben wird. }
  writeln; { identisch mit: write(chr(10)) }
  writeln;
  writeln('      soft',chr(13),'Himpel');
  { Ergebnis: "Himpelsoft" }
  writeln('Normal',chr(14),' nicht mehr Normal',chr(15))
End.