Try something like this.
'snake array
Dim snake(
maximum # of body Parts,2)
For i=1 to
max # of body parts
Make Object plain i,
size x,
size y
texture it
Hide object i
next i
sync on
While(
not collided with anything bad){
If UpKey=1 Then y=y+1
If DownKey=1 Then y=y-1
If RightKey=1 Then x=x-1
If LeftKey=1 Then x=x+1
'display body parts
If
snake head eats something Then bodyPart=bodyPart+1 : Show object bodyPart
move_worm(x,y,bodyPart)
sync
}
function move_worm(x,y,bodyPart)
snake(1,1)=x
snake(1,2)=y
For i=bodyPart+1 to 2
snake(i,1)=snake(i-1,1)
snake(i,2)=snake(i-1,2)
Position object i,snake(i,1),snake(i,2)
next i
endfunction
I'm not sure if this will work, and it will require editing (because I think I included a bit of Java in here) but I think this might give you a general idea of how to do what it is you want.

Enjoy!
"Everyone has a photographic memory . . . some just don't have film."