/* This prg will check MS Word 'check for viruses' option in registry
   If it's off, there's a good chance that system is infected
*/
PC=RegistryOpenRoot('HKEY_CURRENT_USER')
PC=RegistryOpenKey('SOFTWARE\Microsoft\Office\8.0\Word\Options')
VI=RegistryQueryvalue('EnableMacroVirusProtection')
PC=0
IF LEFT(VI,5)='Error' THEN SAY 'Key not found, Word97 is not installed'
ELSE IF VI=0 THEN DO
   CALL LINEOUT "WORD.LOG", DATE() TIME() DOSVOLUME("C:") "Virus protection is disabled!"
   SAY "Virus protection is disabled!"
   PC=13
END
ELSE SAY "We're OK, virus check is enabled"

CALL RegistryClose
EXIT PC