'##E#
OpenW 1, 50, 50, 1220, 900
TitleW 1, "La course des couleurs"
Dim x%(16), texte$, i%, z%
Local fnt As Handle
Font "Comic Sans MS"
Font Italic 0, Weight 600 , Width 20, Height 60
Font To fnt
SetFont fnt
OpenW 1, 100, 100, 100, 100
texte$ = "La course des couleurs"
Print
Print
Print,
For i% = 1 To Len(texte$)
  Color Rand(_C)
  Print Mid$(texte$, i%, 1);
Next i%
Print
Print
Print,
texte$ = "Par Factor23 (23!)"
For i% = 1 To Len(texte$)
  Color Rand(_C)
  Print Mid$(texte$, i%, 1);
Next i%
Print
KeyGet z%
Font Italic 0, Weight 900 , Width 10, Height 30
Font To fnt
SetFont fnt
Cls
'DEFTEXT 1, 0, 0, 4
ArrayFill x%(), 199
i% = 0
While x%(i%) > 0
  i% = Random(15)
  Dec x%(i%)
  QBColor(i%)
  '  Box i% * 20, 199, i% * 20 + 19, x%(i%)
  PBox i% * 80, 799, i% * 80 + 79, x%(i%) * 4
  QBColor(0)

  Text i% * 80 + 20   , 800, "      "
  Text i% * 80 + 20   , 800, Str$(x%(i%))

  Delay .003
Wend
KeyGet z%
SetFont SYSTEM_FONT