SET TALK OFF
exefile="DONGLE.EXE"
tmpfile=LTRIM(str(int(1000000*rand()+1)))+".~"
okval=LTRIM(str(int(1000000*rand()+1)))
readval=""
IF FILE(tmpfile)
erase tmpfile
ENDIF
shell=exefile+" "+tmpfile+" "+okval
run &shell
IF FILE(tmpfile)
ift=FOPEN(tmpfile)
readval=FREAD(ift,10)
=FCLOSE(ift)
ENDIF
IF FILE(tmpfile)
erase tmpfile
ENDIF
IF readval<>okval	
	clear
	defi wind ebteda from 4,20 to 6,59 color SCHEME 16
	acti wind ebteda
	@0,4 say "���� �� �� ����ꐖ�� ��� ���" color SCHEME 16
	wait""
	quit
ENDIF
*---------------------------------------------------------------------------
clear
defi wind ebteda from 2,20 to 10,59 color r+g/b+2,r+/r,w
acti wind ebteda
@0,7 say "������ ������ ������ ��� ��" color w+/b+2
@1,7 say "      ******************   " color w/b+2
@2,7 say "          ********         " color w/b+2
@3,12 say "     ��������         " color w+/b+2
@5,12 say "    ����������        "color w+/b+2
wait"continu codes ...."















quit