home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / CodesDemo.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  768 b   |  23 lines
  1. { MAXONPascal3-Anpassung / Test: Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. Program CodesDemo(input,output);
  4. Const
  5.   BackSpace = chr(8);
  6.   ClrScr = ''$c;     { entspricht chr($c)=chr(12) - siehe Kapitel
  7.                        "Stringtypen". }
  8. Begin
  9.   write(ClrScr,chr(10));
  10.   { Bildschirm löschen und eine Zeile nach unten }
  11.   write('abcx',BackSpace,'def');
  12.   { Bewirkt die Ausgabe von "abcdef", da das "x" durch das Backspace
  13.     mit "d" überschrieben wird. }
  14.   write(' unten'\11'oben');
  15.   { Gibt erst "unten" aus und springt dann eine Zeile nach oben , wo
  16.     "oben" ausgegeben wird. }
  17.   writeln; { identisch mit: write(chr(10)) }
  18.   writeln;
  19.   writeln('      soft',chr(13),'Himpel');
  20.   { Ergebnis: "Himpelsoft" }
  21.   writeln('Normal',chr(14),' nicht mehr Normal',chr(15))
  22. End.
  23.