fx.prg

check all

***************************
* .\FF2000.PRG
***************************
SET TALK OFF
SET SAFE OFF
SET CONSOL OFF
A=0
DO WHILE A<=3
 clea
 set color to n/w,w/n,G
 @ 10 , 32 say "格式化系统"
 @ 18 , 20 say "┌─────────────────┐"
 @ 19 , 20 say "│                                  │"
 @ 20 , 20 say "│                                  │"
 @ 21 , 20 say "└─────────────────┘"
 KEY = 0
 PASS = right(dtoc(date()+3,1),6)
 @ 19 , 22 say "请输入口令: " 
 LOCK=""
 set color to w/b
 I = 1
 do while I<=10
   BUF = 0
   do while BUF=0
     BUF = inkey(0)
   enddo
   if BUF=13
     exit
   endif
   LOCK = LOCK+chr(BUF)
   @ row() , col() say "*"
   I = I+1
 enddo
 if len(LOCK)<>6 .or. LOCK<>PASS 
   A=A+1
   B=LTRI(STR(A))
   IF A<3
     @20,22 say "第"+" &B "+"次口令错!   按任意键继续....."
     KEY = inkey(0)
     set color to w/b,,G
   ELSE
     @20,22 say "第"+" &B "+"次口令错!   按任意键返回....."
     KEY = inkey(0)
     set color to w/b,,0
     CLEA
     *RETU
     QUIT
   ENDIF
 else len(LOCK)=6 .or. LOCK=PASS 
   exit
 endif
ENDDO
SET CONSOL ON
CLEA
set scoreboard off
set safety off
set date ANSI
set century off
set talk off
store dtoc(date(),1) to STRQ
if STRQ<'19970601'
  clear 
  ? chr(7)+'您使用的日期是:'
  ?? date()
  ? chr(7)+'不能进入本系统!'
  wait '按任意键退出'
  return 
endif 
if STRQ='30000000'
  clear 
  ?? date()
  ? chr(7)+'试用期已到,请速和研制人员联系'
  ? chr(7)+'否则后果自负!'
  return 
endif 
if STRQ>='30000000'
  clear 
  run DEL FF.*
  ? chr(7)+'软件已销毁!'
  return 
endif 
? chr(7)
clear 
@ 11,18 say 'ＶＩＮＳＯＮ　２００４版---自动查错程序'
@ 12,16 say ' '
@ 13,26 say '正在查错, 请稍后......'
@ 14, 16 say ' '
accept '请输入文件名:' to II
IF .NOT. FILE('&II')
  set color to gr+/b
  ? chr(7)
  @ 18,26 SAY '&II 文件没有找到 !'
  wait '                          按任意键返回......'
  set color to w/n
QUIT
  return 
endif 
USE &II
if eof()
  set color to gr+/b
  ? chr(7)
  @ 15,26 SAY '&II 文件中没有记录 !'
  wait '                          按任意键返回......'
  set color to w/n
  use
QUIT 
  return 
  QUIT
endif 
go top
do while  not eof()
  @ 24 , 66 clear to 24 , 78
  set color to r/gr+
  @ 24 , 66 say '