;
; $PROJECT: Upl v1.21 - (c) S.Gillibrand 1996-7
;

(complete 5)

(message "\n .#¸ #. #####_   ###        \n"
         " ##¹ ## ¬######  ###         \n"
         " ##  ##  ### ### ###         \n"
         " ##  ##  ### ##! ###         \n"
         " ##  ##  ######Þ ###         \n"
         " ##  ##  #####°  ###   _     \n"
         " ###_##  ###     ###__##     \n"
         " ¯####¯ ####     `#####  v1.21\n\n"
         "Installer\n\n"
         "-+- Digital Design Production 1996-7 -+-"
)

(complete 10)

(set rexxdir
		  (askdir
					 (prompt "Where is your BBS Rexx Directory located?")
					 (help @askdir-help)
					 (default "BBS:Rexx")
		  )
)

(set bindir
		  (askdir
					 (prompt "Where is your BBS Bin Directory located?")
					 (help @askdir-help)
					 (default "BBS:Bin")
		  )
)

(complete 20)

(set docsdir
		  (askdir
					 (prompt "Where is your BBS Docs Directory located?")
					 (help @askdir-help)
					 (default "BBS:Docs")
		  )
)

(complete 30)

					 (copyfiles (source "rexx") (dest (rexxdir)) (all))

(complete 35)

					 (copyfiles (source "docs/upl.guide") (dest (docsdir)))

(complete 40)

					 (copyfiles (source "bin") (dest (bindir)) (all))

(complete 45)

					 (copyfiles (source "c/dfree") (dest ("C:")))

(complete 50)

(message "\n\n Now take a look at the docs please :-)")
					 (run "c/guide docs/upl.guide")

(complete 60)

(message "\n\n Please edit File.Rx to include an entry for Upl\n"
			"Similair To:\n\n"
			"U Upload                  10 -------- Upl.Trans"
			"\n\nOr\n\n"
			"U Upload                  10 -------- UplOpt.Trans\n"
			"\nFor the REXX-OPTimized (Faster) version"
)

(set edline
	(askstring
		(prompt "\nPlease Enter Command Line To Run\n")
		(help "")
		(default "ced BBS:Configs/file.rx")
	)
)

(complete 70)

					 (run edline)

(complete 80)

(message "\n\n Please edit File.Cmds to remove entry for\n"
			"standard TransAmiga uploader:\n\n"
			"e.g.\n\n"
			". Upload File            256 --------"
)
(set edline
	(askstring
		(prompt "\nPlease Enter Command Line To Run\n")
		(help "")
		(default "ced BBS:Configs/file.cmds")
	)
)

(complete 85)

					 (run edline)

(complete 90)

(message "\n\n Please edit Upl.Trans and alter the\n"
			"variables to suite your needs:\n\n"
			"Read the VARIABLES! tag in the AmigaGuide\n"
			"documentation file for more information\n"
)
(set edline
	(askstring
		(prompt "\nPlease Enter Command Line To Run\n")
		(help "")
		(default "ced BBS:Rexx/Upl.Trans")
	)
)

(complete 93)

					 (run edline)

(complete 96)

(message "\n\n Please unarchive IceArc133.lha and use\n"
			"the included Commodore Installer or read\n"
			"the Guide file and install it manually!\n\n"
)
(set edline
	(askstring
		(prompt "\nPlease Enter Command Line To Run\n")
		(help "")
		(default "lha x bonus/icearc150.lha ram:")
	)
)

(complete 99)

					 (run edline)

(complete 100)

(message "\n\n\n\n-<*>- Upl Is Now Installed - Enjoy! -<*>-\n"
         "-<*>- Thanx For Choosing Digital Design -<*>-\n"
         "\nPlease Read The SUpl/DUpl/IceArc part of the GUIDE"
         "\nfile carefully!\n"
)