:.AAA
:∆List(0,0,0,0,0)→GDB1J
:
:48→X-48→Y
:
:[FFFFFFFFFFFFFFFF→Pic1
:
:Repeat getKey(15)
:	Line(0,50,48,50
:	Line(48,63,95,63
:	getKey(2)?X-2→X
:	getKey(3)?X+2→X
:
:	If {GDB1J}=0 and {GDB1J+4} and getKey(54)
:		1→{GDB1J}→{GDB1J+2}→{GDB1J+4}*10→{GDB1J+1
:		Y→{GDB1J+3
:	End
:
:	If {GDB1J}
:		{GDB1J+1}-{GDB1J+2}→{GDB1J+1}
:		‾int(GDB1J+1}//2+Y→Y
:		{GDB1J+3}≤Y?0→{GDB1J
:	End
:
:	For(r<sub>1</sub>,0,7)
:		For(r<sub>2</sub>,0,4)
:			int(GDB1J+1}≤≤0 and Pxl-Test(X+r<sub>1</sub>,Y+7+r<sub>2</sub>)?0→{GDB1J}+1→{GDB1J+4}+Y+r<sub>2</sub>-2→Y
:		End
:	End
:
:	0→{GDB1J+4
:
:	For(r<sub>1</sub>,0,7)
:		For(r<sub>2</sub>,0,4)
:			!If Pxl-Test(X+r<sub>1</sub>,Y+7+r<sub>2</sub>) or {GDB1J} or {GDB1J+4}
:				→{GDB1J+4
:			Else!If {GDB1J} or {GDB1J+4}
:				1→{GDB1J+4
:			End
:		End
:	End
:
:	{GDB1J} or {GDB1J+4}??Y+4→Y
:	Pt-On(X,Y,Pic1
:	DispGraphClrDraw
:	Pause 50
:End