;****************************************************************************
; Power Computing XL Disk Drive Series Install Script, Version 1.0.3
; Copyright (c) 1996 Power Computing LTD
;
; $VER: 1.0.3 (23 June 1996) Power Computing LTD    
;
; Written By Adam Low
;****************************************************************************

(set prgname "Power XL Series")
(set srcdir "PowerXLSeries:XL")   
(set PatchN "XLPatch")
(set StartupTextN "PowerXLSeries:XL/StartupXLN")
(set PatchS "SuperXLPatch")
(set StartupTextS "PowerXLSeries:XL/StartupXLS")
(user 2)            
 
(message "\n\nPower Computing XL Series Install Disk\n\n"
         "Copyright © 1991,1996 Power Computing LTD\nAll rights reserved.\n\n"
         "Supplied with Power Computing's high quality range of XL disk drives.")     
                                                    
(set XLType (askchoice                                       
                       (prompt "\nWhich XL disk drive have you purchased ?\n")      
                       (help   "\nSelect the XL disk drive you have purchased, at present there are only two, a high density drive and a extra density drive.")
                       (choices "Standard XL Drive 1.76MB" "Super XL Drive 3.52MB")              
                       (default 0)))                                         

(if (= XLType 0)
(copyfiles      (prompt "Copying XL Patch to: C:")
                (help @copyfiles-help)                     
                (source srcdir)                               
                (dest "C:")      
                (choices "XLPatch")))                     

(if (= XLType 1)                              
(copyfiles      (prompt "Copying Super XL Patch to: C:")
                (help @copyfiles-help)                     
                (source srcdir)                               
                (dest "C:")      
                (choices "SuperXLPatch"))) 

(if (= XLType 0)(rename "S:User-Startup" "S:User-Startup.bak"))
(if (= XLType 0)
(textfile       (prompt "Updating Startup Files ...")                                                     
                (dest "S:User-Startup")
                (help "None Available")
                (include StartupTextN)
                (include "S:User-Startup.bak")))                                     
                                                  
(if (= XLType 1)(rename "S:Startup-Sequence" "S:Startup-Sequence.bak"))
(if (= XLType 1)
(textfile       (prompt "Updating Startup Files ...")                                                     
                (dest "S:Startup-Sequence")
                (help "None Available")
                (include StartupTextS)                 
                (include "S:Startup-Sequence.bak")))  
                
(message "\nInstallation Complete !!\n\n"
         "** Please Reboot before using your XL drive **\n\n"
         "If you require any technical assistance please contact our technical department\n"
         "\n  Tel: 01234 273000      Fax: 01234 352207"            
         "\nPlease note the technical department is only open weekdays, 10:30am to 16:30pm (GMT)."
         "\n\nThank You for purchasing from Power Computing LTD.")

(exit (quiet))
(welcome)