(form "00037" (size 78 13)
  (help "00037_TIP_0")
  (heading "EXTRACT SECTIONS FROM A DTM ALONG A CENTRE LINE")
  (field "dtmloc" (position 12  4) (display_length 26) (input allowed)
    (null allowed) (max_length 26)
    (file (link "dtmid") (extension "*.dtm"))
    (help "00037_TIP_1"))
  (field "dtmid" (position 12  5) (display_length 16) (input allowed)
    (translate upper) (format real_8) (null disallowed) (max_length 16)
    (help (field "dtmloc")))
  (field "dtmfld" (position 12  6) (display_length  4) (input allowed)
    (translate upper) (format string_field) (null disallowed) (max_length 4)
    (value_in "Z" "D1" "D2" "D3" "D4" "D5" "D6" "D7" "D8" "D9" "D10" 
              "D11" "D12" "D13" "D14" "D15" "D16" "D17" "D18" "D19" "D20" 
              "D21" "D22" "D23" "D24" "D25" "D26" "D27" "D28" "D29" "D30"  
              "D31" "D32" "D33" "D34" "D35" "D36" "D37" "D38" "D39" "D40"  
              "D41" "D42" "D43" "D44" "D45" "D46" "D47" "D48" "D49" "D50"  
              "D51" "D52" "D53" "D54" "D55" "D56" "D57" "D58" "D59" "D60"  
              "D61" "D62" "D63" "D64" "D65" "D66" "D67" "D68" "D69" "D70"  
              "D71" "D72" "D73" "D74" "D75" "D76" "D77" "D78" "D79" "D80"  
              "D81" "D82" "D83" "D84" "D85" "D86" "D87" "D88" "D89" "D90"  
              "D91" "D92" "D93" "D94" "D95" "D96" "D97" "D98" "D99" "D100")
    (help "00037_TIP_2"))
  (field "strloc" (position 50  4) (display_length 26) (input allowed)
    (null allowed) (max_length 26)
    (file (link "strid") (extension "*.str"))
    (help "00037_TIP_3"))
  (field "strid" (position 50  5) (display_length 16) (input allowed)
    (translate upper) (format real_8) (null disallowed) (max_length 16)
    (help (field "strloc")))
  (field "iclstr" (position 53  6) (display_length  5) (input allowed)
    (low_bound 1) (high_bound 32767)
    (format integer_4) (null disallowed) (max_length 5)
    (help "00037_TIP_4"))
  (field "sectype" (position 35  9) (display_length  1) (input allowed)
    (value_in "P" "I")
    (default "I")
    (translate upper) (null allowed) (max_length 1)
    (help "00037_TIP_5"))
  (field "secwidth" (position 20 10) (display_length 10) (input allowed)
    (low_bound 0.1) (high_bound 999999999)
    (translate upper) (format real_8) (null disallowed) (max_length 10)
     (help "00037_TIP_6"))
   (field "secint" (position 20 11) (display_length 10) (input allowed)
     (low_bound 0.1) (high_bound 999999999)
     (translate upper) (format real_8) (null disallowed) (max_length 10)
     (help "00037_TIP_7"))
   (field "oloc" (position 50  9) (display_length 26) (input allowed)
     (null allowed) (max_length 26)
     (file output (link "orid") (extension "*.str"))
     (help "00037_TIP_8"))
  (field "orid" (position 50 10) (display_length 16) (input allowed)
    (translate upper) (format real_8) (null disallowed) (max_length 16)
    (help (field "oloc")))
  (default_buttons)
)
