 	addit.txt  \֮׀ 8"  uא 8"پtڥP   ׀ATEXTR*ch  @          ~CW                       Ǳ  Prgm4:addit

:if a50<=[c](1,1
:goto l
:clrhome
:disp "need more cash"
:end
:lbl l
:[c](1,1)-a50->[c](1,1
:input
:ipart(x/xscl)+1->z
:ipart(y/yscl)+1->{THETA}
:a->[a](z,{THETA}
:prgm2                                                                  L   L   2                                                                                                                                                                                                                                                   H 	Monaco                             - 	 - 	V   
   
          L   L   2    2  MPSR   
    @L  