[Tustep-Liste] nochmal was mit Zahlen

[Dr. Michael Trauth]

Lieber Wieland,

kaum hatte ich die Sendetaste meines letzten Postings gedrückt, da fiel mir auch schon ein, wie mein #kopiere-Snippet noch einmal um drei Zeilen verschlankt (und auch ein bißchen kryptischer gestaltet) werden kann. Bitte sehr:

#ko,q,z,,+,*
par       {}
zf+   1   |{#}-{#}|
al    1 = zf+
liv   1   i1 i2
rr    1   if ((iabs(i2)).eq.(i1+1)) goto 22; goto 32;
xx    2   |{\0}{[}-{|}{#}*|::{=2=}|
xx    3   |{\0}{[}-{|}{#}*|!!{=2=}|
spn        3
sp2        8 11 11
xxx       |{\0}{[}!!{]}{\0}|-|
*eof


Viele Grüße reihum von

Michael Trauth