;
; FileShow Installation Script $VER:1.4
; Guido 1994

(set @default-dest "Rexx:")
(set @default-ram "RAM:t")
(set @default-libs "LIBS:")
(set install 1)

(if
 (askbool
  (prompt "Would you like to install the FileShow Program?"
   " Remember to Configure a Dopus Button after the "
   "Installation program is finished.")

  (help "This will copy FileShowData  to REXX:"
   "                                FileShowRAD   to REXX:"
   "                                FileShowFF0   to REXX:"
   "                                FileShowV4.0  to REXX:"
   "                                FileShowGUIDE to REXX:"
   "                                Configopus    to RAM:T"
   "                                ReqTools      to Libs:"
   "                                RexxReqTools  to Libs:")
  (default 0)
  )
 (set install 1)
 (set install 0)
 )




(if (= 1 install )
(copyfiles
 (prompt ("Copying HelpFile to %s" @default-dest))
 (help @copyfiles-help)
 (source (pathonly @icon))
 (dest @default-dest)
 (choices "FileShowData""FileShowRAD""FileShowV4.0""FileShow.Guide""FileShowFF0")
 )
)

(if (= 1 install )
(copyfiles
 (prompt ("Copying T to %s" @default-ram))
 (help @copyfiles-help)
 (source (pathonly @icon))
 (dest @default-ram)
 (choices "configopus.clip")
 )
)

(if (= 1 install )
(copylib
   (prompt "Copying the rexxreqtools.library to your " @default-libs)
   (help @copylib-help)
   (source "libs/rexxreqtools.library")
   (dest @default-libs)
   (confirm)
 )
)

(if (= 1 install )
(copylib
   (prompt "Copying the reqtools.library to your " @default-libs)
   (help @copylib-help)
   (source "libs/reqtools.library")
   (dest @default-libs)
   (confirm)
 )
)