;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}
; |         HARD DRIVE INSTALL SCRIPT         |
;{*}                   BY                    {*}
; |              CYANIDE / LSD                |
;{*}                CREATED                  {*}
; |            04 - NOVEMBER - 1995           |
;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}
; |   - PUSH n PULL HD VERS - LSD RELEASE -   |
;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}

(onerror
   (makeassign "PUSHnPULL" (safe)))

(complete 0)

(makeassign "PUSHnPULL" (safe))

(set is_update 0)

(message "\n\nPUSH n PULL HD INSTALLER\n"
         "BY\n"
         "CYANIDE / LSD")

(set PUSHnPULL_Dest (getassign "PUSHnPULL" "a"))

(if PUSHnPULL_Dest
   (message "You have already installed PUSH n PULL on this\n"
             "system The current copy is located in the\n"
             "drawer named \"" PUSHnPULL_Dest"\".")
    (set PUSHnPULL_Dest
        (tackon
            (askdir
(prompt "Where do you want PUSH n PULL installed?\n"
        "A directory will automatically be created for you.\n")
    (help @askdir-help)
        (default @default-dest))
"PUSHnPULL"))
    (set PUSHnPULL_Dest
        (tackon
            (askdir
(prompt "Where do you want PUSH n PULL installed?")
    (help @askdir-help)
        (default @default-dest))
"PUSHnPULL")))

(if     (not is_update)
   (makedir PUSHnPULL_Dest (infos)))

(set @default-dest PUSHnPULL_Dest)

(run "CND-LSD:np -p2 CND-LSD:Module")

(complete 20)

(working "\n\nReading the Install disk\n"
         "for PUSH n PULL files.")

(copyfiles
    (source "CND-LSD:")
        (dest PUSHnPULL_Dest)
 (infos) (all))

(complete 80)

(run "delete" (tackon PUSHnPULL_Dest "np"))
(run "delete" (tackon PUSHnPULL_Dest "ppmore"))
(run "delete" (tackon PUSHnPULL_Dest "module"))
(run "delete" (tackon PUSHnPULL_Dest "disk.info"))
(run "delete" (tackon PUSHnPULL_Dest "installer"))
(run "delete" (tackon PUSHnPULL_Dest "push-n-pull.text"))
(run "delete" (tackon PUSHnPULL_Dest "push-n-pull.install"))
(run "delete" (tackon PUSHnPULL_Dest "push-n-pull.text.info"))
(run "delete" (tackon PUSHnPULL_Dest "push-n-pull.install.info"))

(complete 90)

(message "\n\nThe module you have been listening to\n"
         "is\n"
         "WEGIE by AQUAFRESH\n"
         "\nRMB To Stop Music")

(complete 100)

(makeassign "PUSHnPULL" (safe))

(eXIT text)