* UTI7
NIVEAU=3
TITRE="Gestion de la couleur"
DO TITRE
FCC0=SUBSTR(C0+SPACE(10),1,10)
FCC1=SUBSTR(C1+SPACE(10),1,10)
FCC2=SUBSTR(C2+SPACE(10),1,10)
FCC3=SUBSTR(C3+SPACE(10),1,10)
FCC4=SUBSTR(C4+SPACE(10),1,10)
FCC5=SUBSTR(C5+SPACE(10),1,10)
FCC6=SUBSTR(C6+SPACE(10),1,10)
FCC7=SUBSTR(C7+SPACE(10),1,10)
FCC8=SUBSTR(C8+SPACE(10),1,10)
FCC9=SUBSTR(C9+SPACE(10),1,10)
FCC10=SUBSTR(C10+SPACE(10),1,10)
@8,0 SAY "Fond de l'‚cran......................" GET FCC0
@9,0 SAY "Affichage ‚cran normal..............." GET FCC1
@10,0 SAY "Zones de saisie....................." GET FCC2
@11,0SAY "Libell‚ du titre....................." GET FCC3
@12,0SAY "Libell‚ de la soci‚t‚................" GET FCC4
@13,0SAY "Signification des touches de fonction" GET FCC5
@14,0SAY "Contenu des touches de fonction......" GET FCC6
@15,0SAY "Ligne courante Modifier en liste....." GET FCC7
@16,0SAY "Titre Modifier en liste.............." GET FCC8
@17,0SAY "Bandeau de bas d'‚cran..............." GET FCC9
@18,0SAY "Affichage * Annull‚e * .............." GET FCC10
IF ISCO()
@6,0 SAY "Ecran couleur"
@20,0 SAY "Noir......... N    Bleu......... B   Vert.......... G   Cyan........ BG"
@21,0 SAY "Invisible.... X    Rouge........ R   Magenta....... RB  Marron...... GR"
@22,0 SAY "Blanc........ W    Surintensit‚. +   Clignotement.. *"
ELSE
@6,0 SAY "Ecran monochrome"
@20,0 SAY "Noir......... N    Blanc........ W   Soulign‚...... U"
@21,0 SAY "Invisible.... X    Surintensit‚. +   Clignotement.. *"
ENDI
READ
IF READKEY()<256
RETU
ENDI
C0=TRIM(LTRIM(FCC0))
C1=TRIM(LTRIM(FCC1))
C2=TRIM(LTRIM(FCC2))
C3=TRIM(LTRIM(FCC3))
C4=TRIM(LTRIM(FCC4))
C5=TRIM(LTRIM(FCC5))
C6=TRIM(LTRIM(FCC6))
C7=TRIM(LTRIM(FCC7))
C8=TRIM(LTRIM(FCC8))
C9=TRIM(LTRIM(FCC9))
C10=TRIM(LTRIM(FCC10))
SET COLO TO &C1
@9,70 SAY " Couleur "
SET COLO TO &C2
@10,70 SAY " Couleur "
SET COLO TO &C3
@11,70 SAY " Couleur "
SET COLO TO &C4
@12,70 SAY " Couleur "
SET COLO TO &C5
@13,70 SAY " Couleur "
SET COLO TO &C6
@14,70 SAY " Couleur "
SET COLO TO &C7
@15,70 SAY " Couleur "
SET COLO TO &C8
@16,70 SAY " Couleur "
SET COLO TO &C9
@17,70 SAY " Couleur "
SET COLO TO &C10
@18,70 SAY " Couleur "
SET COLO TO &C1,&C2
REP=" "
DO QUEST WITH 24,0,"D'accord pour enregistrer O/N/Esc"
IF REP$"Oo"
SET SAFE OFF
SAVE TO COULEUR.MEM ALL LIKE C*
SET SAFE ON
ELSE
REST FROM COULEUR ADDI
ENDI
RETU