'Chargez d'abord la routine:
DEFLNG a-z
DECLARE FUNCTION loadseg LIBRARY
LIBRARY"T&A2:bmaps/dos.library"
a=loadseg(SADD("T&A2:PROGS/ColorCycle"+CHR$(0)))
prg=a*4+4
'Un petit graphique
FOR i%=0 TO 3
 LINE (0,i%*40)-STEP(80,40),i%,bf
NEXT
'Demo: Rotation des couleurs vers l'avant et vers l'arrière
FOR i%=0 TO 50
 t!=TIMER+.2
 WHILE t!>TIMER
 WEND
 prg WINDOW(7),1,3
NEXT
FOR i%=0 TO 50
 t!=TIMER+.2
 WHILE t!>TIMER
 WEND
 prg WINDOW(7),3,1
NEXT
'Libération de la mémoire
unloadseg a
LIBRARY CLOSE 
