|
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 |