.key drive
IF "<drive>" EQ ""
  ECHO "Type EXECUTE HDINSTALL [drive]    e.g.   EXECUTE HDINSTALL dh0:"
  QUIT
ENDIF
ECHO "*nX-CAD 2000 - Installing on Hard Disc <drive>*n"
IF EXISTS <drive>XCAD2000
  ECHO "  X-CAD 2000 already installed! Please BACKUP/DELETE as required,"
  ECHO "  before continuing.*n"  
  QUIT
ELSE
  MAKEDIR <drive>XCAD2000
  COPY XCAD2000:empty.info TO ram:
  RENAME ram:empty.info TO ram:XCAD2000.info
  COPY ram:XCAD2000.info TO <drive>
  delete ram:XCAD2000.info
;  
  ECHO "Copying X-CAD 2000 files to <drive>XCAD2000"
;  
  COPY XCAD2000:Xcad20003D TO <drive>XCAD2000
  COPY XCAD2000:Xcad_Dongle TO <drive>XCAD2000
  COPY XCAD2000:VN3D2000 TO <drive>XCAD2000
  COPY XCAD2000:s/xcad#? TO s:
	
	ASK "Are you using a United Kingdom (PAL) Amiga?  (Y/N)"
  	IF warn
  		ECHO "UK machine - copying PAL icons"
		COPY XCAD2000:2D_HiRes TO <drive>XCAD2000
		COPY XCAD2000:2D_MedRes TO <drive>XCAD2000
		COPY XCAD2000:2D_HiRes.info TO <drive>XCAD2000
		COPY XCAD2000:2D_MedRes.info TO <drive>XCAD2000
 		COPY XCAD2000:XCAD2000 TO <drive>XCAD2000
 		COPY XCAD2000:3D_HI-16col TO <drive>XCAD2000
  		COPY XCAD2000:3D_MED-16col TO <drive>XCAD2000
  		COPY XCAD2000:3D_HI-8col TO <drive>XCAD2000
  		COPY XCAD2000:3D_MED-8col TO <drive>XCAD2000
 		COPY XCAD2000:3D_HI-16col.info TO <drive>XCAD2000
  		COPY XCAD2000:3D_MED-16col.info TO <drive>XCAD2000
  		COPY XCAD2000:3D_HI-8col.info TO <drive>XCAD2000
  		COPY XCAD2000:3D_MED-8col.info TO <drive>XCAD2000
    ELSE
   		ECHO "USA machine - copying NTSC icons"
		COPY XCAD2000:2D_HiRes-NTSC TO <drive>XCAD2000
		COPY XCAD2000:2D_MedRes-NTSC TO <drive>XCAD2000
		COPY XCAD2000:2D_HiRes-NTSC.info TO <drive>XCAD2000
		COPY XCAD2000:2D_MedRes-NTSC.info TO <drive>XCAD2000
 		COPY XCAD2000:XCAD2000.NTSC TO <drive>XCAD2000
 		COPY XCAD2000:3D_HI-16col-NTSC TO <drive>XCAD2000
  		COPY XCAD2000:3D_MED-16col-NTSC TO <drive>XCAD2000
  		COPY XCAD2000:3D_HI-8col-NTSC TO <drive>XCAD2000
  		COPY XCAD2000:3D_MED-8col-NTSC TO <drive>XCAD2000
 		COPY XCAD2000:3D_HI-16col-NTSC.info TO <drive>XCAD2000
  		COPY XCAD2000:3D_MED-16col-NTSC.info TO <drive>XCAD2000
  		COPY XCAD2000:3D_HI-8col-NTSC.info TO <drive>XCAD2000
  		COPY XCAD2000:3D_MED-8col-NTSC.info TO <drive>XCAD2000
    ENDIF
;
   ASK "Are you using an A3000 machine?  (Y/N)"
   IF WARN
      ECHO "Copying A3000 icon"
        COPY XCAD2000:3D_HI-16col-A3000 TO <drive>XCAD2000
        COPY XCAD2000:3D_HI-16col-A3000.info TO <drive>XCAD2000
   ENDIF
;  
	COPY XCAD2000:handlers TO <drive>XCAD2000/handlers ALL
	COPY XCAD2000:menus TO <drive>XCAD2000/menus ALL
	MAKEDIR <drive>XCAD2000/drawings
	MAKEDIR <drive>XCAD2000/symbols
;  
	ECHO "*nPlease insert disc 2 in any drive ..."
  COPY XCAD2000-2: TO <drive>XCAD2000 ALL
  ECHO "*nPlease insert disc 3 in any drive ..."
  COPY XCAD2000-3: TO <drive>XCAD2000 ALL
  ECHO "*nPlease insert disc 4 in any drive ..."
  COPY XCAD2000-4:demo-drawings TO <drive>XCAD2000/drawings ALL
  IF WARN
    ECHO "Error occurred during installation."
    QUIT
  ENDIF
ENDIF
;
ASK "Add ASSIGNs to your STARTUPII / USER-STARTUP file? (Y/N) "
IF WARN
	ECHO > ram:xq1 "ASSIGN MENUS:    <drive>XCAD2000/MENUS"
	ECHO > ram:xq2 "ASSIGN XCAD20003DPMODS:    <drive>XCAD2000/PMODS"
	ECHO > ram:xq3 "ASSIGN XCAD20003DHANDLERS: <drive>XCAD2000/HANDLERS"	
	ECHO > ram:xq4 "ASSIGN DRAWINGS: <drive>XCAD2000/DRAWINGS"
	ECHO > ram:xq5 "ASSIGN XSDATA:   <drive>XCAD2000/XSDATA"
	ECHO > ram:xq6 "ASSIGN XSFONTS:  <drive>XCAD2000/XSFONTS"
	ECHO > ram:xq7 "ASSIGN XSLOVLY:  <drive>XCAD2000/XSLOVLY"
	ECHO > ram:xq8 "ASSIGN XSMODS:   <drive>XCAD2000/XSMODS"
	ECHO > ram:xq9 "ASSIGN XSPOVLY:  <drive>XCAD2000/XSPOVLY"
	ECHO > ram:xq10 "ASSIGN SYMBOLS:  <drive>XCAD2000/SYMBOLS"
	ECHO > ram:xq11 "ASSIGN XCAD20003D:  <drive>XCAD2000"
	ECHO > ram:xq12 "XCAD20003D:Xcad_Dongle"
;	
	VERSION >NIL: 36
	IF WARN
		;ECHO "Version 1.2 or 1.3*n"
		IF EXISTS S:startupII
			RENAME S:startupII TO S:startupII.pre2000		
			JOIN ram:xq1 ram:xq2 ram:xq3 ram:xq4 ram:xq5 ram:xq6 ram:xq7 ram:xq8 ram:xq9 ram:xq10 ram:xq11 S:startupII.pre2000 as S:startupII
    	DELETE ram:xq#?
    	ECHO "*nAssignments made - old file saved as STARTUPII.pre2000"
  	ELSE
  		ECHO"*nUnable to find S:startupII"
    	QUIT
  	ENDIF
	ELSE
		;ECHO "using 2.0 Kickstart!*n" 
		IF EXISTS S:User-startup
			RENAME S:User-startup TO S:User-startup.pre2000		
			JOIN ram:xq1 ram:xq2 ram:xq3 ram:xq4 ram:xq5 ram:xq6 ram:xq7 ram:xq8 ram:xq9 ram:xq10 ram:xq11 ram:xq12 S:User-startup.pre2000 as S:User-startup
    	DELETE ram:xq#?
    	ECHO "*nAssignments made - old file saved as User-startup.pre2000"
  	ELSE
  		ECHO"*nUnable to find S:User-startup"
    	QUIT
  	ENDIF
	ENDIF
ELSE
	ECHO "*nAll X-CAD 2000 files and icons copied onto hard disc.*n"
	QUIT
ENDIF
ECHO "*nAll X-CAD 2000 files and icons copied onto hard disc."
ECHO "and all assigns made.*n"
QUIT