标题在FoxBASE中实现有显示口令的小程序

　　主要设计思想，首先定义一个数组S。程序执行时，按下某一键数组S(i)即存入此键的ASCⅡ码，同时屏幕显示一个(*)号；按下退格键时，数组S(i-1)被清除，同时屏幕上少一个“*”号。循环下去直到密码全部输完，再做相应处理。
　　*type password.prg
　　@14，28 say '请输入密码：'
　　save screen to crtinit
　　dimension s(4) &&定义密码数组
　　times=1
　　do while times<=3 &&最多可以输入3次
　　i=1
　　do while i<=4 &&密码逐个输入
　　set console off &&封琐屏幕输出
　　a=inkey(0)
　　set console on &&打开屏幕输出
　　if a=127 .and.i>=2 &&退格键则删除
　　@14，39+i say ' '
　　i=i-1
　　else &&非退格键则赋值
　　s(i)=chr(a)
　　@14，40+i say'*'　 &&"*"
　　i=i+1
　　endif
　　endo
　　if s(1)='s' .and.s(2)='c' .and.s(3)='d' .and.s(4)='x'
　　@16，33 say '欢迎您！' &&密码正确
　　act=inkey(0)
　　exit
　　endif
　　@16，31 say '密码错！请重输' &&密码错误
　　act=inkey(0)
　　times=times+1
　　restore screen from crtinit
　　enddo
　　if times=4 &&3次均错误则退出
　　clear
　　cancel
　　endif
　　return(陕西　 向　勇)