code:

---

  CLS
  IF setconsole("hide")
  ENDIF
;
;     NT/95 install kixtart - Kixtart 3.62, 3.63, 4.00, 4.01, 4.02, 4.10
;
; (c) scripting@wanadoo.nl - 2000, 2001, 2002
;
;     vs 2.00 - program
;
;     1.00  (20010605)     original version. created for IExpress package.
;                          - split script for with/without debugging.
;                          - activate $debug_mode when variable %kix-debug% is declared.
;                          - shows also @curdir value.
;     2.00  (20020805)     - using $system_drive for logging information (input by Kent Dyer).
;                          - changing "kixtart.log" to "kixdebug.txt".
;
  $prgrm_version="2.00"
  ;
  $debug_mode="no"
  IF (len(ExpandEnvironmentVars(CHR(37)+"kix-debug"+CHR(37))) <> 0)
    $debug_mode="yes"
  ENDIF
  ;
  IF ($debug_mode = "yes")
    $message="Installation of Kixtart "+@kix+" started from '"+LCASE(@curdir)+"'."
    $title="Kixtart "+@kix
    IF (MessageBox($message, $title, 340, 300) <> 0)
    ENDIF
    ? $message
  ENDIF
  IF ($debug_mode <> "yes")
    call "start1.kix"
  ELSE
    call "start2.kix"
  ENDIF
:end
  IF (@inwin = 1)
    $destination_directory=ReadValue("HKEY_LOCAL_MACHINE\software\microsoft\windows NT\currentversion", "SystemRoot")
  ELSE
    $destination_directory=ReadValue("HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion", "SystemRoot")
  ENDIF
  IF (len($destination_directory) = 0)
    $destination_directory=@lanroot
  ENDIF
  IF (Substr($destination_directory,len($destination_directory),1) <> "\")
    $destination_directory=$destination_directory+"\"
  ENDIF
  $system_drive=Substr($destination_directory,1,3) ; - This will show C: or M: or what drive windows is installed on -
  ;
  IF (RedirectOutput("CON") = 0)
  ENDIF
  $debug_mode="no"
  IF (len(ExpandEnvironmentVars(CHR(37)+"kix-debug"+CHR(37))) <> 0)
    $debug_mode="yes"
  ENDIF
  ;
  IF ($debug_mode <> "yes")
    ? "Informative INSTALL: no creation of debug list '%tmp%\kixdebug.txt'"
  ELSE
    ? "Informative INSTALL: create debug list '%tmp%\kixdebug.txt'"
    IF (Exist($system_drive+"kix"+substr(@kix,1,1)+substr(@kix,3,2)+".ok") = 1) OR (Exist($destination_directory+"kix"+substr(@kix,1,1)+substr(@kix,3,2)+".ok") = 1)
      $message="Installation of Kixtart "+@kix+" completed from '"+LCASE(@curdir)+"'."
      $message=$message+" File '"+UCASE("kix"+substr(@kix,1,1)+substr(@kix,3,2)+".ok")+"' created."
    ELSE
      $message="Installation of Kixtart "+@kix+" incompleted from '"+LCASE(@curdir)+"'."
      $message=$message+" No file '"+UCASE("kix"+substr(@kix,1,1)+substr(@kix,3,2)+".ok")+"' created."
    ENDIF
    $title="Kixtart "+@kix
    IF (MessageBox($message, $title, 340, 300) <> 0)
    ENDIF
    ? $message
  ENDIF
  break on
  flushkb

---