求Visual FoxPro编写的用户登录验证代码

这段程序可以实现，密码是Foxpro，而且还附加了一个安全保护，即连续输入三次错误密码的话，就会被强行退出。
set talk off
clear
c=""
for i=1 to 3
accept c+"请输入口令：" to psw
if psw=="Foxpro"
?"身份确认，欢迎您使用本系统！"
exit
slse
?"请重新输入密码！"
endif
endfor
if i>3
?"你是非法用户，本系统拒绝你进入！"
endif
set talk on
要是不喜欢的话可以把安全保护去掉也不会影响效果，代码改为：
set talk off
clear
c=""
accept c+"请输入口令：" to psw
if psw=="Foxpro"
?"身份确认，欢迎您使用本系统！"
exit
else
?"请重新输入密码！"
endif
set talk on