```foxpro

CLEAR

SET TALK OFF && 关闭屏幕输出

* 提示用户输入字符串

INPUT "请输入一串字符: " TO x

* 初始化逆序字符串变量

y = ""

* 通过循环将字符串逆序

FOR i = LEN(x) TO 1 STEP -1

y = y + SUBSTR(x, i, 1)

ENDFOR

* 输出逆序后的字符串

? "逆序输出为: ", y

* 结束程序

EXIT

```

代码说明：

输入处理

使用 `INPUT` 语句接收用户输入的字符串，并存储在变量 `x` 中。

逆序逻辑

- 通过 `LEN（x）` 获取输入字符串的长度 `n`。

- 使用 `FOR` 循环从字符串末尾向前遍历每个字符，利用 `SUBSTR（x, i, 1）` 提取每个字符，并将其追加到变量 `y` 中，从而实现逆序。

输出结果

使用 `？` 语句输出逆序后的字符串 `y`。

示例运行：

```

请输入一串字符: Hello, World!

逆序输出为: !dlroW ,olleH

```

注意事项：

该程序假设输入仅包含标准字符，未处理特殊字符或控制字符的情况；

若需处理多行输入，需使用 `INPUT ALL` 语句。

以上代码适用于 Visual FoxPro 5.0及以上版本，语法结构与现代版本略有差异，但核心逻辑一致。