To prevent a readline loop-o-death (EMPTY FILE) I once added the 'if $x - loop - endif'
thing ... that naturally exit if the first line is empty

To make this thing bullet proof you have to add If $x or $x = crlf :

code:

---

Break on
; *** Variables ***
$CHK = "neither"
$ChkNavService = '%comspec% /c %windir%\pv.exe -q >C:\RC.TXT'
$StopNavService = 'NET STOP "Norton AntiVirus Client"'
$StartNavService = 'NET START "Norton AntiVirus Client"'
$cr = chr(13) + chr(10)
;SHELL $ChkNavService
$logfile = "C:\Documents and Settings\Administrator\Desktop\RC.TXT"
$ = open(1,$logfile,2)
if @error = 0
	$x = readline(1)
	if $x or asc($x) = $cr
		do
			select
				case instr($x,"rtvscan.exe")
					$CHK = "NAVNT"
				case instr($x,"rtvscn95.exe")
					$CHK = "NAV9X"
			endselect
			$x = readline(1)
		until @error
	endif
endif
$ = close(1)
select
	case $CHK = "NAVNT"
		? "NAV is "$CHK
		? "This should say NAVNT"
	case $CHK = "NAV9X"
		? "NAV is "$CHK
		? "This should say NAV9X"
	case 1
		;unknown problem
		? "NAV is "$CHK
		? "This should say neither. File entry was not found"
endselect
get $

---

worked for me , also if 1st line was empty

Jochen

[ 02 October 2001: Message edited by: jpols ]

_________________________