public bmmc
public snstr1
public snstr2
public tmpstra
bmmc=""
snstr1=""
snstr2=""
cc=sys(16)
nn=at_c('\',cc,2)
cc=substr(cc,1,nn)
set default to &cc
*設(shè)置主菜單最大化、字體、標(biāo)題
with _screen
	.WindowState=2
	.fontsize=11
	.caption="海南彩票處理系統(tǒng)  設(shè)計(jì)人：陳博"
endwith


*計(jì)算系統(tǒng)ID值snstr1
!sng.exe
fhand1=fopen("hdisksn.txt",10)
snstr1=fgets(fhand1)
snstr1=alltrim(snstr1)
=fclose(fhand1)

if len(snstr1)>=1 
	i=len(snstr1)
	j=1
	tmpstr1=""
	do while j<=i
		tmpi=bitxor(asc(substr(snstr1,j,1)),185)
		tmpstr1=tmpstr1+chr(tmpi)
		j=j+1
	enddo
	
	
    ***********計(jì)算注冊(cè)碼	
	i=len(tmpstr1)
	j=1
	tmpstra=""
	do while j<=i
		tmpi=mod(mod(asc(substr(tmpstr1,j,1)),100),10)+97
		tmpstra=tmpstra+chr(tmpi)
		j=j+1
	enddo

    ******************************************
	
else
	close all
	quit
endif



***********獲取用戶輸入的注冊(cè)碼
if file('zcm.txt')
	fhand2=fopen("zcm.txt",12)
	snstr2=fgets(fhand2)
	snstr2=alltrim(snstr2)
	=fclose(fhand2)
endif


if snstr2=tmpstra 
	do 菜單1.MPR
	read events

else
	do form getzcm
	read events
	clear all
	close all
	quit
endif