1 .VCC 2022: MATT PILZ
10 BC=72;FC=0;D=1;S=3;CLEAR
20 FOR I = 0 TO 6
30 IF I>1 IF I<6 N=(I+1)/2
40 @(I) = 1 + RM
50 ~(I+4) = @(I)*(-1)
60 IF I>3 ~(I-4)=@(I)
70 NEXT I
80 FOR U=2 TO 21 STEP S
90 XY=U;N=0;M=1
100 FOR I = 0 TO 15
110 IF I>7 N=-1;M=N
120 LINE ~(I+(8*N))*U*M,@(I+(8*N))*U*M,D
130 IF FC<7 FC=FC+1;BC=BC-8
140 NEXT I
150 NEXT U
160 D=RND(4);S=RND(10)+1
170 GOTO 80