Here's what I have so far…
:ClrHome
:Output91,1,"QQQQQQQQQQQQQQQQ"
:Output(4,4,"Centipede"
:Output95,1,"By:Curtis Kipple"
:Output(8,1,"QQQQQQQQQQQQQQQQ"
:Pause
:Lbl 0
:ClrHome
:2->A
:1->B
:7->U
:8->V
:Lbl 1
:ClrHome
:Output(1,1,"----------------"
:Output(8,1,"----------------"
:A->R
:randInt(6,16->E
:randInt(2,7->F
:randInt(6,16->G
:randInt(2,7->H
:randInt(6,16->I
:randInt(2,7->J
:randInt(6,16->K
:randInt(2,7->L
:randInt(6,16->M
:Output(R,E,"Q
:Output(F,G,"Q
:Output(H,I,"Q
:Output(J,K,"Q
:Output(L,M,"Q
:While D≤16
:If A=R and D=E or A=F and D=G or A=H and D=I or A=J and D=K or A=L and D=M
:0->Z