|
VAR symbol: CHAR; (* current input symbol *) |
CHAR repräsentiert ein einzelnes Zeichen in Oberon.
| |
Als Repräsentierung stehen nur 8 Bit zur Verfügung,
die entsprechend ASCII belegt sind (Werte 0 bis 127).
Der Bereich aus 128 bis 255 unterliegt den jeweils lokalen
Konventionen (bei uns beispielsweise ISO-8859-1).
|
Read.Char(symbol); WHILE symbol # ASCII.nl DO (* ... *) Read.Char(symbol); END; |
Mit Read.Char wird das nächste Zeichen aus der
Eingabe in die angegebene Variable abgespeichert.
| |
ASCII.nl ist das Zeichen, das den Zeilentrenner
repräsentiert.
| |
Die WHILE-Schleife wiederholt ihre inneren
Anweisungen solange, bis ein Zeilentrenner eingelesen wird.
|
Copyright © 2004, 2005 Andreas Borchert, in HTML konvertiert am 18.02.2005 |