10 FOR I=0 TO 7:VPOKE 8*43+I,255:NEXT
20 CLS:PRINT"++++++++++++++++++++++++++++++"
30 FOR F=7 TO 0 STEP -1
40    VPOKE &H2000+&H800*0+8*43+F,&H71
50    IF F=7 THEN W=0 ELSE W=F+1
60    VPOKE &H2000+&H800*0+8*43+W,&H51
70    IF W=7 THEN WC=0 ELSE WC=W+1
80    VPOKE &H2000+&H800*0+8*43+WC,&H41
90    IF WC=7 THEN JC=0 ELSE JC=WC+1
100   VPOKE &H2000+&H800*0+8*43+JC,&H51
110   IF JC=7 THEN JJ=0 ELSE JJ=JC+1
120   VPOKE &H2000+&H800*0+8*43+JJ,&H71
130   IF JJ=7 THEN YJ=0 ELSE YJ=JJ+1
140   VPOKE &H2000+&H800*0+8*43+YJ,&HF1
150 NEXT:GOTO 30