|
|
CONST
letters = ORD("z") - ORD("a") + 1;
VAR
marks: ARRAY letters OF Streams.Count;
history: Streams.Stream;
line: ARRAY 512 OF CHAR;
|
![]() | Alle Eingaben müssen bewahrt werden, damit sie später
wieder eingefügt werden können.
|
![]() | Dies geschieht über eine interne Datei aus dem
Modul Texts. Auf diese wird über die Variable
history zugegriffen, die vom Typ Streams.Stream
ist.
|
![]() | Das Array marks notiert die markierten Positionen,
die sich alle auf history beziehen. Bei einer
Eingabe von !a ist marks[0] auf die aktuelle Position
von history zu setzen.
|
![]() | Die Variable line dient als Puffer für die
aktuelle Zeile.
|
|
| Copyright © 2004, 2005 Andreas Borchert, in HTML konvertiert am 18.02.2005 |