home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1992
/
04
/
pswrd1.wfw
< prev
next >
Wrap
Text File
|
1992-01-27
|
414b
|
23 lines
Sub MAIN
MsgBox "Correct password must be entered to continue", \
"Password Locked"
AppMinimize
Repeat:
Input "Enter password", a$
If a$ = "password" Then
Goto done
Else
Beep
pw = pw + 1
Goto repeat
End If
Goto repeat
done:
If pw > 0 Then
MsgBox "Incorrect password entered" \
+ Str$(pw) + " times", "Password Unlocked"
End If
AppMaximize
End Sub