Keoni, here it is.

Lbl LEFT
0->r1
For(4)
{r1+L1}->{r1+16+L1}
1->r2
3->r4
For(3)
If {r1+r2+L1}
ALEFT()
End
r2++
End
r1+4->r1
End
Return
Lbl ALEFT
0->r3
//I need to add a conditional here to this Repeat loop
Repeat {r1+r2-r3+16+L1}??(r4=r3)
r3++
End
If {r1+r2+L1}={r1+r2-r3+16+L1}
{r1+r2-r3+16+L1}++
0->{r1+r2+L1}
3-r2->r4
Return
ElseIf {r1+r2-r3+16+L1}=0
{r1+r2+L1}->{r1+r2-r3+16+L1}
Return
End
{r1+r2+L1}>{r1+r2-r3+17+L1}
Return