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.
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.