7 geology.menu used to convert DXF files to covers
/* Do not delete the following commented lines
/* CONTACTS             130       0       0       0       0    0     5 CONTINUOUS
/* FAULTS                35       0       0       0       0    0     5 CONTINUOUS
/* BED1                   0      55       0       0       0    0     9 CONTINUOUS
/* BED2                   0      21       0       0       0    0     9 CONTINUOUS
/* LIN1                   0       7       0       0       0    0     7 CONTINUOUS
/* DIPS                   0       0      62       0       0    0     9 CONTINUOUS
/* POLYGON-IDS            0       0      40       0       0    1     9 CONTINUOUS
 
 %0 Convert all DXF entities from all layers
 
 OR ... Select which DXF entites to convert for each layer
 
                                      Text as      Attributes as
   Layer Name       Arcs   Points  Points   Anno   Points   Anno   Insert   All
 ----------------  ------  ------  ------  ------  ------  ------  ------  ------
 %1                 %1a                                                     %1h
 %2                 %2a                                                     %2h
 %3                        %3b                                              %3h
 %4                        %4b                                              %4h
 %5                        %5b                                              %5h
 %6                                 %6c     %6d                             %6h
 %7                                 %7c     %7d                             %7h
 ----------------  ------  ------  ------  ------  ------  ------  ------  ------
 
 Specify width of DXF-TEXT item (default is 40)
 %dxftext
 
 Specify width of DXF-ATTRIBUTE item (default is 16)
 %dxfattrib
 
 Enter name of cover to convert DXF file to: %cover
 
 After converting the DXF file to a cover, line and point attributes will be
 created and joined to the DXF .ACODE and .XCODE info files respectively.
 
 %proceed
%0 checkbox 0
%1 display 1 16 value
%1a checkbox 1a
%1h checkbox 1h
%2 display 2 16 value
%2a checkbox 2a
%2h checkbox 2h
%3 display 3 16 value
%3b checkbox 3b
%3h checkbox 3h
%4 display 4 16 value
%4b checkbox 4b
%4h checkbox 4h
%5 display 5 16 value
%5b checkbox 5b
%5h checkbox 5h
%6 display 6 16 value
%6c checkbox 6c
%6d checkbox 6d
%6h checkbox 6h
%7 display 7 16 value
%7c checkbox 7c
%7d checkbox 7d
%7h checkbox 7h
%dxftext slider dxftext 40 typein yes step 1 integer 0 255
%dxfattrib slider dxfattrib 40 typein yes step 1 integer 0 255
%cover input cover 10 required return ~
 '&s .gsc$msg Cover [upcase %cover%] already exists; ~
  &if [exists %cover% -cover] &then; &thread &create msg &modal &menu msg ~
  &pos &center &thread dxfai &stripe ''Message!'' ~
  &pinaction ''&s cover'' ' character
%proceed button 'Proceed to Convert' &return
%forminit &s cover; &s dxftext 40; &s dxfattrib 16