 work.txt      ׀ 8"`J  JЗٹپtګ(   ׀@TEXTR*ch           ~CW                       RE  Prgm7:work

:if 1!=ipart ipart [a](i,j
:goto a
:if 3=(s!=d)+(e!=t)+ipart rand2
:end
:i->s
:j->t
:end
:lbl a
:if 1!=ipart [a](d,e
:end
:if 4=ipart [a](i,j
:goto b
:if 3!=ipart [a](i,j
:end
:if 0!=fpart (h/2
:end
:if 3.9<=[a](i,j
:end
:h+1->h
:[a](i,j)+.1(fpart [a](a,b)=0)+fpart [a](a,b)->[a](i,j
:if 4<=[a](i,j
:3.9->[a](i,j
:end
:lbl b
:if h>1
:end
:if 4.9<=[a](i,j
:end
:h+2->h
:[a](i,j)+.1(fpart [a](a,b)=0)+round(fpart[a](a,b)/2,1)->[a](i,j
:if 5<=[a](i,j
:4.9->[a](i,j
:        L   L   2                                                                                                                                                                                                                                                   H 	Monaco                             - 	 - 	V                L   L   2    2  MPSR   
    B  