;
; CIM's Installer Script.
; $VER: V0.96 (05.02.1999)
; Written by Jan-Erik Tervo
;

(ONERROR
      (EXIT)
        )

(SET @default-dest "SYS:Expansion")



; ENGLISH STRINGS

(SET #alku_str
     (cat "\n\n\nWelcome to the CIM Installer script.\n\nCIM (the Caller Id Manager) (C) Jan-Erik Tervo 1996, 1997, 1998, 1999.\n\nCharity- /Shareware.\n\n\n")
    )

(SET #where_to_str
     (cat "Select where to install CIM (A sub directory will NOT be created there - to create a dir use the Make New Drawer-gadget).")
    )

(SET #str-installing-exe
     (cat "\n\nInstalling...")
    )


(MESSAGE #alku_str)

(complete 0)

(SET CIMdir "SYS:")
(SET CIMdirname (TACKON CIMdir "CIM"))


(SET CIMdir
     (ASKDIR (prompt #where_to_str)
                                   (HELP "No help for this function")
                                   (DEFAULT @default-dest)

           )
)

(SET @default-dest CIMdir)



(complete 25)

;  Install Stuff


(copyfiles
        (help "No help for this function")
        (source "Stuff/")
        (pattern "#?")
        (dest CIMdir)
        (prompt #str-installing-exe)
         )

(complete 50)




(startup "CIM - http://www.netti.fi/~jet/cim/"
     (prompt
          "\nSome instructions need to be added to the \"s:user-startup\" so that your system will be properly configured to use CIM.")
     (help "No help for this function")
     (command "ASSIGN CIM: " CIMdir)
)


                                                                                                                                                                                                                                (complete 70)

                                                                                                                                                                                                                                (IF (exists "cim_v2.key")
                                                                                                                                                                                                                                      (copyfiles
                                                                                                                                                                                                                                           (source "cim_v2.key")
                                                                                                                                                                                                                                           (dest "s:")
                                                                                                                                                                                                                                                  )
                                                                                                                                                                                                                                       )

(complete 90)

(MESSAGE "\n\nInstallation completed.\n\n\nCIM's Official Home Page located at: http://www.netti.fi/~jet/cim\n")

(run "assign CIM:" CIMdir)

(run "protect CIM:bin/cim rwed")

(complete 100)

; end of installation

(exit)