编写QBASIC弹出式菜单条的源代码，举例

以下是一个简单的QBASIC弹出式菜单条的源代码：

CLS

'定义菜单项数组
DIM menu(5) AS STRING

menu(0) = "打开"
menu(1) = "保存"
menu(2) = "另存为"
menu(3) = "关闭"
menu(4) = "退出"

'定义变量
DIM choice AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER

'打印菜单条
FOR i = 0 TO 4
    LOCATE 1, i+1
    PRINT menu(i)
NEXT

'获取用户选择
DO
    DO
        x = LOCATE(,,0)
        y = LOCATE(,,1)
    LOOP UNTIL y > 0
    choice = y - 1
LOOP UNTIL choice >= 0 AND choice <= 4

'执行用户选择的操作
SELECT CASE choice
    CASE 0
        PRINT "打开文件"
    CASE 1
        PRINT "保存文件"
    CASE 2
        PRINT "另存为"
    CASE 3
        PRINT "关闭"
    CASE 4
        PRINT "退出"
END SELECT

END

在上面的代码中，我们首先定义了一个包含五个元素的菜单项数组，然后使用FOR循环打印了菜单条。接着，我们进入一个DO循环，直到用户选择一个合法的菜单项为止。最后，根据用户的选择，使用SELECT CASE语句执行相应的操作。在这个例子中，我们只是简单地打印了一些文本，但实际上我们可以在这里执行任何操作，比如打开一个文件、保存数据等等。