ECHO "====================================================="
ECHO "==        Konrad © 1994-1995 by proDAD             =="
ECHO "====================================================="
ECHO " "

FailAt 99

;---------------- Konrad already exists ----------------
ASSIGN clinit: Konrad-Disk-1:
clinit:c/copy clinit:c/copy to ram:

clinit:c/ms2 -f

IF EXISTS clssa
  ASSIGN >nil: ssa: exists
  IF NOT WARN
    cd >t:cl0
    IF EXISTS ssa:ip/Konrad
      clinit:c/ms2 >t:cl -cd ssa:ip/Konrad
      execute t:cl
      IF NOT EXISTS Prefs
        clinit:c/ms2 >t:cl -cd t:cl0
        execute t:cl
      ENDIF
    ENDIF
  ENDIF
ENDIF



IF EXISTS clssa
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " Please place the HDInstall icon where you wish "
  ECHO " to install Konrad on your hard drive."
  ECHO " Double clicking on the icon will then start the"
  ECHO " installation process. A drawer will be created"
  ECHO " into which Konrad will be installed."
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  Wait 10
ELSE


  FailAt 99

  Delete >NIL: HDInstall#?

  ram:COPY >nil: clinit:c/lharc to ram:lharc

  IF NOT EXISTS Konrad/Prefs
    IF EXISTS /Konrad/Prefs
      cd /
    ENDIF
  ENDIF


;------------------- Konrad Disk 1 ------------------

  IF NOT EXISTS Konrad.info
    MakeDir >nil: Konrad
    ram:COPY >nil: clinit:_info to Konrad.info
  ENDIF
  cd Konrad

  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " Konrad will now be installed on your hard drive."
  ECHO ""
  ECHO "to..."
  cd
  ECHO ""
  ECHO " Pleace wait."
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"



;---------------- SSA -----------------------------------
  ASSIGN >nil: ssa: exists
  IF NOT WARN
    IF EXISTS sys:SSA
      ASSIGN >nil: ssa: remove
      delete >nil: sys:SSA/vf all
      delete >nil: sys:SSA/gcs all
      delete >nil: sys:SSA/ip  all
      delete >nil: sys:SSA/script all
      delete >nil: sys:SSA
    ENDIF
  ENDIF

  ASSIGN >nil: ssa: exists
  IF WARN
    IF NOT EXISTS s:user-startup
      ECHO "*E[0;0H*E[J* "
      ECHO "---------------------------------------------------"
      ECHO " There is no s:user-startup!!!!! ????"
      ECHO " No standard OS."
      ECHO " Konrad create a user-startup and correct the OS."
      ECHO "---------------------------------------------------"
      Execute clinit:Install/_MakeUserSt
    ENDIF

    IF NOT EXISTS SSA-System
      MakeDir SSA-System
    ENDIF
    ASSIGN  SSA: SSA-System
    clinit:c/ms2 >nil: -su
    clinit:c/ms2 -s SSA-System
  ENDIF



  ECHO >t:cl " Konrad Installation"

  ECHO "install SSA-System ..."
  ram:COPY clinit:x/ssa1.LZH to ram:
  ram:lharc >>t:cl -n -m -c x  ram:ssa1.LZH ram:
  ram:COPY >>t:cl ram:ssa to ssa: all
  DELETE >nil: ram:ssa all
  DELETE >nil: ram:ssa1.LZH


  clinit:c/Version >nil: ssa.library 4 153
  IF WARN
    ECHO "install ssa.library ..."
    ram:lharc >>t:cl -n -m -c x  clinit:x/ssa2.LZH libs:
  ENDIF

  clinit:c/Version >nil: asl.library 38 30
  IF WARN
    ECHO "install asl.library (V38) ..."
    ram:COPY >>t:cl clinit:libs/asl.library to libs:
  ENDIF

  MakeDir >nil: ssa:ip
  cd >SSA:ip/Konrad



;------------------- Konrad Disk 1 ------------------


  ECHO "install Progrm with Guide ..."
  ram:lharc >>t:cl -n -m -c x  clinit:x/cl0.LZH

  IF EXISTS clinit:x/cl9.LZH
    ECHO "install Adorage - Guide ..."
    ram:lharc >>t:cl -n -m -c x  clinit:x/cl9.LZH
  ENDIF

  ECHO "install Images ..."
  makedir >nil: pic
  ram:COPY >>t:cl clinit:Pic "pic" all

;---------------------- End ------------------

  ECHO "*E[0;0H*E[J* "
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " Konrad is now installed on your hard disk."
  ECHO " "
  ECHO " Konrad is in Drawer:"
  ECHO " "
  cd
  ECHO " "
  ECHO " "
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " "
  ECHO " proDAD hopes you will enjoy yourself."
  Wait 10

  DELETE >nil: ram:lharc
  ram:COPY t:cl ssa:ip/Konrad_Installation

ENDIF

ASSIGN clinit: remove

EndCli