 
findit.txt      ׀ 8"`J  JЗٹپt   ׀ATEXTR*ch  @        ~CW                         Prgm6:findit

:0->h
:6->c
:lbl {THETA}
:c-1->c
:d->i
:e->j
:d->s
:e->t
:pt-chg(ixscl-8,jyscl-5
:ig (h=3)+(c<=0)
:goto q
:if d-1<1
:goto a
:d-1->i
:prgm7
:lbl a
:if d+1>6
:goto b
:d+1->i
:prgm7
:lbl b
:d->i
:if e+1>6
:goto c
:e+1->j
:prgm7
:lbl c
:if e-1<1
:goto p
:e-1->j
:prgm7
:lbl p
:s->d
:t->e
:goto {THETA}
:lbl q
:if h=0
:0->[a](a,b
:[a](a,b)->g
:if h=1
:g-.1+.1(g=2)->[a](a,b
:if h=2
:ipart g+ipart (fpart g*5)/10->[a](a,b
:if h=3
:g+.1-.1(g>=2.9)->[a](a,b        L   L   2                                                                                                                                                                                                                                                   H 	Monaco                             - 	 - 	V                L   L   2B    2  MPSR   
    @  