HP25

PROGRAM 110
NAME BATTLE SHIPS

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

END

PROGRAM 111
NAME PLOT / GRAPH

01  ->R
02  STO 2
03  X<>Y
04  STO 3
05  0
06  STO 4
07  RCL 0
08  STO + 4
09  RCL 4
10  x^2
11  RCL 1
12  *
13  2
14  /
15  CHS
16  RCL 4
17  RCL 3
18  *
19  +
20  RCL 4
21  RCL 2
22  *
23  RCL 4
24  PAUSE
25  ROLL
26  R/S
27  X<>Y
28  R/S
29  GTO 07

END

PROGRAM 112
NAME QUADR EQU   

01  ENTER
02  ROLL
03  /
04  2
05  /
06  CHS
07  ENTER
08  x^2
09  ROLL
10  ROLL
11  X<>Y
12  /
13  STO 0
14  -
15  PAUSE
16  x<0
17  GTO 31
18  SQRT
19  X<>Y
20  x<0
21  GTO 24
22  +
23  GTO 26
24  X<>Y
25  -
26  R/S
27  1/x
28  RCL 0
29  *
30  GTO 00
31  CHS
32  SQRT
33  X<>Y
34  R/S
35  X<>Y

END

PROGRAM 113
NAME COMPLEX ARIT

01  CHS
02  X<>Y
03  CHS
04  X<>Y
05  RCL 0
06  +
07  X<>Y
08  RCL 1
09  +
10  GTO 31
11  ->P
12  1/x
13  X<>Y
14  CHS
15  X<>Y
16  GTO 18
17  ->P
18  STO 2
19  ROLL
20  RCL 1
21  RCL 0
22  ->P
23  RCL 2
24  *
25  STO 2
26  ROLL
27  +
28  RCL 2
29  ->R
30  X<>Y
31  STO 1
32  X<>Y
33  STO 0

END

PROGRAM 114
NAME COMPLEX FUNC

01  ->P
02  GTO 00
03  ->P
04  x^2
05  X<>Y
06  ENTER
07  +
08  X<>Y
09  ->R
10  GTO 00
11  ->P
12  1/x
13  X<>Y
14  CHS
15  X<>Y
16  ->R
17  GTO 00
18  ->P
19  SQRT
20  X<>Y
21  2
22  /
23  X<>Y
24  ->R

END

PROGRAM 115
NAME 2X2 MATRIX  

01  RCL 4
02  RCL 1
03  *
04  RCL 2
05  RCL 3
06  *
07  -
08  STO 0
09  R/S
10  RCL 4
11  RCL 0
12  /
13  R/S
14  RCL 2
15  RCL 0
16  /
17  CHS
18  R/S
19  RCL 3
20  RCL 0
21  /
22  CHS
23  R/S
24  RCL 1
25  RCL 0
26  /

END

PROGRAM 116
NAME BASE B TO 10

01  STO 1
02  RCL 0
03  ENTER
04  ENTER
05  ENTER
06  RCL 1
07  R/S
08  STO 1
09  CLX
10  +
11  *
12  RCL 1
13  +
14  GTO 07
15  RCL 0
16  1/x
17  STO 2
18  STO 3
19  *
20  R/S
21  RCL 2
22  RCL 3
23  *
24  STO 3
25  *
26  +
27  GTO 20

END

PROGRAM 117
NAME BASE 10 TO B

01  RCL 0
02  1
03  0
04  x>=y
05  GTO 09
06  1
07  0
08  0
09  STO 2
10  0
11  STO 3
12  RCL 1
13  LN
14  RCL 0
15  LN
16  /
17  x<0
18  GTO 21
19  INT
20  GTO 24
21  INT
22  1
23  -
24  STO 4
25  RCL 2
26  X<>Y
27  Y^X
28  RCL 3
29  +
30  STO 3
31  PAUSE
32  PAUSE
33  RCL 0
34  RCL 4
35  Y^X
36  STO - 1
37  GTO 12

END

PROGRAM 118
NAME CROSS PROD  

01  RCL 2
02  RCL 6
03  *
04  RCL 3
05  RCL 5
06  *
07  -
08  R/S
09  RCL 3
10  RCL 4
11  *
12  RCL 1
13  RCL 6
14  *
15  -
16  R/S
17  RCL 1
18  RCL 5
19  *
20  RCL 2
21  RCL 4
22  *
23  -

END

PROGRAM 119
NAME DOT   PROD  

01  ENTER
02  x^2
03  STO + 1
04  ROLL
05  X<>Y
06  ENTER
07  x^2
08  STO + 0
09  ROLL
10  *
11  STO + 2
12  GTO 00
13  RCL 2
14  RCL 0
15  RCL 1
16  *
17  SQRT
18  /
19  COS-1

END

PROGRAM 120
NAME EQU TWO VARS

01  RCL 3
02  RCL 5
03  *
04  RCL 2
05  RCL 6
06  *
07  -
08  RCL 1
09  RCL 5
10  *
11  RCL 2
12  RCL 4
13  *
14  -
15  STO 0
16  /
17  R/S
18  RCL 1
19  RCL 6
20  *
21  RCL 3
22  RCL 4
23  *
24  -
25  RCL 0
26  /

END

PROGRAM 121
NAME ACC INTEREST

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

END

PROGRAM 122
NAME PAYMENT     

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

END

PROGRAM 123
NAME INTERST RATE

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

END

PROGRAM 124
NAME COMPOUND AM 

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

END

PROGRAM 125
NAME PERIODIC SAV

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

END

PROGRAM 126
NAME CASH FLOW   

01  RCL 1
02  1
03  STO 4
04  +
05  STO 2
06  /
07  RCL 0
08  -
09  RCL 4
10  PAUSE
11  X<>Y
12  STO 3
13  R/S
14  RCL 2
15  RCL 4
16  1
17  +
18  STO 4
19  Y^X
20  /
21  RCL 3
22  +
23  GTO 09

END

PROGRAM 127
NAME CALENDAR    

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

END

PROGRAM 128
NAME MOON LANDING

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

END

PROGRAM 129
NAME NIMB        

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

END

PROGRAM 130
NAME TEACH ARITHM

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

END

PROGRAM 131
NAME GREAT CIRCLE

01  ->H
02  STO 4
03  RCL 1
04  -
05  SIN
06  RCL 2
07  TAN
08  *
09  RCL 4
10  RCL 3
11  -
12  SIN
13  RCL 0
14  TAN
15  *
16  -
17  RCL 3
18  RCL 1
19  -
20  SIN
21  /
22  TAN-1
23  ->H.MS
24  FIX 4

END

PROGRAM 132
NAME RHUMBLINE   

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

END

PROGRAM 133
NAME SIGHT REDUCT

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

END

PROGRAM 134
NAME GCNAVIGATION

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

END

PROGRAM 135
NAME NEWTON      

01  CLX
02  STO 0
03  RCL 1
04  GTO 17
05  ROLL
06  STO 4
07  NOP
08  1
09  STO 0
10  RCL 1
11  RCL 1
12  EEX
13  5
14  /
15  STO 3
16  +
17  GTO 00
18  GTO 00
19  GTO 00
20  GTO 00
21  GTO 00
22  GTO 00
23  GTO 00
24  GTO 00
25  GTO 00
26  GTO 00
27  GTO 00
28  GTO 00
29  GTO 00
30  GTO 00
31  x=0
32  GTO 49
33  RCL 0
34  x=0
35  GTO 05
36  ROLL
37  RCL 4
38  /
39  1
40  -
41  1/x
42  RCL 3
43  *
44  STO - 1
45  ABS
46  RCL 2
47  x<y
48  GTO 01
49  RCL 1

END

PROGRAM 136
NAME SIMPSON     

01  RCL 0
02  3
03  /
04  STO 0
05  *
06  STO 1
07  R/S
08  RCL 0
09  *
10  RCL 1
11  +
12  STO 1
13  R/S
14  RCL 0
15  *
16  4
17  *
18  RCL 1
19  +
20  STO 1
21  R/S
22  RCL 0
23  *
24  2
25  *
26  RCL 1
27  +
28  STO 1
29  GTO 13

END

PROGRAM 137
NAME DIFF EQU    

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

END

PROGRAM 138
NAME LIN. INTERP 

01  STO 4
02  RCL 0
03  -
04  RCL 3
05  *
06  RCL 2
07  RCL 4
08  -
09  RCL 1
10  *
11  +
12  RCL 2
13  RCL 0
14  -
15  /

END

PROGRAM 139
NAME LIN. REGRESS

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

END

PROGRAM 140
NAME EXPONENTIAL 

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

END

PROGRAM 141
NAME LOGARITHMIC 

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

END

PROGRAM 142
NAME POWER       

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

END

PROGRAM 143
NAME COVARIANCE  

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

END

PROGRAM 144
NAME MOMENTS     

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

END

PROGRAM 145
NAME NORM DISTR  

01  ENTER
02  STO 6
03  *
04  2
05  /
06  CHS
07  e^x
08  PI
09  2
10  *
11  SQRT
12  /
13  STO 7
14  R/S
15  RCL 0
16  RCL 6
17  *
18  1
19  +
20  1/x
21  ENTER
22  ENTER
23  ENTER
24  RCL 5
25  *
26  RCL 4
27  +
28  *
29  RCL 3
30  +
31  *
32  RCL 2
33  +
34  *
35  RCL 1
36  +
37  *
38  RCL 7
39  *

END

PROGRAM 146
NAME INVNORM INT 

01  ENTER
02  *
03  1/x
04  LN
05  SQRT
06  STO 6
07  ENTER
08  ENTER
09  ENTER
10  RCL 5
11  *
12  RCL 4
13  +
14  *
15  RCL 3
16  +
17  *
18  1
19  +
20  STO 7
21  CLX
22  RCL 2
23  *
24  RCL 1
25  +
26  *
27  RCL 0
28  +
29  RCL 7
30  /
31  -

END

PROGRAM 148
NAME PERMUTATION 

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

END

PROGRAM 149
NAME COMBINATION 

01  -
02  LASTX
03  x<y
04  X<>Y
05  STO 0
06  1
07  STO 1
08  +
09  STO 2
10  ROLL
11  x=0
12  GTO 30
13  1
14  RCL 1
15  +
16  STO 1
17  X<>Y
18  x>=y
19  GTO 22
20  RCL 2
21  GTO 00
22  X<>Y
23  RCL 0
24  +
25  RCL 1
26  /
27  STO * 2
28  ROLL
29  GTO 13
30  1

END

PROGRAM 147
NAME FACTORIAL   

01  ENTER
02  1
03  STO 0
04  X<>Y
05  STO * 0
06  1
07  -
08  x!=y
09  GTO 05
10  RCL 0

END

PROGRAM 150
NAME RANDOM      

01  PI
02  RCL 0
03  +
04  5
05  Y^X
06  FRAC
07  STO 0

END

PROGRAM 151
NAME CHI SQUARE  

01  0
02  STO 0
03  STO 1
04  R/S
05  STO 2
06  -
07  x^2
08  RCL 2
09  /
10  STO + 1
11  RCL 0
12  1
13  +
14  STO 0
15  GTO 04
16  STO 2
17  -
18  x^2
19  RCL 2
20  /
21  STO - 1
22  RCL 0
23  1
24  -
25  STO 0
26  GTO 04

END

PROGRAM 152
NAME PAIRED STAT 

01  -
02  E+
03  GTO 00
04  s
05  RCL 3
06  SQRT
07  /
08  /x
09  X<>Y
10  /
11  R/S
12  RCL 3
13  1
14  -

END

PROGRAM 153
NAME TWO MEANS   

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

END

PROGRAM 154
NAME TRAVERSE    

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  ->H.MS
19  ->H
20  RCL 0
21  +
22  STO 0
23  ->H.MS
24  R/S
25  GTO 29
26  X<>Y
27  SIN
28  *
29  STO + 3
30  RCL 0
31  X<>Y
32  ->R
33  STO + 1
34  X<>Y
35  STO + 2
36  RCL 5
37  RCL 1
38  STO 5
39  +
40  *
41  2
42  /
43  STO + 4
44  RCL 1
45  R/S
46  RCL 2
47  GTO 12

END

PROGRAM 155
NAME AREA        

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

END

PROGRAM 156
NAME INVERSE     

01  CLREG
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  ->H.MS
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 157
NAME TRANSL/ROTAT

01  STO 3
02  ROLL
03  RCL 2
04  X<>Y
05  RCL 0
06  -
07  ->R
08  RCL 3
09  RCL 1
10  -
11  RCL 2
12  X<>Y
13  ->R
14  ROLL
15  +
16  R/S
17  ROLL
18  -

END

PROGRAM 158
NAME TRIANGLE 8BC

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

END

PROGRAM 159
NAME TRIANGLE ABC

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

END

PROGRAM 160
NAME TRIANGLE AA[

01  1
02  SIN-1
03  2
04  *
05  RCL 2
06  RCL 3
07  +
08  -
09  R/S
10  SIN
11  RCL 1
12  *
13  RCL 2
14  SIN
15  /
16  STO 4
17  R/S
18  RCL 1
19  LASTX
20  /
21  RCL 3
22  SIN
23  *
24  R/S
25  RCL 1
26  RCL 4
27  *
28  RCL 3
29  SIN
30  *
31  2
32  /

END

PROGRAM 161
NAME TRIANGLE AB[

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

END

PROGRAM 162
NAME TRIANGLE A8[

01  1
02  SIN-1
03  2
04  *
05  RCL 2
06  RCL 3
07  +
08  -
09  STO 4
10  R/S
11  RCL 1
12  RCL 4
13  SIN
14  /
15  STO 4
16  RCL 2
17  SIN
18  *
19  R/S
20  RCL 4
21  RCL 3
22  SIN
23  *
24  R/S
25  RCL 1
26  x^2
27  2
28  /
29  RCL 2
30  SIN
31  *
32  RCL 3
33  SIN
34  *
35  RCL 2
36  RCL 3
37  +
38  SIN
39  /

END

PROGRAM 163
NAME HYPERBOLIC  

01  e^x
02  ENTER
03  1/x
04  -
05  2
06  /
07  GTO 00
08  e^x
09  ENTER
10  1/x
11  +
12  GTO 05
13  e^x
14  ENTER
15  1/x
16  -
17  ENTER
18  ENTER
19  LASTX
20  2
21  *
22  +
23  /

END

PROGRAM 164
NAME INV HYPERBOL

01  ENTER
02  ENTER
03  *
04  1
05  +
06  SQRT
07  +
08  LN
09  GTO 00
10  ENTER
11  ENTER
12  *
13  1
14  -
15  SQRT
16  +
17  LN
18  GTO 00
19  ENTER
20  ENTER
21  1
22  +
23  X<>Y
24  CHS
25  1
26  +
27  /
28  LN
29  2
30  /

END

PROGRAM 165
NAME GPS DISTANCE

01  DEG
02  RCL 0
03  ->H
04  COS
05  LASTX
06  SIN
07  RCL 2
08  ->H
09  SIN
10  *
11  X<>Y
12  RCL 2
13  ->H
14  COS
15  *
16  RCL 1
17  ->H
18  RCL 3
19  ->H
20  -
21  COS
22  *
23  +
24  RAD
25  COS-1
26  6
27  3
28  7
29  1
30  *
31  PAUSE
32  GTO 01

END
