' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.12.16.16.28]) on 2023.12.24 at 18:30 (Coordinated Universal Time)
' By Charlie Veniot
' Logiker Christmas Challenge 2023
' https://logiker.com/Vintage-Computing-Christmas-Challenge-2023?fbclid=IwAR0kIhJ4-_cI97_rcFRvRNHWdc3r6J4iUFA2BHDQQobJDGh9F7pXDuxioHs


DIM C%(0 TO 28)
FOR TC = 0 TO 27
C%(TC) = INT(RND*65) + 1
NEXT TC


100 SCREEN _NEWIMAGE(538,200,13)
105 TC = 0
110 FOR Y1 = 0 TO 18 STEP 6
120 I = 0
130 FOR Y2 = 0 TO 6
140 X1 = 4
COLOR C%(Y1 + Y2)
150 FOR X2 = 0 TO 60 STEP 6
160 LOCATE Y2+1+Y1,X1⁣-⁣I+X2 : PRINT "*"; : LOCATE Y2+1+Y1,X1+I+X2 : PRINT "*";
170 NEXT XD
' 175 SLEEP 0.05
180 IF Y2<3 THEN I=I+1 ELSE I=I⁣-⁣1
190 NEXT Y2
200 NEXT Y1
220 FOR TC = 27 TO 0 STEP ⁣-⁣1
    C%(TC+1) = C%(TC)
    NEXT TC
    C%(0) = C%(28)
300 SLEEP 0.25 : GOTO 105