/* Sauvegarde de la palette courante dans un fichier */
/* Le fichier sauvé peut être relu par le menu Préférences/Configuration/Charger */
/* $VER: 1.00, © R.Florac (Chez Corbin, 23 Avril 1998) */

options results     /* indispensable pour récupérer le résultat des macros */

signal on error     /* pour l'interception des erreurs */
signal on syntax

'REQFILE("Nom du fichier destination?", "")'; fichier=result
if fichier ~="" then do
    if open(file, fichier, 'W') then do
	call writeln(file, "AmiCADPrefs 1.1")
	call writeln(file, "[Palette]")
	do color=0 to 15
	    c="Color"||color||"="
	    'GETCOLOR('color')'; c=c||result
	    call writeln(file,c)
	end
	close(file)
    end
end

exit

/* Traitement des erreurs, interruption du programme */
syntax:
erreur=RC
'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit

error:
'MESSAGE("Erreur en ligne 'SIGL'")'
exit