home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1992 / 04 / pswrd2.wfw < prev    next >
Text File  |  1992-01-27  |  437b  |  24 lines
  1. Sub MAIN
  2. FileNew
  3. If Not DocMaximize() Then DocMaximize 
  4. repeat:
  5. On Error Goto 0
  6. On Error Goto Repeat
  7. DisableInput 1
  8. a$ = InputBox$("Enter Password ",  " Password Locked ")
  9. If a$ = "password" Then
  10.        Goto done
  11.     Else
  12.        Beep
  13.        pw = pw + 1
  14. End If
  15. Goto repeat
  16. done:
  17. If pw > 0 Then
  18.        MsgBox "Incorrect password entered" \
  19.        + Str$(pw) + " times", "Password Unlocked"
  20. End If
  21. FileClose
  22. End Sub
  23.  
  24.