HP33

PROGRAM 167
NAME AZIM-BEAR

01  X<>Y
02  ->H
03  X<>Y
04  ENTER
05  ENTER
06  2
07  /
08  INT
09  1
10  8
11  0
12  STO 0
13  *
14  X<>Y
15  RCL 0
16  *
17  COS
18  ROLL
19  ROLL
20  ROLL
21  *
22  -
23  ->HMS
24  GTO 00
25  ->H
26  ENTER
27  SIN
28  SIN-1
29  x<0
30  CHS
31  ->HMS
32  R/S
33  ROLL
34  9
35  0
36  /
37  1
38  +
39  INT
40  GTO 00

END

PROGRAM 168
NAME BEAR.TRAV

01  RCL 1
02  STO 5
03  R/S
04  X<>Y
05  ->H
06  X<>Y
07  ENTER
08  ENTER
09  2
10  /
11  INT
12  RCL 7
13  *
14  X<>Y
15  RCL 7
16  *
17  COS
18  ROLL
19  ROLL
20  ROLL
21  *
22  -
23  STO 0
24  ->HMS
25  R/S
26  GTO 31
27  X<>Y
28  ->H
29  SIN
30  *
31  STO + 3
32  RCL 0
33  X<>Y
34  ->R
35  STO + 5
36  STO + 1
37  X<>Y
38  STO + 6
39  STO + 2 
40  2
41  /
42  RCL 6
43  -
44  *
45  STO + 4
46  RCL 1
47  R/S
48  RCL 2
49  GTO 03

END

PROGRAM 169
NAME FIELD ANGLE

01  ->H
02  1
03  8
04  0
05  +
06  STO 0
07  RCL 1
08  STO 5
09  0
10  STO 3
11  STO 4
12  R/S
13  ->H
14  1
15  8
16  0
17  +
18  ->HMS
19  ->H
20  RCL 0
21  +
22  STO 0
23  ->HMS
24  R/S
25  GTO 30
26  X<>Y
27  ->H
28  SIN
29  *
30  STO + 3
31  RCL 0
32  X<>Y
33  ->R
34  STO + 1
35  STO + 5
36  X<>Y
37  STO + 6
38  STO + 2
39  2
40  /
41  RCL 6
42  -
43  *
44  STO + 4
45  RCL 1
46  R/S
47  RCL 2
48  GTO 12

END

PROGRAM 170
NAME INV. COORD

01  CL REG
02  STO 2
03  X<>Y
04  STO 0
05  STO 1
06  R/S
07  RCL 2
08  -
09  STO + 2
10  STO 5
11  X<>Y
12  RCL 1
13  -
14  STO + 1
15  ->P
16  STO + 3
17  R/S
18  X<>Y
19  x>0
20  GTO 25
21  3
22  6
23  0
24  +
25  ENTER
26  ENTER
27  9
28  0
29  /
30  1
31  +
32  INT
33  X<>Y
34  SIN
35  SIN-1
36  x<0
37  CHS
38  ->HMS
39  RCL 0
40  RCL 1
41  STO 0
42  +
43  RCL 5
44  *
45  2
46  /
47  STO + 4
48  ROLL
49  GTO 06

END

PROGRAM 171
NAME COMPASS RULE

01  RCL 5
02  STO 6
03  RCL 2
04  -
05  RCL 3
06  /
07  STO 7
08  RCL 4
09  RCL 1
10  -
11  RCL 3
12  /
13  STO 0
14  RCL 4
15  STO 3
16  R/S
17  STO 2
18  X<>Y
19  STO 1
20  RCL 4
21  -
22  STO + 3
23  X<>Y
24  RCL 5
25  -
26  STO + 6
27  ->P
28  STO 5
29  RCL 7
30  *
31  STO + 6
32  RCL 5
33  RCL 0
34  *
35  STO + 3
36  RCL 1
37  STO 4
38  RCL 2
39  STO 5
40  RCL 3
41  R/S
42  RCL 6
43  GTO 16

END

PROGRAM 172
NAME SIDESHOTS

01  STO 2
02  ROLL
03  STO 1
04  R/S
05  X<>Y
06  ->H
07  X<>Y
08  2
09  /
10  ENTER
11  INT
12  x!=0
13  GTO 19
14  ROLL
15  ROLL
16  CHS
17  ROLL
18  ROLL
19  ROLL
20  INT
21  1
22  8
23  0
24  STO 7
25  *
26  +
27  STO 0
28  R/S
29  ->H
30  RCL 7
31  +
32  GTO 34
33  ->H
34  RCL 0
35  +
36  R/S
37  GTO 42
38  X<>Y
39  ->H
40  SIN
41  *
42  ->R
43  RCL 1
44  +
45  R/S
46  X<>Y
47  RCL 2
48  +
49  GTO 28

END

PROGRAM 173
NAME BEAR-BEAR

01  STO 2
02  ROLL
03  STO 1
04  R/S
05  STO 4
06  ROLL
07  STO 3
08  R/S
09  ->H
10  STO 6
11  ROLL
12  ->H
13  STO 5
14  RCL 4
15  RCL 2
16  -
17  RCL 3
18  RCL 1
19  -
20  ->P
21  X<>Y
22  RCL 6
23  X<>Y
24  -
25  SIN
26  *
27  RCL 6
28  RCL 5
29  -
30  SIN
31  /
32  RCL 5
33  X<>Y
34  ->R
35  RCL 1
36  +
37  R/S
38  X<>Y
39  RCL 2
40  +
41  GTO 00

END

PROGRAM 174
NAME BEAR-DIST

01  STO 2
02  ROLL
03  STO 1
04  R/S
05  STO 4
06  ROLL
07  STO 3
08  R/S
09  STO 6
10  ROLL
11  ->H
12  STO 5
13  RCL 4
14  RCL 2
15  -
16  RCL 3
17  RCL 1
18  -
19  ->P
20  STO 7
21  ROLL
22  x<0
23  GSB 46
24  RCL 5
25  -
26  RCL 7
27  ->R
28  X<>Y
29  x^2
30  RCL 6
31  x^2
32  X<>Y
33  -
34  SQRT
35  +
36  RCL 5
37  X<>Y
38  ->R
39  RCL 1
40  +
41  R/S
42  X<>Y
43  RCL 2
44  +
45  GTO 00
46  RCL 0
47  +
48  RTN


END

PROGRAM 175
NAME DIST-DIST

01  STO 2
02  ROLL
03  STO 1
04  R/S
05  STO 4
06  ROLL
07  STO 3
08  R/S
09  STO 6
10  ROLL
11  STO 5
12  RCL 4
13  RCL 2
14  -
15  RCL 3
16  RCL 1
17  -
18  ->P
19  STO 7
20  x^2
21  RCL 5
22  x^2
23  +
24  RCL 6
25  x^2
26  -
27  2
28  /
29  RCL 7
30  RCL 5
31  *
32  /
33  COS-1
34  -
35  RCL 5
36  ->R
37  RCL 1
38  +
39  R/S
40  X<>Y
41  RCL 2
42  +
43  GTO 00

END

PROGRAM 176
NAME OFFSET POINT

01  STO 1
02  X<>Y
03  STO 0
04  RTN
05  RCL 1
06  -
07  X<>Y
08  RCL 0
09  -
10  ->P
11  STO 3
12  ROLL
13  x<0
14  GSB 43
15  ->HMS
16  R/S
17  ->H
18  STO 2
19  X<>Y
20  ->H
21  -
22  ABS
23  STO 4
24  RCL 3
25  ->R
26  STO 6
27  X<>Y
28  STO 7
29  RCL 2
30  RCL 6
31  ->R
32  STO + 0
33  ROLL
34  STO + 1
35  RCL 0
36  R/S
37  RCL 1
38  R/S
39  GSB 01
40  ROLL
41  ROLL
42  GTO 05
43  3
44  6
45  0
46  +
47  RTN

END

PROGRAM 177
NAME CURVE SOLUTIONS

01  ->H
02  STO 0
03  2
04  /
05  STO 1
06  R/S
07  STO 2
08  RCL 1
09  SIN
10  *
11  2
12  *
13  R/S
14  RCL 0
15  RCL 2
16  ->RAD
17  *
18  R/S
19  RCL 2
20  RCL 1
21  TAN
22  *
23  R/S
24  RCL 1
25  TAN
26  /
27  GTO 06
28  STO 2
29  x^2
30  RCL 1
31  ->RAD
32  *
33  R/S
34  RCL 2
35  x^2
36  2
37  /
38  RCL 0
39  SIN
40  *
41  -
42  GTO 00

END

PROGRAM 178
NAME ELEVATIONS

01  X<>Y
02  STO 1
03  -
04  5
05  0
06  *
07  STO 3
08  CLX
09  R/S
10  STO 6
11  R/S
12  STO / 3
13  ROLL
14  STO 2
15  R/S
16  RCL 6
17  -
18  EEX
19  2
20  /
21  STO 4
22  ENTER
23  x^2
24  RCL 3
25  *
26  X<>Y
27  RCL 1
28  *
29  +
30  RCL 2
31  +
32  GTO 15
33  RCL 1
34  CHS
35  2
36  /
37  RCL 3
38  /
39  GTO 21
40  RCL 4
41  EEX
42  2
43  *
44  RCL 6
45  +
46  GTO 15

END

PROGRAM 179
NAME VOLUME AV

01  CLX
02  CL REG
03  R/S
04  STO * 1
05  RCL 1
06  STO - 2
07  ROLL
08  X<>Y
09  STO * 0
10  RCL 0
11  STO + 2
12  ROLL
13  STO 1
14  ROLL
15  STO 0
16  RCL 2
17  2
18  /
19  STO 3
20  GTO 03
21  RCL 4
22  RCL 3
23  ABS
24  STO 4
25  +
26  5
27  4
28  /
29  *
30  STO 5
31  STO + 6
32  RCL 6
33  R/S
34  CLX
35  STO 3
36  STO 2
37  STO 1
38  STO 0
39  GTO 03

END

PROGRAM 180
NAME COORD TRANS

01  STO 2
02  X<>Y
03  STO 1
04  R/S
05  ROLL
06  -
07  STO 3
08  ROLL
09  X<>Y
10  -
11  STO 4
12  R/S
13  ->H
14  STO 5
15  1
16  R/S
17  STO 6
18  R/S
19  RCL 2
20  -
21  X<>Y
22  RCL 1
23  -
24  ->P
25  RCL 6
26  *
27  X<>Y
28  RCL 5
29  -
30  X<>Y
31  ->R
32  RCL 1
33  +
34  RCL 3
35  -
36  X<>Y
37  RCL 2
38  +
39  RCL 4
40  -
41  X<>Y
42  R/S
43  X<>Y
44  GTO 18

END
