参考になれば
10 OPEN "a:pss.txt" FOR INPUT AS #1 'pss.txt is found
20 INPUT #1,UNAME$,PSS$
30 CLOSE
40 '
50 INPUT "input user name",UN$
60 INPUT "input password",PS$
70 IF UNAME$><UN$ THEN PRINT "Fzakener !":BEEP:END
80 IF PSS$><PS$ THEN PRINT "Sorry,";:GOTO 60
90 'to wake up
0そうだね プレイ済み