[Allegro] Hilfsabschnitt zur Validierung Ergänzung

[Thomas Fischer]

Hallo Herr Eversberg,

es geht mir darum, eine automatische Ersetzung zu implementieren, wie sie im
Handbuch so beschrieben wird:

#-D		Zahl isolieren, Nullen und Punkt hinten abschneiden, in #95c
einsetzen 
#u1 x"*1" F"0." p"#95c" M	(mit x"*1" entsteht die reine Zahl! Sie hat
immer einen Punkt.) 
#95c +# x">0" e0 
#t{ "Unzulässiger Zahlenwert!" }
#+# 
#-K 	

Das gelingt mit nicht.
Bei mir sieht das so aus:

#u1 +5 i5,1 i6,6 i7,  e0    	ist es #16 ?  Dann #-5
#+#                        	andere Kategorie? Dann nichts machen.
#-5
#u1 b4 dlg dLG Alg  		Jetzt Wert aus Eingabe in #ulg
#-1
#ulg e';' =te  			Ersten Teil nehmen und
#ute +2 y0 P"=" |78	   	eingegebenes Kürzel in Register 7 suchen
#ute p{'Kürzel '} P{' nicht gefunden!'}	  Meldung, wenn nicht gefunden 
#-2
#ux7 b'=' P'; ' ALG		Ersetzungstext nehmen und an #uLG anhängen
#ulg +1 b';' f32 =lg		falls noch mehr Einträge da: weiter
#uLG p'#16 ' t2 M  		Ersetzungstext in #16 schreiben
#+#

Und ich kann zwar den Ersetzungstext erfolgreich z.B. in #15 schreiben mit
#uLG p'#15 ' t2 M
aber
#uLG p'#16 ' t2 M
hat keine Wirkung, in #16 landet immer der Ausgangstext.

Mache ich da etwas falsch?

Mit freundlichen Grüßen
Thomas Fischer