set talk off
do while .T.
input "按1申請，按2進入，按3退出：" to aaa
do case
 case aaa=1
   clear
   dimension s(2),m(7),x(7)
   accept "請填寫你的姓名:" to s(1)
   i=1
   do while i<6
    ? "請填寫你的密碼:"
    k=1
    j=1
   do while j<7
    set cons off
    wait "" to x(j)
    set cons on
    ?? "*"
    j=j+1
    enddo
    x=x(1)+x(2)+x(3)+x(4)+x(5)+x(6)
   set cons on
    ? "請確認你的密碼:"
   do while k<7
    set cons off
    wait "" to m(k)
    set cons on
    ?? "*"
    k=k+1
    enddo
     m=m(1)+m(2)+m(3)+m(4)+m(5)+m(6)
    set exact on
    if m=x
    exit
   else
   
         loop
   endif
   i=i+1
   enddo
   use chen
   append blank
   gather from s(1) field 姓名
   gather from x field 密碼
case aaa=2
   dime n(7),a(4)
   accept "請輸入用戶名:" to nam
   locate for 姓名=nam
   if found()
    ? "請輸入密碼:"
    k=1
    do while k<7
    set cons off
    wait "" to n(k)
    set cons on
    ?? "*"
    k=k+1

    enddo
n=n(1)+n(2)+n(3)+n(4)+n(5)+n(6) 
  
   j=1
    do while j<5
     if 密碼!=n
    if j<4
      ? "密碼錯誤，請再輸入:"
   else 
       ? "王八蛋，你無權進入"
       exit
    endif
    
    y=1
     do while y<7
    set cons off
    wait "" to n(y)
    set cons on
    ?? "*"
    y=y+1
    enddo
    n=n(1)+n(2)+n(3)+n(4)+n(5)+n(6)
     j=j+1
  else
      ? "歡迎欣賞時龍和饒娟的愛情！"
      exit
    endif
   
   enddo
  else
    ? "用戶不存在"
  endif


case aaa=3
  exit
  endcase
 enddo