@ P=@=@P @@@H<("N1N1N2  <B(""""""""̪3̪3 @"""""D"DĀ hC0&0 "U""U"U"UU"Uwwww݀UUUUH0 D9D"AA"A>"t"%2d$LA*@ @ "t"G"q]APP8|||8DD""B$B$DDxxxxD"D"@  @p88pf3f3̙3f̙3f p:A""""3333UB$$B?????????????????? 0` 0` 0` 0``0 `0  `0 `0??@@  I@ ??mm @  @@  @ @@ `p` p80p@e .xd,^N2N2 @d<B`Create proj@d<B`Create proj@d<B`Create projt fyxd,^OO   <B NC_Pano.sc45@d 3d .xd,^N2N2 Bed+_<B""""""" 8 ,QODO(O,O0O4  <Bcs$ t$ u$ v$ w$ '  -45 $ $ nO8`shO$iOfOgOjlistrecoJptxelongfnt#shorfontTEXTCourierptszfixd8listrecopjstenumleftthOiOfOƨgO,jlistrecoJptxelongfnt#shorfontTEXTCourierptszfixd8listrecopjstenumleftuhOiOfOgOjlistrecoJptxelongfnt#shorfontTEXTCourierptszfixd8listrecopjstenumrghtvhOiOfOgOjlistrecoJptxelongfnt#shorfontTEXTCourierptszfixd8listrecopjstenumrghtwhOiOxfOgOjlistrecoJptxelongfnt#shorfontTEXTCourierptszfixd8listrecopjstenumrghthOiOfOgOjlistrecoJptxelongfnt#shorfontTEXTCourierptszfixd 8listrecopjstenumlefthOiOfOgOjlistrecoJptxelongfnt#shorfontTEXTCourierptszfixd8listrecopjstenumrghthOiOfO0gOljlistrecoJptxelongfnt#shorfontTEXTCourierptszfixd8listrecopjstenumrght r90.000000 p-45.000000 v=0 a=0 b=0 c=0 d=0 e=0 g=0 t=0 C320$P$OXOPOT  <B#-sr q`O\OdOOh,t#. O|OOO,u:N OOOO,v OOOO,w#7OOOOjx OOjy<2H OOjz$21OO j{;H,OO0| Lk` 180 then put " y" & yangle*i+sy-360 & " r" & rangle & " p" & pangle after item 2 of theline else if yangle*i+sy < -180 then put " y" & yangle*i+sy+360 & " r" & rangle & " p" & pangle after item 2 of theline else put " y" & yangle*i+sy & " r" & rangle & " p" & pangle after item 2 of theline end if delete line lnum + 2 + j*i of bkgnd field "source" put return & theline after line lnum + 2 + j*i -1 of bkgnd field "source" put line lnum + 5 + j*i of bkgnd field "source" into theline delete item 3 to 5 of theline if yangle*i+sy > 180 then put " y" & yangle*i+sy-360 & " r" & rangle & " p" & pangle after item 2 of theline else if yangle*i+sy < -180 then put " y" & yangle*i+sy+360 & " r" & rangle & " p" & pangle after item 2 of theline else put " y" & yangle*i+sy & " r" & rangle & " p" & pangle after item 2 of theline end if delete line lnum + 5 + j*i of bkgnd field "source" put return & theline after line lnum + 5 + j*i -1 of bkgnd field "source" put line lnum + 8 + j*i of bkgnd field "source" into theline delete item 3 to 5 of theline if yangle*i+sy > 180 then put " y" & yangle*i+sy-360 & " r" & rangle & " p" & pangle after item 2 of theline else if yangle*i+sy < -180 then put " y" & yangle*i+sy+360 & " r" & rangle & " p" & pangle after item 2 of theline else put " y" & yangle*i+sy & " r" & rangle & " p" & pangle after item 2 of theline end if delete line lnum + 8 + j*i of bkgnd field "source" put return & theline after line lnum + 8 + j*i -1 of bkgnd field "source" else put 3 into j put line lnum + 2 + j*i of bkgnd field "source" into theline delete item 3 to 5 of theline if yangle*i+sy > 180 then put " y" & yangle*i+sy-360 & " r" & rangle & " p" & pangle after item 2 of theline else if yangle*i+sy < -180 then put " y" & yangle*i+sy+360 & " r" & rangle & " p" & pangle after item 2 of theline else put " y" & yangle*i+sy & " r" & rangle & " p" & pangle after item 2 of theline end if delete line lnum + 2 + j*i of bkgnd field "source" put return & theline after line lnum + 2 + j*i -1 of bkgnd field "source" end if put i + 1 into i end repeat end mouseUp  <B. 180 then put " y" & yangle*i-360 & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline else put " y" & yangle*i & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline end if delete line lnum + 2 + j*i of bkgnd field "source" put return & theline after line lnum + 2 + j*i -1 of bkgnd field "source" put line lnum + 5 + j*i of bkgnd field "source" into theline delete item 3 to 5 of theline if yangle*i > 180 then put " y" & yangle*i-360 & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline else put " y" & yangle*i & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline end if delete line lnum + 5 + j*i of bkgnd field "source" put return & theline after line lnum + 5 + j*i -1 of bkgnd field "source" put line lnum + 8 + j*i of bkgnd field "source" into theline delete item 3 to 5 of theline if yangle*i > 180 then put " y" & yangle*i-360 & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline else put " y" & yangle*i & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline end if delete line lnum + 8 + j*i of bkgnd field "source" put return & theline after line lnum + 8 + j*i -1 of bkgnd field "source" else put 3 into j put line lnum + 2 + j*i of bkgnd field "source" into theline delete item 3 to 5 of theline if yangle*i > 180 then put " y" & yangle*i-360 & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline else put " y" & yangle*i & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline end if delete line lnum + 2 + j*i of bkgnd field "source" put return & theline after line lnum + 2 + j*i -1 of bkgnd field "source" end if put i + 1 into i end repeat end mouseUp  <B. 180 then put " y" & yangle*i-360 & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline else put " y" & yangle*i & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline end if delete line lnum + 2 + j*i of bkgnd field "source" put return & theline after line lnum + 2 + j*i -1 of bkgnd field "source" put line lnum + 5 + j*i of bkgnd field "source" into theline delete item 3 to 5 of theline if yangle*i > 180 then put " y" & yangle*i-360 & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline else put " y" & yangle*i & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline end if delete line lnum + 5 + j*i of bkgnd field "source" put return & theline after line lnum + 5 + j*i -1 of bkgnd field "source" put line lnum + 8 + j*i of bkgnd field "source" into theline delete item 3 to 5 of theline if yangle*i > 180 then put " y" & yangle*i-360 & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline else put " y" & yangle*i & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline end if delete line lnum + 8 + j*i of bkgnd field "source" put return & theline after line lnum + 8 + j*i -1 of bkgnd field "source" else put 3 into j put line lnum + 2 + j*i of bkgnd field "source" into theline delete item 3 to 5 of theline if yangle*i > 180 then put " y" & yangle*i-360 & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline else put " y" & yangle*i & ".000000" & " r" & rangle & ".000000" & " p" & pangle & ".000000" after item 2 of theline end if delete line lnum + 2 + j*i of bkgnd field "source" put return & theline after line lnum + 2 + j*i -1 of bkgnd field "source" end if put i + 1 into i end repeat end mouseUp  <B.