m700.ngc

o<m700> sub
#500=41; filament area index
#501=1; synchronized
#502=#500
o100 if [EXISTS[#<i>]]
    o110 if [#<i> EQ 1]
        #501=0
    o110 endif
o100 endif
o101 if [#501 EQ 1]
    M67 E#502 Q#<P>
o101 else
    M68 E#502 Q#<P>
o101 endif
o<m700> end sub