$ START USER-DEFINED METADATA =======================================================================
$
$ GENERAL CONVENTIONS USED IN iPOGO COMMAND FILE:
$     dollar sign ($) is a comment line
$     all iPOGO commands end with semi-colon (;)
$
$ GENERAL COMPUTING PROCEDURES:
$     This data file computes a 37 lot preliminary subdivision from a previous survey as follows:
$ 	   set 1 through 6 using existing plat information, analyze traverse 201 -206, field ties 1001 -1006
$	   set 7,8,9 to define the centerline control of a proposed road,
$	   set 10 through 16 on the curve centerline and 50' right of way,
$	   set 17 and 18 at the road right of way intersection with the outside boundary,
$	   set 19 and 20 at the end and the center of a 50' radius cul-de-sac,
$ 	   set 21 thru 26 at cul-de-sac fillets,
$	   set 101 thru 174 on 100' lot line intersections with boundary and right of way
$           by holding a 40' BRL setback, and
$ 	   set 500 through 604 for edge of pavement stakeout on 50' stations
$
$ CURRENT OWNERSHIP DATA:
$     Mr. W. purchased 22 acres +/- from Mr. B., 
$	   by Deed Book 325 Pg 125, dated 5/3/1992, recorded 5/5/1992 
$        with plat by this surveyor, see project #432
$
$ RESULTS OF GROUND RECONNAISSANCE:
$     Recovered all plat corners intact and undisturbed on 04/27/2000 as follows
$        corner 1 - 36" Black Oak with 3 hacks on south and north sides
$        corner 2 - 5/8" iron rebar with aluminum cap stamped 'LS #615'
$        corner 3 - set stone with 'x'
$        corner 4 - set stone with 'x'
$        corner 5 - 5/8" iron rebar with aluminum cap stamped 'LS #615'
$        corner 6 - 32" Red Oak with 3 hacks on east and north sides in line with r/w fence
$
$ END METADATA ======================================================================================

$ START BOUNDARY ANALYSIS COMPUTING COMMANDS ========================================================
$ Verify plat closure and coordinates
  0 1 10000 10000 ;	                         $ assign starting north and east to point 1
  1 2 1 NE 45 30 05 998.25  SE 66 30 21 445.50   $ compute the plat's calls, set points 2 thru 6
        SW 42 03 05 874.50  SW  3 31 09 998.53 
        NW 87 28 32 495.00 ;                     $ inversed closing line identical to plat
$ Traverse pts from previous survey, recovered and verified this survey, Ec = 1/105,000, Crandall, FB 82 Pg 112
  0 201  9997.864228    10004.960284    202 10693.735610    10713.118484
    203 10520.250552    11112.217911    204  9874.760511    10529.966911
    205  8881.273731    10468.869064    206  8902.645092     9984.130216 ;
$ Sideshots to corners recovered by this survey
  2 1001 201 201 206 112 10 30 5.20 ;    2 1002 202 202 201 123 58 37 6.04 ; 
  2 1003 203 203 202 144 17 32 8.55 ;    2 1004 204 204 203  70 43 52 5.31 ; 
  2 1005 205 205 204 134 30 49 7.00 ;    2 1006 206 206 205 134 17 00 6.73 ; 
/*Description of Corners recovered by this survey
    1001 = marked 36" Black Oak found      1002 = 5/8" iron rebar w/cap found
    1003 = set stone with 'x' found        1004 = set stone with 'x' found
    1005 = 5/8" iron rebar w/cap found     1006 = marked 32" Red Oak found */
100 Analysis of original plat versus corners recovered;  41 1 -6 ; 42 3 1001 -1006 ;  -42 3 1001 -1006 ; 

$ START COMPUTING COMMANDS FOR 37 LOT SUBDIVISION ===================================================
  1 7 5 5 6 2e9 5 6 0;                           $ set centerline point #7 by splitting corner 5 to corner 6
  1 8 4 4 1 2e9 4 1 0;                           $ set curve PI #8 by splitting the property in half
  1 9 3 3 2 2e9 3 2 0;                           $ set centerline road projected at the end of the property 
                                                 $    by splitting the property line in half from point 2 to 3
 11 50 10 7 8 9 800 0;                           $ set C/L and 50 foot right of way points on 800' radius curve
 3.1 17 11 11 7 25 5 5 6 0 11 11 7 -25;          $ set intersections of the road right of way with s. property line
 1 19 9 9 8 200 -9e9 50 ES;                      $ set the end and center points of a 50' cul-de-sac
 12 21 25 50 25 50 12 20;                        $ set the cul-de-sac 25' fillets
 -17 6 1 2 9 19;                                 $ define rear property lines to intersect with side lot lines
 1.4 101 100 -40 -40                             $ compute 100' lots on left side of road with 40' BRL setback
	17 15 10.1 16 25 26.1 24 20.1 19;
 -17 5 4 3;                                      $ define rear property lines to intersect with side lot lines
 1.4 139 100 40 40                               $ compute 100' lots on right side of road with 40' BRL setback
	18 13 10.1 14 22 21.1 23 20.1 19;
 -17;                                            $ clear rear property line definition
 16 500 1000 50 15 15 7 11 10.1 12 20;           $ set edge of pavement on 50' stations
$ END COMPUTING COMMANDS FOR 37 LOT SUBDIVISION ======================================================

$ START PRINT/PLOT COMMANDS ==========================================================================
  15.1   BDY  BDY 1 1 1 ;                        $ define plot feature,layer,color,linestyle,thickness
  15.1   RW   RW  3 1 1 ;
  15.1   LOT  LOT 3 1 1 ;
  15.1   CL   CL  4 1 1 ;
  15.1   TRAV TRAV 6 1 1 ;
  91 ;                                           $ turn plotting on
  15 BDY;                                        $ activate the boundary plotting feature
     100 Total Boundary ;                        $ print text output label
         -7 1 1 -6 1;                            $ inverse the plat boundary with subtotal area
  15 RW;                                         $ activate the right of way plotting feature
     100 Street Dedication ;                     $ print text output label
         7 1 17 15 10.1 16 25 26.1 24 -20.1 23   $ inverse the r/w lines
            21.1 22 14 10.1 13 18 17 ; 

  15 LOT;                                        $ activate the lot feature
  15.2 "Section 1 - Lot ";                       $ define repeating heading for output
       7 100 17 6 102 101 17;                    $ inverse lot closures for lots 100 thru 136
       7 101 101 102 104 103 101;
       7 102 103 104 106 105 103;
       7 103 105 106 108 107 105;
       7 104 107 108 110 109 107;
       7 105 109 110 112 111 109;
       7 106 111 112 114 113 111;
       7 107 113 114 116 115 10.1 15 113;        $ notice radius point is number 10
       7 108 115 116 118 117 10.1 115;
       7 109 117 118 120 119 10.1 117;
       7 110 119 120 1 122 121 10.1 119;
       7 111 121 122 124 123 10.1 121;
       7 112 123 124 126 125 10.1 123;
       7 113 125 126 128 127 16 10.1 125;
       7 114 127 128 130 129 127;
       7 115 129 130 132 131 129;
       7 116 131 132 134 133 131;
       7 117 133 134 136 135 20.1 24 26.1 25 133;
       7 118 135 136 2 9 19 20.1 135;
       7 119 19 9 3 172 171 20.1 19;
       7 120 171 172 170 169 22 21.1 23 20.1 171;
       7 121 169 170 168 167 169;
       7 122 167 168 166 165 167;
       7 123 165 166 164 163 165;
       7 124 163 164 162 161 10.1 14 163;
       7 125 161 162 160 159 10.1 161;
       7 126 159 160 4 158 157 10.1 159;
       7 127 157 158 156 155 10.1 157;
       7 128 155 156 154 153 10.1 155;
       7 129 153 154 152 151 13 10.1 153;
       7 130 151 152 150 149 151;
       7 131 149 150 148 147 149;
       7 132 147 148 146 145 147;
       7 133 145 146 144 143 145;
       7 134 143 144 142 141 143;
       7 135 141 142 140 139 141;
      -7 136 139 140 5 18 139;         $ inverse boundary lot 136 with subtotal areas 

$ turn off repeating description heading
  15.2 "";                             

$ activate centerline feature
  15 CL;                              
     100 Centerline Road Stationing; 	$ output label
         77 1 1000 7 11 10.1 12 20;	$ inverse station c/l road 10+00

$ activate the traverse feature
  15 TRAV;
     100 Traverse;  
         7 1 201 -206 201 ;

$ turn off plot
  -91 ;

$ field stakeout ties from 8 bs 7 to points 101 thru 172
  100 Stakeout from PI# 8, BS# 7 --------------------; $ output label
     44 8 7 101 -172 ;   $ angles
      8 1 8 7 101 -172 ; $ bearings

$ list all coordinates
  9 1 -99999;