Weregoose Makes a Snake Clone

[Weregoose]

Because snakes are cool.

PROGRAM:BMAMBA (Download) [Pastebin'd slower, non-finance version]
:FnOff
:ClrHome
:ClrDraw
:GridOff
:AxesOff
:PlotsOff
:ZStandard
:84→Xmin
:-72→Ymin
:ZInteger
:30→nMin:30→PV
:46→nMax:44→FV
:26→I%
:Horizontal 0
:Vertical 0
:Vertical 94
:Horizontal Ymin
:Pxl-On(30,45
:For(n,0,E9
:2randInt(1,30→P/Y
:2randInt(1,46→C/Y
:0
:Repeat pxl-Test(nMin,nMax
:If Ans
:Then
:PV+2(pxl-Test(PV+1,FV)-pxl-Test(PV-1,FV→PMT
:FV+2(pxl-Test(PV,FV+1)-pxl-Test(PV,FV-1
:Pt-Off(FV,-PV,3
:Ans→FV
:PMT→PV
:End
:getKey
:If Ans
:Ans→I%
:(I%=34)-(I%=25→PMT
:(I%=26)-(I%=24
:Pxl-On(nMin+PMT,nMax+Ans
:Pxl-On(nMin,nMax
:Pxl-On(P/Y,C/Y
:nMax+2Ans→nMax
:nMin+2PMT→nMin
:End
:If nMin=P/Y and nMax=C/Y
:End
:Disp "Score:
:Output(1,7,n

Note: Optimizing was geared solely towards speed.
_________________
Common Errors in English · How To Ask Questions The Smart Way

[KermMartian]

I was going to ask what you have against [code] boxes until I noticed what you were doing with the italics. If I recall, SourceCoder has symbols for those, but I'll have to double-check. I'm looking at this, and I'm not quite seeing how it would properly erase the end of its tail. Would you care to clarify how that works without a list of previous coordinates?
_________________

[Weregoose]

[KermMartian]

I figured it was something like that, but I'm unfamiliar with the term coordinate-step. Should I JFGI, or would you mind explaining?
_________________

[Weregoose]

I pulled the term out of thin air, but a glossary entry from an affiliate of the Department of Health and Human Services shares the intended significance and states it beautifully thus: "The interval spacing between two successive points." That is, the snake body moves two pixels at a time, drawing at the neck as well as the head once per iteration.
_________________
Common Errors in English · How To Ask Questions The Smart Way