.KEY dest,help/s
.BRA {
.KET }

;RUN NoFastMem
;IF IsMem512 
;  ECHO "*nMemory is 512k.*n"
;ELSE
;  ECHO "*More Memory than 512k.*n"
;ENDIF

ECHO " "
IF {dest} EQ ""
   ECHO "*nYou must enter the Hard Disk name or Subdirectory.*n"
   ECHO "*nExample: 'Execute HDInstall DH0:Languages'*n"
;   ECHO "*nDon't forget the '/' ending mark if copying to a Subdirectory.*n"
   QUIT
ENDIF

IF NOT EXISTS {dest}
;  ECHO "*N ******** Unable to find {dest} ************"
;  ECHO "*N ********** Leaving HDInstall program **********"
;  QUIT
  Makedir {dest}
  ECHO "*N ********** Making Hard Disk Drawer {dest} **********"
ENDIF
; DH0:.info will already exist - don't want to replace
IF NOT EXISTS {dest}.info
  Copy FrenchGallery:icons/Empty.info to {dest}.info
ENDIF

IF NOT EXISTS {dest}
  ECHO "*N ********** Unable to make {dest}, Leaving HDInstall program **********"
  QUIT
ENDIF

; Make sure he's running WB 1.3!
; Under 1.3, the "1 gt 2" test fails; we proceed to "FAILAT 10".
; Under 1.2, however, the IF command itself dies, since GT is not defined; 
; execution is not suspended, and the ECHO and SKIP are seen.
FAILAT 21
IF >NIL: 1 gt 2
	ECHO "*NVersion 1.3 of the Amiga Workbench software *E[;1mmust*E[m be"
	ECHO "present before this installation can proceed.*N"
   QUIT
ENDIF
FAILAT 10


Echo "French Audio Gallery will now be installed on {dest}"
Ask "Do you want to proceed? (y/n)"
IF WARN
  Echo "Be sure the French Audio Gallery System Disk is in drive df0:"
  ECHO " "
  Ask "Press <return> to continue"
  CD "{dest}"
  ECHO " "
  IF NOT EXISTS FrenchGallery  
    ECHO "Making FrenchGallery Directory"
    Makedir FrenchGallery
    ECHO " "
  ELSE
    ECHO "FrenchGallery directory found..."  
    ECHO " "
  ENDIF

  IF NOT EXISTS FrenchGallery.info  
    Copy FrenchGallery:icons/Empty.info to ""
    Rename Empty.info to FrenchGallery.info
    ECHO " "
  ENDIF

  CD FrenchGallery
  ECHO "Copying French Audio Gallery files..."
    Copy FrenchGallery: all to "" 
  ECHO " "

  ECHO "Please insert French1 in any drive:"
  ECHO " "
  ASK "Press <return> to continue..."
  ECHO " "
  IF NOT EXISTS French1
    Makedir /French1
  ENDIF
  CD /French1
  ECHO "Copying French1 files..."
  Copy French1: all to "" 
  ECHO " "

  ECHO "Please insert French2 in any drive:"
  ECHO " "
  ASK "Press <return> to continue..."
  ECHO " "
  IF NOT EXISTS French2
    Makedir /French2
  ENDIF
  CD /French2
  ECHO "Copying French2 files..."
  Copy French2: all to "" 
  ECHO " "

  ECHO "Please insert French3 in any drive:"
  ECHO " "
  ASK "Press <return> to continue..."
  ECHO " "
  IF NOT EXISTS French3
    Makedir /French3
  ENDIF
  CD /French3
  ECHO "Copying French3 files..."
  Copy French3: all to "" 
  ECHO " "

  ECHO "Please insert French4 in any drive:"
  ECHO " "
  ASK "Press <return> to continue..."
  ECHO " "
  IF NOT EXISTS French4
    Makedir /French4
  ENDIF
  CD /French4
  ECHO "Copying French4 files..."
  Copy French4: all to "" 
  ECHO " "

  ECHO "Please insert French5 in any drive:"
  ECHO " "
  ASK "Press <return> to continue..."
  ECHO " "
  IF NOT EXISTS French5
    Makedir /French5
  ENDIF
  CD /French5
  ECHO "Copying French5 files..."
  Copy French5: all to "" 
  ECHO " "

  ECHO "Please insert FrenchExtras in any drive:"
  ECHO " "
  ASK "Press <return> to continue..."
  ECHO " "
  IF NOT EXISTS FrenchExtras
    Makedir /FrenchExtras
  ENDIF
  CD /FrenchExtras
  ECHO "Copying FrenchExtras files..."
  Copy FrenchExtras: all to "" 
  ECHO " "

;SKIP EndIt


LAB EndIt

  ECHO " "
  ECHO "Please insert French Audio Gallery System Disk in any drive:"
  ECHO " "
  ASK "Press <return> to continue..."
  ECHO " "

  CD /FrenchGallery
  COPY FrenchGallery:icons/AudioGallery.info to ""
  DELETE Gallery.info
  ECHO " "
  ECHO " Remove All Audio Gallery Disks from Disk Drives - "
  ECHO " "
  ASK  " Press <return> to continue... "
  ECHO " "

  CD {dest}
  CD FrenchGallery

  ECHO >AG " Assign FrenchGallery: /FrenchGallery "
  ECHO >AG1 " Assign French1: /French1 "
  ECHO >AG2 " Assign French2: /French2 "
  ECHO >AG3 " Assign French3: /French3 "
  ECHO >AG4 " Assign French4: /French4 "
  ECHO >AG5 " Assign French5: /French5 "
  ECHO >AGE " Assign FrenchExtras: /FrenchExtras "
  ECHO >GO  " Gallery "

  JOIN AG AG1 AG2 AG3 AG4 AG5 AGE GO as AudioGallery

  DELETE AG
  DELETE AG1
  DELETE AG2
  DELETE AG3
  DELETE AG4
  DELETE AG5
  DELETE AGE
  DELETE GO

  ECHO " "
  ECHO " Close Hard Disk Window, then Reopen, to run Audio Gallery"
  ECHO " from the new WorkBench Icon on your Hard Disk..."
  ECHO " "
  CD SYS:
 
;  ECHO " "
;  ECHO "   (1) Remove all disks and enter the following lines from the CLI "
;  ECHO " each time before running French Audio Gallery, or " 
;  ECHO " "
;  ECHO "   (2) Add the following lines to your Hard Disk startup-sequence file:"
;  ECHO " "
;  ECHO " Assign FrenchGallery: {dest}/FrenchGallery "
;  ECHO " Assign French1: {dest}/FrenchGallery/French1 "
;  ECHO " Assign French2: {dest}/FrenchGallery/French2 "
;  ECHO " Assign French3: {dest}/FrenchGallery/French3 "
;  ECHO " Assign French4: {dest}/FrenchGallery/French4 "
;  ECHO " Assign French5: {dest}/FrenchGallery/French5 "
;  ECHO " Assign FrenchExtras: {dest}/FrenchGallery/FrenchExtras "
;  ECHO " "

ENDIF