ECHO "====================================================="
ECHO "== Monument-Titler © 1994 by proDAD                =="
ECHO "====================================================="
ECHO " "


;---------------- Mony bereits vorhanden ----------------
ASSIGN clinit: MonumentTitler-Disk-1:
clinit:c/copy clinit:c/copy ram:

clinit:c/ms2 -f

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



IF EXISTS clssa
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " Sie müssen zuerst das HDInstall-Icon an die "
  ECHO " gewünschte Position auf Ihrer Festplatte schieben."
  ECHO " Danach den Installationsprozeß mit Doppelklick auf"
  ECHO " das HDInstall-Icon starten. Hierauf wird"
  ECHO " automatisch eine Schublade angelegt, "
  ECHO " die das Programm beinhaltet. "
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  Wait 10
ELSE


  FailAt 21

  Delete >NIL: HDInstall#?

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

  IF NOT EXISTS MonumnetTitler/Pattern
    IF EXISTS /MonumnetTitler/Pattern
      cd /
    ENDIF
  ENDIF



;------------------- Mony Disk 1 ------------------

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


  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " MonumentTitler wird nun auf Ihrer Festplatte "
  ECHO " installiert."
  ECHO ""
  ECHO "nach..."
  cd
  ECHO ""
  ECHO ""
  ECHO " Die Installation dauert einige Minuten. Am Ende wird"
  ECHO " der erfolgreiche Installationsprozeß bestätigt."
  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 " s:user-startup ist nicht vorhanden!!!!! ????"
      ECHO " Es liegt kein Standard-Betriebssystem vor."
      ECHO " MonumentTitler erzeugt jetzt eine user-startup und "
      ECHO " korrigiert Ihr System."
      ECHO "---------------------------------------------------"
      Execute clinit:Install/_MakeUserSt
    ENDIF

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



  ECHO >t:cl " MonumentTitler Installation"

  ram:COPY clinit:x/ssa1.LZH ram:
  ram:lharc >>t:cl -n -m -c x  ram:ssa1.LZH ram:
  ram:COPY >>t:cl ram:ssa ssa: all
  DELETE >nil: ram:ssa all
  DELETE >nil: ram:ssa1.LZH

  ram:lharc >>t:cl -n -m -c x  clinit:x/ssa2.LZH libs:

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



;------------------- Mony Disk 1 ------------------

  MakeDir >nil: Prefs
  MakeDir >nil: fonts:_bullet
  MakeDir >nil: CGFonts

  ram:lharc >>t:cl -n -m -c x  clinit:x/cl0.LZH
  ram:lharc >>t:cl -n -m -c x  clinit:x/cl4.LZH fonts:_bullet/

  IF NOT EXISTS libs:bullet.library
   ram:lharc >>t:cl -n -m -c x  clinit:x/cl3.LZH libs:
  ENDIF



;------------------- Mony Disk 2 ------------------
  ECHO "*E[0;0H*E[J"
  ECHO " "
  ECHO " "
  ECHO " "
  ECHO " "
  ECHO " "
  ECHO " "
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " Bitte legen Sie Diskette 2 ein."
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " "

  ASSIGN clinit: MonumentTitler-Disk-2:
  ECHO "*E[0;0H*E[J* "
  ECHO " "
  ECHO " Bitte warten, Installation läuft."


  ram:lharc >>t:cl -n -m -c x  clinit:x/cl1.LZH


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

  ECHO "*E[0;0H*E[J* "
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " Monument-Ti befindet sich jetzt auf Ihrer Festplatte."
  ECHO " "
  ECHO " Monument-Titler finden Sie in der Schublade:"
  ECHO " "
  cd
  ECHO " "
  ECHO " "
  ECHO " "
  ECHO " Nach 10 Sekunden wird eine Übersicht, der letzten"
  ECHO " Änderungen bzw. Neuheiten angezeigt."
  ECHO " "
  ECHO "---------------------------------------------------"
  ECHO "---------------------------------------------------"
  ECHO " "
  ECHO " proDAD wünscht Ihnen viel Spaß."
  Wait 10

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

ENDIF

ASSIGN clinit: remove

EndCli