This is my version of snake.(called WURMS)
rem Scource code for Wurms, brought to you by Joe Cooning Produx!
maxBody=35 : Dim snake#(maxBody,2) : bodySegments=2 : score=0
Sync On : Hide mouse : Center Text 320,240,"Joe Cooning Produx presents WURM!" : Center text 320,260,"Loading..." : Sync :Sleep 3000
For i=2 to maxBody : Make object sphere i,2 : Color object i,RGB(0,255,0) : Hide object i : Next i
Make object sphere 1,2 : Color object 1,RGB(0,255,0) : snake#(1,1)=0 : snake#(1,2)=0
osition object 1,snake#(1,1),0,snake#(1,2)
Make object sphere 100,2 : Position object 100,rnd(40)-20,0,rnd(40)-20 : Color object 100,RGB(255,0,0)
Make object plain 101,62,62 : Position object 101,0,0,0 : Color object 101,RGB(0,0,0) : Xrotate object 101,90
Position camera 0,75,0 : Xrotate camera 90
While Object position x(1)-30 and Object position z(1)>-30 and Object position z(1)=35 : huh$="You WIN!!!" : else : huh$="You lose!!!" : endif : Do : Center text 320,240,"Game Over! Your score was "+str$(score)+". "+huh$+" Bye!" : if scancode()>0 and scancode()
"Everyone has a photographic memory . . . some just don't have film."
