5 REM BY @hisham_hm Mar 7 @AppleIIBot
10 GR:N=23
20 FOR X=4 TO 0 STEP -1
30 FOR I=15+X TO X STEP -5
40 Z=39-I/2:J=I+1:W=Z-1
42 COLOR=N:HLIN J,W AT I:HLIN J,W AT Z:VLIN J,W AT I:VLIN J,W AT Z
46 REM COLOR=N:HLIN J,W AT J:HLIN J,W AT W:VLIN J,W AT J:VLIN J,W AT W
48 N=N+1
50 NEXT:N=N-4
60 NEXT:N=N-1:IF N=16 THEN N=32
70 GOTO 20