Scripting Dynamics
c$=chr(13) & chr(10) /* string handling */ s$="qw""e&rt^yui&^pasdf&zxcv" x=parsecount(s$, any "&^") + parsecount(s$, "^") print x & c$ z$=parse(s$, "&^", 2) print z$ & c$ s$="qwe=rty|ui=op|asd=fg|qa=zxcvn|xcv=qscfty" ln=parsecount(s$, "|") print ln & c$ for i=1 to ln z$=parse(s$, "|", i) print z$ & c$ z1$=z1$ & parse(z$, "=", 1) & "|" z2$=z2$ & parse(z$, "=", 2) & "|" next print z1$ & c$ print z2$ & c$