Voici un affichage kaléidoscopique

 

 

 Listing :

10 ‘ Ecran en cascade
20 OUT &BC00,1
30 FOR X=1 TO 40:FOR t=1 TO 50
40 OUT &BD00,x:NEXT t,x
50 CALL &BB06
60 GOTO 20