begin     file0
clear     1 9999 10 500 8000 9999
*         EXAMPLE 1.1 - AREA CALCULATIONS
known       1046 8715.322 20431.192
            1047 8713.602 20474.120
 	    1048 8664.834 20474.028
	    1049 8660.490 20429.901
	    1050 8692.066 20431.154
area        1046 1047 1048 1049 1050 1046
area/azimuth        1046 1047 1048 1049 1050 1046
area/bearing        1046 1047 1048 1049 1050 1046
eject
*         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 182928.978 609605.121
		1055 182904.672 609907.971
locate/angle  1055 1053 1054 48.7681  90 0 0.  / center large circle
	      1053 1055 1056 24.3840 -90 0 0.  / center small circle
tangent	      1053 1054 48.7681 1055 1056 24.3840 l 1.
*         EXAMPLE 3.1 - SIMPLE CURVE
known	    2 457.201  609.601
	    3 780.704 1256.606
	    4 551.953 1942.859
locate/line   2 3 1 -30.4801
simple/curve  10 1 2 3 4 1.0 45 0 0.0 r
*         EXAMPLE 4.1 - CONTINUOUS ALIGNMENT (SIMPLE CURVES)
known     2   60960.122 60960.122  /Begin Point
          3   62023.753 61223.268  /End point
          10  60577.161 61343.510  /1st pi
          20  61142.019 62155.226  /2nd pi
          30  60606.107 62921.063  /3rd pi
          40  60960.097 63682.684  /4th pi
          50  61811.963 63443.369  /5th pi
          60  61811.963 61939.787  /6th pi
*         ALIGNMENTS
alignment  10  2 10 20  365.7607  0.    670.5613 0.      /R known
           20 17 20 30    0.    609.6012 -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.    60.9601  /X known 
	   60 57 60  3 1158.2423  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 1127.7623
*         EXAMPLE 4.3 - COORDINATE OF POINT OFFSET FROM CURVE
coord/offset  10 111 1127.7623 -9.9060
*         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 304.801 609.601
             5 289.713 709.576
adjust/deflection/ls  1 5 152.4003
                      1 2  30.4801 120 0 0.
                      2 3  30.4801 -30 0 0.
                      3 4  30.4801 -45 0 0.
		      4 5  30.4801  90 0 0.
*         EXAMPLE 6.1 - VERTICAL CURVES
vertical/start  1 1773.3299 255.4077
                2 2190.9068 256.9103 243.8405
                3 2451.2065 254.8285 213.3604
vertical/end    4 2923.6474 258.2301
*         EXAMPLE 6.2 - CALCULATE EVEN STATION ELEVATIONS
even/stations   1828.8037 152.4003 2743.2055
*         EXAMPLE 6.3 - CALCULATE ELEVATION OF OFFSET POINT
offset/elevation 10 2036.6043 30.4801 4.
*         EXAMPLE 6.4 - CALCULATE ELEVATION OF DRAIN POINT
curve/drain     2
*         EXAMPLE 7.1 - SIMPLE SPIRAL AND ASSOCIATED COMMANDS
known          101 304.801 609.601
               102 261.639 652.762
locate/line    101 102 2 -60.9601
simple/spiral  100 2 101 102 103 91.4402 6. r
*         EXAMPLE 7.2 - SPIRAL LENGTH
spiral/length  100 101 102 103 135 0 0. r
*         EXAMPLE 7.3 - OFFSET FROM SPIRAL
off/from/spiral 1021 1022 22.8600 7.6200 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 22.8600   /1024 should be same as 1021
*         EXAMPLE 7.5 - COORDINATE OF LINE INTERSECTING SPIRAL
known          106 305.820 610.734   / point on line
               107 260.519 651.524   / second point on line
line/spiral     108 106 107 101         / actual intersection
*         EXAMPLE 8.1 - CURVE WITH SPIRALS
known       250 454507.559 109123.026
            260 455092.596 109223.204
            240 454247.111 109161.717
fit/alignment  250 240 250 260 3. 60.9601 60.9601 r 13610.3497
*         PROBLEM 1 - CALCULATE NEW PROPERTY R/W WITH TAKE AREA
*             store known points
store        2001 3048.006 3048.006
             2002 3114.195 3204.616
             2003 3314.707 3072.390
*	     find points 2004 & 2005
az/intersect    2004 2001 15 27 30. 2002 90 0 0. .005
locate/azimuth  2004 2005 56.6051  90 0 0.
*             find intersection of curves and side lines
arc/line/az   2006 2003 220.9804  2001  15 27 30. 2001
              2007 2003 220.9804  2005 355  0 20. 2001
*          clear area storage before area calculations
area/store         0.
*             find area of parallelogram
area          2006 2004 2005 2007 2006
*             add area of segment
segment/plus  2006 2007 220.9804 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  3657.607 3048.006
            310  4267.209 3779.528
           1052  3779.528 4572.009
           1055  4206.248 3474.727
           1056  4206.248 4572.009
           1070  3718.567 4389.129
alignment  310 1051 310 1052  0. 457.2009 6705.6134
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 609.6012 g 1052 1062 1070
*         PROBLEM 3 - NOSING LOCATION CALCULATION
store      1101 70310.659 192412.018 / pt 2261+83.244 road a
           1102 70202.484 192459.925 /pot 2258+72.129 road b
locate/bearing  1101 1104  6.0960 2 51 37 54. /establish point on offset line
                1102 1105 10.9728 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 70745.634 192442.640 / pt 2260+21.876 road c
           1203 70837.973 192727.316 / center curve - road d
           1205 70744.524 192579.784 / pc 2259+81.115 road d
locate/bearing  1201 1202 6.0960 2 50 0 0. / locate point on offset line
arc/line/br  1204 1203 185.6101 1202 1 40 0 0. 1205  /point sought
*         PROBLEM 5 - NOSING AT INTERSECTION OF TWO CIRCULAR CURVES,
*          ONE RIGHT, ONE LEFT
store      1211 70264.840 192622.568  / pc of curve 2
           1212 70570.006 192743.005  / pc of curve 1
locate/bearing 1212 1215 174.6379 1 52 53  7. / est. rad. pt 1
               1211 1216 582.1262 2 58 44 41. / est. rad. pt 2
arc/arc/intersect 1217 1216 593.0990 1215 180.7340  1211 /point sought
*         PROBLEM 6 - NOSING AT INTERSECTION OF TWO RIGHT CIRCULAR CURVES
store      1221 70406.417 192107.188 / pc curve 1
           1222 70096.280 191986.185 / pc curve 2
locate/bearing 1221 1224 174.6379 2 19 8 33. / est. rad. pt 1
               1222 1223 349.2759 2 81 2 58. / est. rad. pt 2
arc/arc/intersect 1225 1223 360.2487 1224 168.5419 1221 / point sought
*         PROBLEM 7 - CROSS TANGENT AND OUTSIDE TANGENT
store      1254 37791.513 300875.831 / center large circle
           1256 38094.178 301790.856 / center small circle
tangent    1253 1254 365.7607 1255 1256 243.8405 l -1. / 1253 on lg, 1254 on sm
tangent    1263 1254 365.7607 1265 1256 243.8405 r  1. / 1263 on lg, 1265 on sm
*         PROBLEM 8 - SPIRAL OFFSET FROM KNOWN POINT
store      1272 37614.437 71541.397 / pt on bk tan
           1275 37629.677 71556.637 / ts of spiral
           1277 37684.389 71529.723 / known offset pt
simple/spiral 500 1272 1275 1273 1274 76.2002 5. r /the spiral
spiral/offset 1276 1277 /dist to intersect from ts & known pt
*         PROBLEM 9 - MODIFIED AREA FOR PARCEL 'A'
store      1302 3657.607 2438.405 / start at point 1302
locate/azimuth  1302 1303  609.6012 134  0  0. / locate line G
		1302 1304 -609.6012  44  0  0. / locate line H
parallel/line   1302 1303   36.5761 1305 1306  /locate line containing E & D
		1304 1302   22.8600 1307 1308  /locate line containing E & B
		1304 1302  327.6607 1311 1312  /line through curve center
		1302 1303  341.3767 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 457.2009 a 1302 1304  /locate point B
		177 1322 243.8405 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
