21 lines
806 B
Text
21 lines
806 B
Text
func$ squeeze s$ x$ .
|
|
for c$ in strchars s$
|
|
if c$ <> x$ or c$ <> cc$ : r$ &= c$
|
|
cc$ = c$
|
|
.
|
|
return r$
|
|
.
|
|
proc do s$ x$ .
|
|
print "'" & x$ & "'"
|
|
print "«««" & s$ & "»»» (" & len s$ & ")"
|
|
r$ = squeeze s$ x$
|
|
print "«««" & r$ & "»»» (" & len r$ & ")"
|
|
print ""
|
|
.
|
|
do "" " "
|
|
do "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln " "-"
|
|
do "..1111111111111111111111111111111111111111111111111111111111111117777888" "7"
|
|
do "I never give 'em hell, I just tell the truth, and they think it's hell. " "."
|
|
do " --- Harry S Truman " " "
|
|
do " --- Harry S Truman " "-"
|
|
do " --- Harry S Truman " "r"
|