Dear,

With our tool kixstrip which you can find on our site
you can verify your kixtart code.
After the call kixstrip input.kix output.kix /block_check
which returns
code:
:win9x
$icmon = READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "InterCheckMonitor")
IF @error
GOTO "SophMissing"
IF $icmon = ""C:\\PROGRAM FILES\\SOPHOS SWEEP\\ICMON.EXE\" -minimised""
GOTO "Chk9xFiles"
ENDIF
ENDIF
:chk9xfiles
IF EXIST ("C:\Program Files\Sophos SWEEP\ICMON.exe")
GOTO "Sophos_IS_INSTALLED"
ELSE
GOTO "chkd"
ENDIF
:chkd
IF EXIST ("D:\Program Files\Sophos SWEEP\ICMON.exe")
GOTO "Sophos_IS_INSTALLED"
ELSE
GOTO "chke"
ENDIF
:chke
IF EXIST ("E:\Program Files\Sophos SWEEP\ICMON.exe")
GOTO "Sophos_IS_INSTALLED"
ENDIF

:sophmissing


;($begin)
;
; thu 19-dec-2002 09:32:07 (kix 4.10 vs 3.20e)
;
;Summary KIXSTRIP: block structures
; - do:until [0:0]
; - for|each:in|to:step|next [0|0:0|0:0|0]
; - function:endfunction [0:0]
; - if:else:endif [5:2:5]
; - select:case:endselect [0:0:0]
; - while:loop [0:0]
;Warning KIXSTRIP: 1 line is incompleted.
; rerun program with option "/block_check /show_errors".
;Warning KIXSTRIP: some lines contains errors or possible errors.
; 1 line incomplete "double quotation".
; 1 line incompleted.
;Informative KIXSTRIP: 5 block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: 5 labels found.
;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP: 7 GOTO
;
;($end)
;($begin)
;
;Warning KIXSTRIP: 5 line incomplete "double quotation".
;Warning KIXSTRIP: 5 line incompleted.
;
;($end)

Your 5th line should be something like
code:
       IF $icmon = '"C:\\PROGRAM FILES\\SOPHOS SWEEP\\ICMON.EXE\" -minimised'

A reduction of your code can result in following script
code:
 $sophos_installed="yes"
$icmon = READVALUE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "InterCheckMonitor")
IF (Len($icmon) <> 0)
IF (Instr($icmon,"ICMON.EXE") <> 0) AND (Instr($icmon,"-minimised") <> 0)
IF (Exist("C:\Program Files\Sophos SWEEP\icmon.exe") = 0) AND
(Exist("D:\Program Files\Sophos SWEEP\icmon.exe") = 0) AND
(Exist("E:\Program Files\Sophos SWEEP\icmon.exe") = 0)
$sophos_installed="no"
ENDIF
ELSE
$sophos_installed="no"
ENDIF
ELSE
$sophos_installed="no"
ENDIF
IF ($sophos_installed = "no")
? "Informative SOPHOS: not installed"
ELSE
? "Warning SOPHOS: not installed"
ENDIF

greetings.

btw: symbol  - on our homepage has been linked to related http://kixtart.org topic.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA