(15C) Land Surveying Traverse Program

[Thomas Klemm]

Attached is a Nonpareil state-file which can be opened in the emulator.
Now I'm not sure how to use the program. Could you add a few examples?

Thanks in advance
Thomas

Code:

001 - 42,21,15  LBL E          
002 - 43, 5, 0  CF 0           
003 - 42,21, 8  LBL 8          
004 -    42 34  CLEAR REG      
005 -        1  1              
006 -        8  8              
007 -        0  0              
008 -    44 .4  STO .4         
009 -        2  2              
010 -       20  x              
011 -    44 .5  STO .5         
012 - 43, 6, 0  F? 0           
013 -    32  6  GSB 6          
014 -        1  1              
015 -    44 .6  STO .6         
016 - 42, 7, 0  FIX 0          
017 -       31  R/S            
018 - 42,21,13  LBL C          
019 -    43  2  ->H            
020 - 42,21, 0  LBL 0          
021 -    44 .1  STO .1         
022 -    42  2  ->H.MS         
023 - 42, 7, 4  FIX 4          
024 -       31  R/S            
025 - 44,40,.0  STO+ .0        
026 -    45 .1  RCL .1         
027 -       34  x<>y           
028 -    42  1  ->R            
029 - 42, 7, 3  FIX 3          
030 -       31  R/S            
031 - 44,40,.7  STO+ .7        
032 - 44,30,.2  STO- .2        
033 -       34  x<>y           
034 - 44,40,.8  STO+ .8        
035 - 44,30,.3  STO- .3        
036 -       31  R/S            
037 - 43, 6, 0  F? 0           
038 -    32  7  GSB 7          
039 -    43  2  ->H            
040 -       31  R/S            
041 -    32  1  GSB 1          
042 -    32  4  GSB 4          
043 -    22  0  GTO 0          
044 - 42,21, 1  LBL 1          
045 -    43 20  x=0            
046 -    22  2  GTO 2          
047 -       16  CHS            
048 -    45 .4  RCL .4         
049 -       40  +              
050 - 42,21, 3  LBL 3          
051 -    45 .1  RCL .1         
052 -       40  +              
053 -    43 32  RTN            
054 - 42,21, 2  LBL 2          
055 -       33  Rv             
056 -    45 .4  RCL .4         
057 -       30  -              
058 -    22  3  GTO 3          
059 - 42,21, 4  LBL 4          
060 - 43,30, 2  TEST 2         
061 -    22  5  GTO 5          
062 -    45 .5  RCL .5         
063 -       30  -              
064 -    22  4  GTO 4          
065 - 42,21, 5  LBL 5          
066 -    45 .5  RCL .5         
067 -       40  +              
068 -    43 32  RTN            
069 - 42,21,11  LBL A          
070 -    45 .3  RCL .3         
071 -    45 .2  RCL .2         
072 -    43  1  ->P            
073 -       36  ENTER          
074 -       36  ENTER          
075 -    45 .0  RCL .0         
076 -       34  x<>y           
077 -       10  /              
078 -    44 .9  STO .9         
079 -       33  Rv             
080 - 42, 7, 3  FIX 3          
081 -       31  R/S            
082 -       33  Rv             
083 -    32  4  GSB 4          
084 - 42, 7, 4  FIX 4          
085 -    42  2  ->H.MS         
086 -       31  R/S            
087 - 42, 7, 0  FIX 0          
088 -    45 .9  RCL .9         
089 -       31  R/S            
090 - 42,21,14  LBL D          
091 - 43, 4, 0  SF 0           
092 -    22  8  GTO 8          
093 - 42,21, 6  LBL 6          
094 - 42, 7, 3  FIX 3          
095 -    43 35  CLx            
096 -       31  R/S            
097 -    44 .7  STO .7         
098 -       31  R/S            
099 -    44 .8  STO .8         
100 -    43 32  RTN            
101 - 42,21, 7  LBL 7          
102 -        1  1              
103 - 44,40,.6  STO+ .6        
104 -    45 .6  RCL .6         
105 - 42, 7, 0  FIX 0          
106 -    42 31  PSE            
107 -    42 31  PSE            
108 - 42, 7, 3  FIX 3          
109 -    45 .7  RCL .7         
110 -       31  R/S            
111 -    45 .8  RCL .8         
112 -       31  R/S            
113 -    43 32  RTN            
114 - 42,21,12  LBL B          
115 -    43  2  ->H            
116 - 42, 7, 7  FIX 7          
117 -       31  R/S            
118 -    42  2  ->H.MS         
119 - 42, 7, 4  FIX 4          
120 -       31  R/S            
121 -    22 12  GTO B

The Nonpareil state-file was created using the Voyager program compiler.