|
|
Initial revision
procedure delete(s,c)
while i := upto(c,s) do
s[i:many(c,s,i)] := ""
return s
end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.