检查 quickbasic 文件中的一行代码

checking a line of code in a file on quickbasic

我试图让我的程序有一个对话框,其中的密码已在文件中设置。我需要帮助让它扫描文件中的一行代码,如果密码输入正确,则继续。

此代码获取密码并将其与文件中的密码进行比较:

INPUT "Password", x$
OPEN "password.dat" FOR INPUT AS #1
INPUT #1, y$
IF x$ = y$ THEN PRINT "Match": ' do stuff