5 REM BY @hisham_hm Mar 7 @AppleIIBot
10 GR:N=23
15 FOR X=2 TO 0 STEP -0.5
17 N=23
20 FOR D=20+X TO 2+X STEP -1
40 H=40/D:L=20-H:R=19+H
42 COLOR=N
43 HLIN L,R AT L:HLIN L,R AT R:VLIN L,R AT L:VLIN L,R AT R
48 N=N-1
60 NEXT:IF N<5 THEN N=23
65 NEXT
70 GOTO 15