; T-Zer0 Setup Installer-script
; $VER: V1.21, 11 Giugno 1999
; ============================================================================

(set @abort-button "Abort Setup")

(set #hello-message
   (cat "\n\n\n"
	"--------- T-zer0 ---------"
	"\n"
	"Setup Utility"
	"\n\n\n"
	"(c) 1999 PXL Computers Inc. and clickBOOM"
	"\n\n\n"
	"www.clickboom.com\n"
	"www.pxlcomputers.com\n"
	))

(set #welcome (cat "------------------- T-zer0 SetUp -------------------"))
(set #cdaudio 0)
(set #save 1)
(Procedure Intro (message #hello-message))

(Procedure Selective
 (set #type
   (askchoice (prompt "------------------ Main SetUp Menu ------------------")
	      (help @askchoice-help)
	      (choices "- CD Audio  Setup -"
		       "!Save Preferencies!")
	      (default #type))))

(Procedure CDAudioPrefs
   (set #cdaudio_device
    (askstring (prompt "--------------- CD-ROM Control Device ---------------"
		       "\n\n"
		       " Please enter the name of your CD-ROM device \n"
		       " controller. For ATAPI drives, it should be something like \n"
		       " 'cd.device' or 'atapi.device'. For SCSI drives \n"
		       " it is usually 'scsi.device'. ")
	      (help @askstring-help)
	      (default #cdaudio_device)))
   (set #cdaudio_unit
    (asknumber (prompt "------------- CD-ROM Device Unit Number -------------"
		       "\n\n"
		       " Please enter the unit number of your CD-ROM device. ")
	      (help @asknumber-help)
	      (range 0 7)
	      (default #cdaudio_unit)))
   )

(if (exists "T0Prefs/T0.Prefs")
	 (set #rtype 0)
	((message "\n Error!!!\n Unable to locate T0 path...")
	 (exit (quiet))))

(if (= (exists "Ram:T0.Prefs") 0)
	(copyfiles (source "T0Prefs/T0.Prefs") (dest "ram:") (nogauge))
)

(run "T0Prefs/T0CD -GET cd_device")
(set #cdaudio_device (getenv "T0"))

(run "T0Prefs/T0CD -GET cd_unit")
(set #cdaudio_unit (getenv "T0"))


(Intro)
(welcome #welcome)
(Until (= #type #save)
(set #type #rtype)
(Selective)
(If (= #type #cdaudio)  (CDaudioPrefs))
)

(run "T0Prefs/T0CD -SET cd_device "     #cdaudio_device)
(run "T0Prefs/T0CD -SET cd_unit "       #cdaudio_unit)

;(copyfiles
;        (source "ram:T0.Prefs")
;        (dest "T0Prefs/")
;        )
(exit (quiet))