scratch
*         EXAMPLE 1.1 - AREA CALCULATIONS
known       1046 28593.5180 67031.3373
            1047 28587.8756 67172.1767
 	    1048 28427.8756 67171.8734
	    1049 28413.6255 67027.0994
	    1050 28517.2214 67031.2119
area        1046 1047 1048 1049 1050 1046
area/azimuth        1046 1047 1048 1049 1050 1046
area/bearing        1046 1047 1048 1049 1050 1046
skip/line     1
*         EXAMPLE 1.2 - DIVIDE AREA
*         note using point 49 as base point in next command
divide/area  a 1047 1048 1047 1048 1049 1050 1046 1047 /
*         EXAMPLE 2.1 - TANGENT TO TWO CIRCLES
known	    	1053 600159.4875 2000012.8007
		1055 600079.7438 2001006.4003
locate/angle  1055 1053 1054 160.  90 0 0.  / center large circle
	      1053 1055 1056  80. -90 0 0.  / center small circle
tangent	      1053 1054 160. 1055 1056 80. l 1.
*         EXAMPLE 3.1 - SIMPLE CURVE
known	    2 1500. 2000.
	    3 2561.3581 4122.7163
	    4 1810.8645 6374.1969
locate/line   2 3 1 -100.
simple/curve  10 1 2 3 4 1.0 45 0 0.0 r
eoj
begin     file1
*         EXAMPLE 4.1 - CONTINUOUS ALIGNMENT (SIMPLE CURVES)
known     2   200000.000  200000.000  /Begin Point
          3   203489.596  200863.339  /End point
          10  198743.570  201257.832  /1st pi
          20  200596.775  203920.938  /2nd pi
          30  198838.535  206433.521  /3rd pi
          40  199999.919  208932.272  /4th pi
          50  202794.750  208147.119  /5th pi
          60  202794.750  203214.119  /6th pi
*         ALIGNMENTS
alignment  10  2 10 20 1200.  0.  2200. 0.   /R known
           20 17 20 30  0.  2000.  -1.       /T known
	   30 27 30 40  0.    0.   -1.       /abut curve together
	   40 37 40 50  0.    0.   -1.       /abut curve together
	   50 47 50 60  0.    0.   -1. 200.  /X known 
	   60 57 60  3 3800.  0.   -1.       /R known
*
*         COMMANDS USING CURVES (ONLY CURVE 10 USED THIS EXAMPLE)
*         EXAMPLE 4.2 - COORDINATE OF POINT ON ARC
coord/poa  10 110 3700.
*         EXAMPLE 4.3 - COORDINATE OF POINT OFFSET FROM CURVE
coord/offset  10 111 3700. -32.5
*         EXAMPLE 4.4 - STATION OF KNOWN POINT
station/from/coord 10 110
*         EXAMPLE 4.5 - STATION OF OFFSET POINT
offset/align 10 112 111    /112 should have same coord. as 110
*         EXAMPLE 5.1 - ADJUST DEFLECTION
store        1 1000. 2000.
             5 950.5 2328.
adjust/deflection/ls  1 5 500.
                      1 2 100. 120 0 0.
                      2 3 100. -30   0 0.
                      3 4 100. -45 0 0.
		      4 5 100.  90 0 0.
*         EXAMPLE 6.1 - VERTICAL CURVES
vertical/start  1 5818. 837.95
                2 7188. 842.88 800.
                3 8042. 836.05 700.
vertical/end    4 9592. 847.21
*         EXAMPLE 6.2 - CALCULATE EVEN STATION ELEVATIONS
even/stations   6000. 500. 9000.
*         EXAMPLE 6.3 - CALCULATE ELEVATION OF OFFSET POINT
offset/elevation 10 7000. 100. 4.
*         EXAMPLE 6.4 - CALCULATE ELEVATION OF DRAIN POINT
curve/drain     2
*         EXAMPLE 7.1 - SIMPLE SPIRAL AND ASSOCIATED COMMANDS
known          101 1000. 2000.
               102  858.3954 2141.6045
locate/line    101 102 2 -200.
simple/spiral  100 2 101 102 103 300. 6. r
*         EXAMPLE 7.2 - SPIRAL LENGTH
spiral/length  100 101 103 102 135 0 0. r
*         EXAMPLE 7.3 - OFFSET FROM SPIRAL
off/from/spiral 1021 1022 75. 25. r  /offset ps+75, 25' rt.
inverse/azimuth 1021 1022            /check distance
spiral/offset   1023 1022 /1023 should be same as 1021
*         EXAMPLE 7.4 - COORDINATE OF POINT ON SPIRAL
coord/posp      1024 75.   /1024 should be same as 1021
*         EXAMPLE 7.5 - COORDINATE OF LINE INTERSECTING SPIRAL
known          106  1030.068  2028.637  / point on line
locate/azimuth  106 107 400. 150 0 0.   / locate 2nd point on line
line/spiral     108 106 107 101         / actual intersection
*         EXAMPLE 8.1 - CURVE WITH SPIRALS
known       250 1491163.5500 358014.4600
            260 1493082.9600 358343.1300
            240 1490309.0631 358141.4001
fit/alignment  250 240 250 260 3. 200. 200. r 44653.2891
*         PROBLEM 1 - CALCULATE NEW PROPERTY R/W WITH TAKE AREA
*             store known points
store        2001 10000.0000 10000.0000
             2002 10217.156  10513.812
             2003 10875.000  10080.000
*	     find points 2004 & 2005
az/intersect    2004 2001 15 27 30. 2002 90 0 0. .005
locate/azimuth  2004 2005 185.712  90 0 0.
*             find intersection of curves and side lines
arc/line/az   2006 2003 725.  2001  15 27 30. 2001
              2007 2003 725.  2005 355  0 20. 2001
*             find area of parallelogram
area          2006 2004 2005 2007 2006
*             add area of segment
segment/plus  2006 2007 725. 1.
*             refigure with lots/comp
area/store         0.  /clear previous total
lots/comp     2004 2005 2007 p 2003 2006 2004
*         PROBLEM 2 - ALIGNMENT AND LOCATE POINTS
store      1051  12000. 10000.
            310  14000. 12400.
           1052  12400. 15000.
           1055  13800. 11400.
           1056  13800. 15000.
           1070  12200. 14400.
alignment  310 1051 310 1052  0. 1500. 22000.
arc/line/br 1060 319 d 319 317 1055 s 45 0 0. e 311
station/from/coord   310 1060 
az/intersect 1062 317 a 317 1052 1056 225 0 0. .005
locate/deflection 317 1062 1080 2000. g 317 1062 1070
*         PROBLEM 3 - NOSING LOCATION CALCULATION
store      1101 230677.555 631271.763 / pt 2261+83.244 road a
           1102 230322.651 631428.937 /pot 2258+72.129 road b
locate/bearing  1101 1104 20. 2 51 37 54. /establish point on offset line
                1102 1105 36. 3 84 42 19. /establish point on offset line
br/intersect  1103 1104 1 38 22 6. 1105 4 5 17 42. /establish point intersect
*         PROBLEM 4 - NOSING AT INTERSECTION CIRCULAR CURVE AND TANGENT
store      1201 232104.634 631372.227 / pt 2260+21.876 road c
           1203 232407.584 632306.202 / center curve - road d
           1205 232100.991 631822.176 / pc 2259+81.115 road d
locate/bearing  1201 1202 20. 2 50 0 0. / locate point on offset line
arc/line/br  1204 1203 608.958 1202 1 40 0 0. 1205  /point sought
*         PROBLEM 5 - NOSING AT INTERSECTION OF TWO CIRCULAR CURVES,
*          ONE RIGHT, ONE LEFT
store      1211 230527.229 631962.543 / pc of curve 2
           1212 231528.427 632357.676 / pc of curve 1
locate/bearing 1212 1215  572.958 1 52 53  7. / est. rad. pt 1
               1211 1216 1909.859 2 58 44 41. / est. rad. pt 2
arc/arc/intersect 1217 1216 1945.859 1215 592.958 1211 /point sought
*         PROBLEM 6 - NOSING AT INTERSECTION OF TWO RIGHT CIRCULAR CURVES
store      1221 230991.721 630271.665 / pc curve 1
           1222 229974.211 629874.675 / pc curve 2
locate/bearing 1221 1224  572.958 2 19 8 33. / est. rad. pt 1
               1222 1223 1145.916 2 81 2 58. / est. rad. pt 2
arc/arc/intersect 1225 1223 1181.916 1224 552.958 1221 / point sought
*         PROBLEM 7 - CROSS TANGENT AND OUTSIDE TANGENT
store      1254 123987.654 987123.456 / center large circle
           1256 124980.650 990125.500 / center small circle
tangent    1253 1254 1200. 1255 1256 800. l -1. / 1253 on lg, 1254 on sm
tangent    1263 1254 1200. 1265 1256 600. r  1. / 1263 on lg, 1265 on sm
*         PROBLEM 8 - SPIRAL OFFSET FROM KNOWN POINT
store      1272 123406.700 234715.400 / pt on bk tan
           1275 123456.700 234765.400 / ts of spiral
           1277 123636.200 234677.100 / known offset pt
simple/spiral 500 1272 1275 1273 1274 250. 5. r /the spiral
spiral/offset 1276 1277 /dist to intersect from ts & known pt
*         PROBLEM 9 - MODIFIED AREA FOR PARCEL 'A'
store      1302 12000.000 8000.000 / start at point 1302
locate/azimuth  1302 1303  2000. 134  0  0. / locate line G
		1302 1304 -2000.  44  0  0. / locate line H
parallel/line   1302 1303   120. 1305 1306  /locate line containing E & D
		1304 1302    75. 1307 1308  /locate line containing E & B
		1304 1302  1075. 1311 1312  /line through curve center
		1302 1303  1120. 1309 1310  /line through curve center
points/intersect  179 1311 1312 1309 1310  /curve center
tangent/offset  171 179 1307 1308  /pc curve
		177 179 1306 1305  /pt curve
locate/azimuth  171 1320 1500. a 1302 1304  /locate point B
		177 1322  800. a 1302 1303  /locate point D
az/intersect	1321 1320 a 171 179 1322 a 177 179 /locate point C
*		points located, calculate area
lots/comp	1321 1320 171 p 179 177 1322 1321
eoj
eor
