1 .VCC 2023: MATT PILZ
2 CLEAR;NT=0;BC=217;FC=255;A=0;B=0;R=1;U=1;BOX 0,0,86,84,1;BOX 0,0,82,82,2
3 FOR I = 0 TO 20;XY=-10710;LINE 42+I*2+RND(6)-3, 20-I*4, 1
4 K=RND(2);BOX -48-RND(40),RND(86)-43,K,K,1
5 K=RND(2);BOX 48+RND(40),RND(86)-43,K,K,1
6 XY=-10540;LINE -44-I*2+RND(6)-3, 20-I*4, 1;NEXT I;XY=0
7 V=24;W=-36;C=31;D=30;N=0;T=0;@(0)=-24;@(1)=0;@(2)=24;M=0
10 X=@(N)+A; Y=W+B; IF M<1 L=1-L
20 IF M>1 L=RND(3)
30 BOX X, Y, 3, 3, 1+L;BOX X, Y, 5, 1, 1+L;BOX X, Y, 1, 5, 1+L;BOX X, Y, 1, 1, (2-L)*(M-1)
40 A=A+4*R; B=B+4*U
50 IF X>C R=-1
60 IF Y>D U=-1
70 IF X<-28 R=1
80 IF Y<-28 U=1
90 T=T+1; IF T>36 N=N+1;T=0;R=1;U=1;A=0;B=0
100 IF N>2 L=0;M=M+1;FOR J=0 TO 600;NEXT J;N=0
110 GOTO 10