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

Author: 陕西向勇 Date: 1996-12-20

        主要设计思想，首先定义一个数组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(陕西   向  勇)