27 lines
711 B
Plaintext
27 lines
711 B
Plaintext
Module ReverseString {
|
|
a$="as⃝df̅"
|
|
Print Len(a$), len.disp(a$)
|
|
Let i=1, j=Len(a$)
|
|
z$=String$(" ",j)
|
|
j++
|
|
do {
|
|
k$=mid$(a$, i, 1)
|
|
if i<len(a$) then {
|
|
while len.disp(k$+mid$(a$, i+1,1)) =len.disp(k$) {
|
|
k$+=mid$(a$, i+1,1)
|
|
i++
|
|
if i>len(a$) then exit
|
|
j--
|
|
}
|
|
j--
|
|
insert j, len(k$) Z$=K$
|
|
} else j-- :Insert j,1 z$=k$
|
|
if i>=len(a$) then exit
|
|
i++
|
|
} Always
|
|
Print len(z$), len.disp(z$)
|
|
Print z$="f̅ds⃝a"
|
|
Print z$
|
|
}
|
|
ReverseString
|