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	
	Quit
ENDIF