PARAMETERS c
CLEAR
P=SPACE(0)
I=1
DO WHILE I<=LEN(C)
x=ASC(SUBSTR(C,I,1))
IF x>127
P=SUBSTR(C,I,2)+P
I=I+1
ELSE
P=SUBSTR(C,I,1)+P
ENDIF
I=I+1
ENDDO
*STRTOFILE(P,"P.TXT")
RETURN P
倒序取字符串函数
最新推荐文章于 2023-07-18 09:44:02 发布