&rem **** convert selected label point(s) to tics


SHOW EDITFEAT -20
 &goto *FALSE0000* &if &EQ LABEL %-20
   &type "EDITFEATURE is not LABEL."
   &return
 &LABEL *FALSE0000*
SHOW NUMBER SELECT -11
 &goto *FALSE0001* &if &NE %<%-11 max 0> 0
   &type "No LABEL(s) selected."
   &return
 &LABEL *FALSE0001*
SHOW COORDINATE -10

&rem **** read label data

&sv -12 1
 &LABEL *WHILE0002*
 &goto *END__0002* &if &NR %-12 1 %-11
   SHOW SELECT %-12 -1
   SHOW LABEL %-1 ID -2
   SHOW LABEL %-1 COORDINATE -3 -4
   &sv %<%-12 + 100> "%-2 %-3 %-4"
   &cv -12 %-12 + 1
 &goback *WHILE0002*
 &LABEL *END__0002*

&rem **** add labels

EDITF TIC
COORDINATE KEY
ADD
&sv -12 1
 &LABEL *WHILE0003*
 &goto *END__0003* &if &NR %-12 1 %-11
   &value -1 %<%-12 + 100>
   &extract -2 -1 1
   &extract -3 -1 2
   &extract -4 -1 3
   3 0 0
   %-2
   1 %-3 %-4
   &cv -12 %-12 + 1
 &goback *WHILE0003*
 &LABEL *END__0003*
9 0 0
COORDINATE %-10