'************************************************************************
'--- Publication le 7 mai 2006
'--- Une creation de: AngeNoir
'--- Cree avec la version QuicBasic 4.5fr
'************************************************************************
SCREEN 12
CLS '                  136 couleurs en mode 12 et plus.
'         P.S  la couleur du grille peut etre en deux tons differents.
'              Cela augmente encore plus le nombre de couleurs.
'**********************[Representation de 136 couleurs]******************
CF = -1: COL = -26
FOR S = 0 TO 15
   CF = CF + 1: COL = COL + 26
   LINE (COL, 0)-(COL + 26, 445), CF, BF
   CT = 0: CO = 0
   FOR Y = 0 TO 445 STEP 2
      CT = CT + 1
      FOR X = COL TO COL + 26 STEP 2
         IF CT = 14 THEN CO = CO + 1: CT = 0
         IF CO > S THEN EXIT FOR
         PSET (X, Y), CO: PSET (X + 1, Y + 1), CO
NEXT: NEXT: NEXT
'**********************[Representation d'une couleurs]*******************
'------------------   - Voici comment obtenir la couleur voulu.
'------------------   - Choisir une couleur de Fond et de Grillage.
'------------------   - Ici le Fond=7 et le Grille=10 se qui donne
'------------------     une couleur Vert/Limette.
CFond = 7: CGril = 10'                               - Variable Couleurs.
LINE (480, 100)-(580, 200), CFond, BF'               - Couleur de Fond 2.
FOR Y = 100 TO 200 STEP 2'                           - Distance entre
   FOR X = 480 TO 580 STEP 2'                          chaque point.
      PSET (X, Y), CGril: PSET (X + 1, Y + 1), CGril'- Couleur de Grille.
NEXT: NEXT
'****************************************************************************
LINE (480, 100)-(581, 201), 2, B'       Encadrement final.
DO: LOOP WHILE INKEY$ = ""
END