set talk off
set bell on
set defa to E:\成績(jī)跟綜
  defi wind win1 from 1,5 to 35,90 doub colo w/bg+
 defi wind win2 from 1,5 to 30,80 pane in wind win1 colo w/RB+
 acti wind win1
 acti wind win2 in win1
 @8,10 clear
 @8,10 clear to 30,50 color G+/gr
 @8,20 say"學(xué)生成績(jī)管理系統(tǒng)" FONT"中黑體",24 color R/BG
 @12,20 say"編  寫： 陳 克 毅 2001.1. "FONT"中黑體",16 color R/BG
 n=1
 kl=space(7)
 do while n<=3
 set color to w+/b,n/bg
 @15,0 clear
 @20,30 say"請(qǐng)輸入口令："
 set cons off
 accept to kl
 set cons on
 if kl<>"3515287"
 set color to /g
 if n=3
 @15,20 to 19,50 clear
 @17,24 say"對(duì)不起，不能使用本系統(tǒng)"
 wait""
 return
 else
 @15,20 to 19,50 clear
 @17,24 say"口令不對(duì)，請(qǐng)重新輸入"
 wait""
 n=n+1
 loop
 endif
else
 exit
 endif
 enddo 
 clear all
 set color to
 do menu1.mpx
 clear