10 REM WILD CCC 2023
20 MODE 0:CLS:PEN 14
30 REM STAR FROM 2022
40 FOR i=1 TO 5:FOR j=18-i TO i STEP -1
50 LOCATE 1+i+4,j+4:PRINT "*":LOCATE 1+10-i+4,j+4:PRINT "*"
60 LOCATE 1+j,i+4+4:PRINT "*":LOCATE 1+j,10-i+4+4:PRINT "*"
70 T=TIME+10:WHILE T>TIME:WEND
80 NEXT:NEXT
90 REM INSPIRED IN GRID FROM 2023
100 DX=-1:DY=1:X=1:Y=4
110 PEN (DX*DY>0)*2+15:LOCATE X,Y:?"*"
120 IF X=1 OR X=19 THEN DX=-DX
130 IF Y=1 OR Y=25 THEN DY=-DY
140 X=X+DX:Y=Y+DY:T=TIME+10:WHILE T>TIME:WEND
150 GOTO 110
