7 lines
108 B
Text
7 lines
108 B
Text
K=
|
|
STR_OUT=
|
|
FOR J=%TRIM(STR_IN) STEP -1 UNTIL 1
|
|
DO BEGIN
|
|
INCR K
|
|
STR_OUT(K:1)=STR_IN(J:1)
|
|
END
|