;PPM HD-Installer Script written by Mark Wetzel
;Last Modified: march 1991
;
echo "PREMIERE INSTALLATION SUR DISQUE DUR.*N"
echo "ATTENTION: CETTE PROCEDURE VA ECRIRE SUR VOTRE DISQUE DUR."
ask  "VOULEZ-VOUS CONTINUER ? [PRESSER RETURN POUR QUITTER] "
;
if NOT WARN
endcli > nil:
ENDIF
;
failat 30
;
echo "CHOISISSEZ MAINTENANT SUR QUELLE PARTITION VOUS VOULEZ"
echo "INSTALLER Publishing Partner Master"
echo " "
echo "CHOIX DE LA PARTITION [dh0:, dh1:, Work:,  etc..]"
getline >RAM:__PPM
;
CD <RAM:__PPM >NIL: ?
IF WARN
  echo "PARTITION DISQUE DUR NON VALIDE"
  SKIP endit
Endif
delete RAM:__PPM
;
echo "*NCREATION DU REPERTOIRE DE Publishing Partner Master: PPM"
makedir PPM
copy PPM1:System.info to PPM.info quiet
cd PPM
;
; Copying the files
;
echo "*NCOPIE DE TOUS LES FICHIERS DANS LE REPERTOIRE PPM"
echo " "
echo "   CECI PRENDRA UN CERTAIN TEMPS..."
echo " "
;
;                                        Disk 1   *****
copy PPM1:PPMasterF to PPMasterF quiet
copy PPM1:PPMasterF.info to PPMasterF.info quiet
makedir Document.PPM
makedir Polices.PPM
makedir Polices.PPM/CSTimes
makedir Polices.PPM/CSTriumvirate
makedir Polices.PPM/CGTypeBuckets
makedir Images.PPM
makedir Textes.PPM
makedir Divers.PPM
copy PPM1:Polices.PPM.info to Polices.PPM.info quiet
;
copy PPM1:Polices.PPM/#? to Polices.PPM all quiet
;
;                                        Disk 2   *****
copy PPM2:Document.PPM.info to Document.PPM.info quiet
copy PPM2:Document.PPM/#?.??? to Document.PPM ALL   quiet
;
copy PPM2:Polices.PPM/#?.??? to Polices.PPM ALL   quiet
copy PPM2:Polices.PPM/#?.?? to Polices.PPM ALL quiet
;
copy PPM2:Images.PPM.info to Images.PPM.info quiet
copy PPM2:Images.PPM/#?.??? to Images.PPM ALL quiet
;
copy PPM2:Textes.PPM.info to Textes.PPM.info quiet
copy PPM2:Textes.PPM/#?.??? to Textes.PPM ALL quiet
;
copy PPM2:Divers.PPM.info to Diver.PPM.info quiet  
copy PPM2:Divers.PPM/???????? to Divers.PPM ALL quiet
copy PPM2:Divers.PPM/#?.?????? to Divers.PPM ALL quiet
copy PPM2:Divers.PPM/#?.??????? to Divers.PPM ALL quiet
copy PPM2:Divers.PPM/French to Divers.PPM quiet
;
;                                        Disk 3   ***** 
copy PPM3:Polices.PPM/#?.??? to Polices.PPM ALL quiet 
copy PPM3:Polices.PPM/#?.?? to Polices.PPM ALL quiet 
;
;                                        Disk 4   ***** 
copy PPM4:Polices.PPM/#?.??? to Polices.PPM ALL quiet
copy PPM4:Polices.PPM/#?.?? to Polices.PPM ALL quiet  
;
;                                        Disk 5   *****
copy PPM5:Polices.PPM/#?.??? to Polices.PPM ALL quiet
copy PPM5:Polices.PPM/#?.?? to Polices.PPM ALL quiet
copy PPM5:Divers.PPM/#?.??????? to Divers.PPM ALL quiet  
copy PPM5:Divers.PPM/American to Divers.PPM ALL quiet
copy PPM5:Divers.PPM/German to Divers.PPM ALL quiet
copy PPM5:Divers.PPM/English to Divers.PPM ALL quiet
;
;                                        Disk 6   *****
copy PPM6:CSTimes/#? to Polices.PPM/CSTimes ALL quiet
copy PPM6:CSTriumvirate/#? to Polices.PPM/CSTriumvirate ALL quiet
copy PPM6:CGTypeBuckets/#? to Polices.PPM/CGTypebuckets ALL quiet
;
delete Polices.PPM/Fontlistv2
; 
echo " "
echo "INSTALLATION TERMINEE"
echo " "
;
lab endit
Wait 8
endcli >nil: