|
|
|
|
|
|
|
|
|
|
|
|
|
X3: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
zustand := FEHL;
END;
'L': BEGIN
zustand := FEHL;
END;
'X': BEGIN
zustand := FEHL;
END;
'V': BEGIN
s := s + 5;
zustand := V1;
END;
'I': BEGIN
zustand := I1;
END;
'=': BEGIN
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
V1: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
zustand := FEHL;
END;
'L': BEGIN
zustand := FEHL;
END;
'X': BEGIN
zustand := FEHL;
END;
'V': BEGIN
zustand := FEHL;
END;
'I': BEGIN
zustand := I1;
END;
'=': BEGIN
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
I1: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
zustand := FEHL;
END;
'L': BEGIN
zustand := FEHL;
END;
'X': BEGIN
s := s + 9;
zustand := IX;
END;
'V': BEGIN
s := s + 4;
zustand := IV;
END;
'I': BEGIN
s := s + 2;
zustand := I2;
END;
'=': BEGIN
s := s + 1;
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
I2: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
zustand := FEHL;
END;
'L': BEGIN
zustand := FEHL;
END;
'X': BEGIN
zustand := FEHL;
END;
'V': BEGIN
zustand := FEHL;
END;
'I': BEGIN
s := s + 1;
zustand := I3;
END;
'=': BEGIN
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
I3: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
zustand := FEHL;
END;
'L': BEGIN
zustand := FEHL;
END;
'X': BEGIN
zustand := FEHL;
END;
'V': BEGIN
zustand := FEHL;
END;
'I': BEGIN
zustand := FEHL;
END;
'=': BEGIN
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
CM: BEGIN
CASE zeichen OF
'M': BEGIN
zustand := FEHL;
END;
'D': BEGIN
zustand := FEHL;
END;
'C': BEGIN
zustand := FEHL;
END;
'L': BEGIN
s := s + 50;
zustand := L1;
END;
'X': BEGIN
zustand := X1;
END;
'V': BEGIN
s := s + 5;
zustand := V1;
END;
'I': BEGIN
zustand := I1;
END;
'=': BEGIN
zustand := ENDE;
END;
END;
Schreibezust(zustand);
END;
Naechste Seite
|
|
|
|
|
|
|
|
|
Letzte Änderung: 07.02.2007
© Pädagogisches Institut für die deutsche Sprachgruppe
- Bozen. 2000 -
|
|
|
|
 |
|
|
|
|
