HP67

PROGRAM 111
NAME MOVING AVER 

001  LBL a
002  CLREG
003  P<>S
004  CLREG
005  1
006  x>y
007  GTO (i)
008  CLX
009  2
010  2
011  X<>Y
012  x>y
013  GTO 1
014  STO D
015  1
016  %
017  +
018  STO 1
019  INT
020  RTN
021  LBL 1
022  ROLL
023  LBL 4
024  PAUSE
025  GTO 4
026  LBL a
027  F? 0
028  SPC
029  RCL E
030  1
031  +
032  F? 0
033  -X-
034  X<>Y
035  F? 0
036  -X-
037  RCL (i)
038  STO - 0
039  X<>Y
040  STO (i)
041  STO + 0
042  ROLL
043  X<>Y
044  STO E
045  RCL D
046  x<=y
047  GSB 0
048  DSZ I
049  GTO 5
050  RCL I
051  1
052  0
053  1
054  *
055  STO I
056  LBL 5
057  ROLL
058  RTN
059  LBL 0
060  X<>Y
061  F? 0
062  GTO 0
063  PAUSE
064  LBL 0
065  RCL 0
066  RCL D
067  /
068  ENTER
069  F? 0
070  -X-
071  RTN
072  LBL b
073  W/DATA
074  RTN
075  LBL b
076  F? 0
077  GTO 0
078  1
079  SF 0
080  RTN
081  LBL 0
082  0
083  CF 0
084  RTN
085  LBL c
086  SPC
087  0
088  LBL 3
089  RCL D
090  x=y
091  RTN
092  1
093  %
094  +
095  RCL I
096  x=y
097  FRAC
098  STO I
099  ISZ I
100  RCL (i)
101  -X-
102  ROLL UP
103  1
104  +
105  GTO 3
106  LBL d
107  RCL 0
108  RCL E
109  RCL D
110  x<=y
111  X<>Y
112  ROLL
113  /
114  RTN

END

PROGRAM 112
NAME TABULATOR   

001  LBL a
002  CF 2
003  CLREG
004  P<>S
005  CLREG
006  INT
007  1
008  x>y
009  GTO 2
010  CLX
011  2
012  4
013  X<>Y
014  x<=y
015  GTO 0
016  GTO 7
017  LBL 0
018  1
019  %
020  +
021  STO I
022  0
023  ENTER
024  ENTER
025  ENTER
026  RTN
027  LBL A
028  F? 2
029  GSB 1
030  STO + (i)
031  STO + 0
032  X<>Y
033  ROLL
034  +
035  LASTX
036  F? 0
037  -X-
038  DSZ I
039  RTN
040  F? 0
041  SPC
042  SF 2
043  RCL I
044  EEX
045  4
046  %
047  +
048  STO I
049  CLX
050  ENTER
051  ROLL UP
052  F? 0
053  -X-
054  F? 0
055  SPC
056  RTN
057  LBL 1
058  0
059  ENTER
060  ENTER
061  ROLL UP
062  RTN
063  LBL B
064  F? 2
065  GTO 1
066  ISZ I
067  -
068  LASTX
069  STO - 0
070  STO - (i)
071  F? 0
072  SPC
073  RTN
074  LBL 1
075  ROLL UP
076  RCL I
077  FRAC
078  1
079  +
080  STO I
081  ROLL
082  -
083  LASTX
084  STO - 0
085  STO - (i)
086  F? 0
087  SPC
088  RTN
089  LBL b
090  F? 0
091  GTO 0
092  SF 0
093  CLX
094  SPC
095  1
096  RTN
097  LBL 0
098  CF 0
099  CLX
100  0
101  RTN
102  LBL C
103  CF 1
104  LBL 6
105  SPC
106  RCL I
107  FRAC
108  EEX
109  4
110  %
111  X<>I
112  DSP 2
113  LBL 4
114  RCL (i)
115  F? 1
116  GSB E
117  -X-
118  ROLL
119  DSZ I
120  GTO 4
121  SPC
122  RCL 0
123  F? 1
124  GSB E
125  -X-
126  ROLL
127  STO I
128  ROLL UP
129  CF 1
130  RTN
131  LBL D
132  SF 1
133  GTO 6
134  LBL E
135  RCL 0
136  /
137  EEX
138  2
139  *
140  RTN
141  LBL 2
142  ROLL
143  LBL 7
144  PAUSE
145  GTO 7

END

PROGRAM 113
NAME CURVE FITTIN

001  LBL a
002  0
003  F? 2
004  RTN
005  1
006  SF 2
007  RTN
008  LBL b
009  CF 0
010  CF 1
011  P<>S
012  CLREG
013  P<>S
014  1
015  RTN
016  LBL c
017  GSB b
018  SF 1
019  RTN
020  LBL d
021  GSB b
022  SF 0
023  RTN
024  LBL e
025  GSB d
026  SF 1
027  RTN
028  LBL A
029  CF 3
030  LBL 8
031  F? 2
032  GSB 9
033  STO D
034  F? 1
035  LN
036  X<>Y
037  STO C
038  F? 0
039  LN
040  F? 3
041  GTO 0
042  E+
043  LBL 7
044  ENTER
045  1
046  +
047  RCL C
048  X<>Y
049  RCL D
050  X<>Y
051  RTN
052  LBL 0
053  E-
054  GTO 7
055  LBL 9
056  SPC
057  X<>Y
058  -X-
059  X<>Y
060  -X-
061  SF 2
062  RTN
063  LBL B
064  SF 3
065  F? 2
066  GSB 3
067  GTO 8
068  LBL C
069  P<>S
070  SPC
071  RCL 8
072  RCL 4
073  RCL 6
074  *
075  RCL 9
076  /
077  -
078  ENTER
079  ENTER
080  RCL 4
081  x^2
082  RCL 9
083  /
084  RCL 5
085  X<>Y
086  -
087  /
088  STO B
089  *
090  RCL 6
091  x^2
092  RCL 9
093  /
094  CHS
095  RCL 7
096  +
097  /
098  -X-
099  RCL 6
100  RCL 4
101  RCL B
102  *
103  -
104  RCL 9
105  /
106  F? 1
107  e^x
108  STO A
109  -X-
110  RCL B
111  -X-
112  P<>S
113  RTN
114  LBL E
115  STO E
116  RCL A
117  RCL B
118  RCL E
119  F? 1
120  GTO 1
121  F? 0
122  LN
123  *
124  +
125  F? 2
126  GTO 9
127  RTN
128  LBL 1
129  F? 0
130  GTO 2
131  *
132  e^x
133  *
134  F? 2
135  GTO 9
136  RTN
137  LBL 2
138  X<>Y
139  Y^X
140  *
141  F? 2
142  GTO 9
143  RTN
144  LBL 3
145  SPC
146  1
147  CHS
148  -X-
149  SF 2
150  ROLL
151  RTN
152  LBL D
153  STO E
154  RCL B
155  1/x
156  RCL A
157  RCL E
158  X<>Y
159  F? 1
160  GTO 1
161  -
162  *
163  F? 0
164  e^x
165  F? 2
166  GTO 9
167  RTN
168  LBL 1
169  /
170  F? 0
171  GTO 1
172  LN
173  *
174  F? 2
175  GTO 9
176  RTN
177  LBL 1
178  X<>Y
179  Y^X
180  F? 2
181  GTO 9
182  RTN

END

PROGRAM 114
NAME CALENDAR    

001  LBL A
002  RCL 4
003  RCL C
004  -
005  3
006  GTO 0
007  LBL B
008  RCL 3
009  RCL C
010  +
011  4
012  LBL 0
013  STO I
014  ROLL
015  3
016  6
017  5
018  .
019  2
020  5
021  STO 5
022  3
023  0
024  .
025  6
026  0
027  0
028  1
029  STO 6
030  ROLL
031  ROLL
032  F? 3
033  GTO 1
034  STO (i)
035  1
036  2
037  2
038  .
039  1
040  -
041  RCL 5
042  /
043  INT
044  STO 9
045  RCL 5
046  *
047  INT
048  RCL (i)
049  -
050  CHS
051  STO A
052  RCL 6
053  /
054  INT
055  STO 7
056  RCL A
057  X<>Y
058  RCL 6
059  *
060  INT
061  -
062  STO 8
063  RCL 7
064  1
065  RCL 8
066  %
067  -
068  -
069  RCL 7
070  1
071  4
072  /
073  GSB 2
074  RCL 9
075  EEX
076  6
077  /
078  +
079  DSP 6
080  RTN
081  LBL 1
082  ROLL
083  ENTER
084  INT
085  STO 7
086  -
087  EEX
088  2
089  *
090  ENTER
091  INT
092  STO 8
093  -
094  EEX
095  4
096  *
097  STO 9
098  RCL 7
099  1
100  +
101  ENTER
102  1/x
103  .
104  7
105  +
106  CHS
107  GSB 2
108  RCL 6
109  *
110  INT
111  RCL 9
112  RCL 5
113  *
114  INT
115  +
116  RCL 8
117  +
118  STO (i)
119  1
120  7
121  2
122  0
123  9
124  8
125  2
126  +
127  DSP 0
128  RTN
129  LBL 2
130  INT
131  STO + 9
132  1
133  2
134  *
135  -
136  RTN
137  LBL C
138  DSP 0
139  STO C
140  F? 3
141  RTN
142  RCL 4
143  RCL 3
144  -
145  STO C
146  RTN
147  LBL D
148  F? 3
149  GTO 4
150  GSB C
151  DSP 1
152  LBL 3
153  7
154  /
155  INT
156  LASTX
157  FRAC
158  .
159  7
160  *
161  +
162  RTN
163  LBL 4
164  DSP 0
165  ENTER
166  INT
167  7
168  *
169  RTN
170  FRAC
171  1
172  0
173  *
174  +
175  STO C
176  RTN
177  LBL E
178  SF 3
179  RCL 5
180  5
181  GSB 0
182  RCL (i)
183  5
184  +
185  GSB 3
186  LASTX
187  1
188  0
189  *
190  RTN

END

PROGRAM 115
NAME ANNUITIES   

001  LBL A
002  0
003  STO A
004  GSB 0
005  RCL E
006  LASTX
007  -
008  RCL D
009  LASTX
010  -
011  /
012  LN
013  RCL 7
014  LN
015  /
016  STO A
017  RTN
018  LBL C
019  1
020  STO C
021  GSB 0
022  1/x
023  RCL D
024  ROLL UP
025  -
026  *
027  STO C
028  RTN
029  LBL D
030  1
031  STO D
032  GSB 0
033  +
034  STO D
035  RTN
036  LBL E
037  GSB 0
038  RCL D
039  X<>Y
040  -
041  RCL 8
042  /
043  STO E
044  RTN
045  LBL 0
046  CF 1
047  RCL D
048  x=0
049  SF 1
050  1
051  STO 5
052  RCL B
053  %
054  STO 9
055  +
056  F? 0
057  STO 5
058  STO 7
059  RCL A
060  CHS
061  Y^X
062  STO 8
063  RCL E
064  *
065  1
066  RCL 8
067  -
068  STO 4
069  RCL C
070  RCL 9
071  /
072  F? 1
073  CHS
074  STO 3
075  RCL 5
076  *
077  *
078  RTN
079  LBL a
080  CLX
081  STO C
082  STO D
083  STO E
084  CF 0
085  RTN
086  LBL b
087  F? 0
088  GTO 1
089  1
090  SF 0
091  RTN
092  LBL 1
093  0
094  CF 0
095  RTN
096  LBL B
097  0
098  STO B
099  2
100  1
101  STO I
102  RCL E
103  RCL A
104  RCL C
105  x=0
106  GTO 8
107  *
108  +
109  RCL D
110  x=0
111  GTO 3
112  -
113  RCL A
114  /
115  RCL D
116  GTO 4
117  LBL 3
118  RCL E
119  LASTX
120  -
121  ENTER
122  +
123  RCL A
124  1
125  -
126  x^2
127  RCL C
128  *
129  RCL E
130  +
131  LBL 4
132  /
133  .
134  9
135  CHS
136  x<=y
137  X<>Y
138  GSB 5
139  x=0
140  RTN
141  LBL 6
142  GSB 0
143  +
144  F? 1
145  CHS
146  RCL D
147  -
148  RCL 8
149  RCL A
150  RCL 7
151  /
152  *
153  F? 1
154  CLX
155  STO 6
156  F? 1
157  ROLL
158  F? 1
159  LASTX
160  RCL 4
161  RCL 9
162  /
163  -
164  RCL 5
165  *
166  F? 0
167  RCL 4
168  F? 0
169  +
170  RCL C
171  *
172  RCL 9
173  /
174  RCL 6
175  RCL E
176  *
177  -
178  /
179  CHS
180  GSB 5
181  RCL B
182  /
183  RND
184  x!=0
185  GTO 6
186  RCL B
187  RTN
188  LBL 8
189  RCL E
190  RCL D
191  /
192  RCL A
193  1/x
194  Y^X
195  1
196  -
197  LBL 5
198  EEX
199  2
200  *
201  STO + (i)
202  RTN
203  LBL c
204  SPC
205  RCL A
206  -X-
207  RCL B
208  -X-
209  RCL C
210  -X-
211  RCL D
212  -X-
213  RCL E
214  -X-
215  RTN

END

PROGRAM 116
NAME FOLLOW ME   

001  LBL A
002  CLREG
003  P<>S
004  CLREG
005  2
006  4
007  STO I
008  CLX
009  RTN
010  LBL a
011  +
012  1
013  GTO 0
014  LBL b
015  -
016  2
017  GTO 0
018  LBL c
019  *
020  3
021  GTO 0
022  LBL d
023  /
024  4
025  LBL 0
026  DSZ I
027  GTO 1
028  GTO 9
029  LBL 1
030  STO (i)
031  ROLL
032  RTN
033  LBL e
034  %
035  STO E
036  CLX
037  5
038  GTO 8
039  LBL B
040  STO E
041  CLX
042  6
043  GTO 8
044  LBL C
045  STO E
046  CLX
047  7
048  DSZ I
049  GTO 1
050  LBL 9
051  CLX
052  2
053  4
054  PAUSE
055  GTO 9
056  LBL 1
057  STO (i)
058  CLX
059  RCL E
060  LBL 8
061  DSZ I
062  GTO 1
063  GTO 9
064  LBL 1
065  STO (i)
066  CLX
067  RCL E
068  RTN
069  LBL D
070  CLX
071  2
072  4
073  STO I
074  CLX
075  STO 0
076  RTN
077  LBL E
078  STO E
079  ROLL
080  DSZ I
081  RCL (i)
082  X<>I
083  GTO (i)
084  LBL 0
085  CLX
086  2
087  4
088  STO I
089  CLX
090  RCL E
091  RTN
092  LBL 1
093  X<>I
094  CLX
095  RCL E
096  +
097  GTO E
098  LBL 2
099  X<>I
100  CLX
101  RCL E
102  -
103  GTO E
104  LBL 3
105  X<>I
106  CLX
107  RCL E
108  *
109  GTO E
110  LBL 4
111  X<>I
112  CLX
113  RCL E
114  /
115  GTO E
116  LBL 5
117  X<>I
118  CLX
119  RCL E
120  %
121  GTO E
122  LBL 6
123  X<>I
124  CLX
125  RCL E
126  RTN
127  LBL 7
128  X<>I
129  CLX
130  RCL E
131  DSZ I
132  RCL (i)
133  GTO E

END

PROGRAM 117
NAME TRIANGLES   

001  LBL A
002  STO D
003  ROLL
004  STO B
005  ROLL
006  STO 9
007  ROLL
008  ROLL
009  +
010  +
011  2
012  /
013  STO 7
014  x^2
015  LASTX
016  RCL B
017  *
018  -
019  RCL 9
020  RCL D
021  *
022  /
023  SQRT
024  COS-1
025  2
026  *
027  STO E
028  SIN
029  RCL 9
030  *
031  STO 8
032  RCL 7
033  x^2
034  LASTX
035  RCL 9
036  *
037  -
038  RCL B
039  /
040  RCL D
041  /
042  SQRT
043  COS-1
044  2
045  *
046  STO C
047  RCL E
048  GSB 0
049  STO A
050  GTO 1
051  LBL B
052  STO A
053  ROLL
054  STO 9
055  ROLL
056  STO E
057  RCL A
058  GSB 0
059  STO C
060  RCL E
061  RCL 9
062  P->R
063  X<>Y
064  STO 8
065  RCL C
066  1
067  P->R
068  ROLL
069  /
070  STO B
071  ROLL UP
072  *
073  +
074  STO D
075  GTO 1
076  LBL C
077  STO C
078  ROLL
079  STO A
080  ROLL
081  STO 9
082  RCL C
083  RCL A
084  GSB 0
085  RCL 9
086  RCL A
087  GTO B
088  LBL D
089  STO B
090  ROLL
091  STO A
092  ROLL
093  STO 9
094  RCL A
095  RCL B
096  P->R
097  RCL 9
098  -
099  R->P
100  STO D
101  RCL 9
102  RCL B
103  RCL D
104  GTO A
105  LBL E
106  STO C
107  ROLL
108  STO B
109  ROLL
110  STO 9
111  RCL C
112  SIN
113  RCL B
114  *
115  RCL 9
116  /
117  SIN-1
118  STO E
119  RCL C
120  GSB 0
121  STO A
122  RCL E
123  RCL 9
124  RCL A
125  GSB B
126  RCL 9
127  RCL B
128  x<=y
129  GTO 9
130  RCL E
131  COS
132  CHS
133  COS-1
134  STO E
135  RCL C
136  GSB 0
137  STO A
138  RCL E
139  RCL 9
140  RCL A
141  GTO B
142  LBL 0
143  +
144  COS
145  CHS
146  COS-1
147  RTN
148  LBL 1
149  SPC
150  SPC
151  RCL 9
152  -X-
153  RCL A
154  -X-
155  SPC
156  RCL B
157  -X-
158  RCL C
159  -X-
160  SPC
161  RCL D
162  -X-
163  RCL E
164  -X-
165  SPC
166  RCL 8
167  RCL D
168  *
169  2
170  /
171  -X-
172  RTN
173  LBL 9
174  ROLL
175  ROLL
176  RTN

END

PROGRAM 118
NAME VECTOR OPER 

001  LBL a
002  F? 1
003  GTO 0
004  SF 1
005  3
006  RTN
007  LBL 0
008  2
009  CF 1
010  RTN
011  LBL b
012  F? 0
013  GTO 0
014  SF 0
015  1
016  RTN
017  LBL 0
018  CF 0
019  0
020  RTN
021  LBL D
022  STO 7
023  1
024  GTO 0
025  LBL E
026  STO 8
027  2
028  LBL 0
029  SF 2
030  GSB 5
031  GTO (i)
032  LBL 1
033  STO 9
034  ROLL
035  STO A
036  ROLL
037  STO B
038  1
039  RTN
040  LBL 2
041  STO C
042  ROLL
043  STO D
044  ROLL
045  STO E
046  2
047  RTN
048  LBL d
049  0
050  LBL 5
051  STO I
052  ROLL UP
053  F? 1
054  GTO 0
055  CLX
056  1
057  SIN-1
058  LBL 0
059  ROLL
060  CLX
061  RCL I
062  ROLL
063  F? 0
064  STK
065  X<>Y
066  1
067  P->R
068  ROLL UP
069  ROLL UP
070  P->R
071  X<>Y
072  ROLL UP
073  X<>Y
074  *
075  LASTX
076  ROLL UP
077  *
078  GTO 2
079  LBL e
080  ROLL
081  ROLL
082  F? 1
083  GTO 0
084  CLX
085  LBL 0
086  ROLL
087  CLX
088  ROLL
089  F? 0
090  STK
091  LBL 6
092  R->P
093  X<>Y
094  x<0
095  GSB 3
096  ROLL
097  X<>Y
098  F? 1
099  GTO 0
100  CLX
101  LBL 0
102  R->P
103  ROLL UP
104  X<>Y
105  LBL 2
106  ROLL UP
107  CLX
108  ROLL
109  F? 2
110  RTN
111  F? 0
112  STK
113  RTN
114  LBL 3
115  1
116  CHS
117  COS-1
118  +
119  LASTX
120  +
121  RTN
122  LBL A
123  RCL B
124  RCL E
125  +
126  RCL D
127  RCL A
128  +
129  RCL C
130  RCL 9
131  +
132  SF 2
133  GSB 6
134  STK
135  RTN
136  LBL B
137  RCL 9
138  RCL D
139  *
140  RCL A
141  RCL C
142  *
143  -
144  RCL B
145  RCL C
146  *
147  RCL 9
148  RCL E
149  *
150  -
151  RCL B
152  RCL D
153  *
154  STO I
155  CLX
156  RCL A
157  RCL E
158  *
159  RCL I
160  -
161  x<=y
162  X<>Y
163  x<0
164  GSB 3
165  ROLL
166  X<>Y
167  R->P
168  ROLL UP
169  X<>Y
170  ROLL UP
171  CLX
172  ROLL
173  STK
174  RTN
175  LBL C
176  SPC
177  RCL 7
178  RCL 8
179  *
180  1/x
181  RCL 9
182  RCL C
183  *
184  RCL A
185  RCL D
186  *
187  +
188  RCL B
189  RCL E
190  *
191  +
192  -X-
193  *
194  LASTX
195  X<>Y
196  COS-1
197  -X-
198  RTN

END

PROGRAM 119
NAME POLYNOMIAL  

001  LBL a
002  0
003  STO E
004  RTN
005  LBL B
006  STO 1
007  1
008  RTN
009  LBL C
010  STO 2
011  2
012  GTO 0
013  LBL D
014  STO 3
015  3
016  GTO 0
017  LBL E
018  STO 4
019  4
020  LBL 0
021  X<>Y
022  x=0
023  RTN
024  X<>Y
025  RCL E
026  X<>Y
027  x>y
028  STO E
029  X<>Y
030  ROLL
031  RTN
032  LBL b
033  SPC
034  RCL E
035  STO I
036  /
037  RCL (i)
038  STO A
039  1/x
040  GSB 5
041  RCL 1
042  CHS
043  RCL 2
044  GTO (i)
045  LBL 3
046  RCL 1
047  LBL 9
048  STO B
049  X<>Y
050  CHS
051  2
052  /
053  x<0
054  SF 2
055  ENTER
056  x^2
057  RCL B
058  -
059  x<0
060  GTO 0
061  SQRT
062  F? 2
063  CHS
064  +
065  /
066  LASTX
067  GTO 6
068  LBL 0
069  ABS
070  SQRT
071  1
072  CHS
073  -X-
074  ROLL
075  LBL 6
076  -X-
077  LBL 2
078  X<>Y
079  -X-
080  RCL A
081  LBL 5
082  STO * 4
083  STO * 3
084  STO * 2
085  STO * 1
086  ROLL
087  CF 2
088  RTN
089  LBL 4
090  3
091  /
092  RCL 3
093  x^2
094  9
095  /
096  -
097  STO D
098  3
099  Y^X
100  STO C
101  RCL 3
102  RCL 2
103  *
104  RCL 1
105  3
106  *
107  -
108  6
109  /
110  RCL 3
111  3
112  Y^X
113  2
114  7
115  /
116  -
117  STO B
118  x^2
119  +
120  x<0
121  GTO 0
122  SQRT
123  RCL B
124  X<>Y
125  -
126  LASTX
127  RCL B
128  +
129  GSB 0
130  X<>Y
131  GSB 1
132  +
133  RCL 3
134  3
135  /
136  -
137  GTO 8
138  LBL 1
139  x<0
140  SF 2
141  ABS
142  3
143  1/x
144  Y^X
145  F? 2
146  CHS
147  RTN
148  LBL 0
149  RCL B
150  RCL C
151  CHS
152  SQRT
153  /
154  COS-1
155  3
156  /
157  COS
158  RCL D
159  CHS
160  SQRT
161  *
162  ENTER
163  +
164  RCL 3
165  3
166  /
167  -
168  LBL 8
169  -X-
170  SPC
171  STO B
172  RCL 3
173  +
174  ENTER
175  ENTER
176  RCL B
177  *
178  RCL 2
179  +
180  GTO 9
181  LBL A
182  ENTER
183  ENTER
184  ENTER
185  RCL E
186  STO I
187  CLX
188  RCL (i)
189  DSZ I
190  GTO d
191  RTN
192  LBL d
193  *
194  RCL (i)
195  +
196  DSZ I
197  GTO d
198  RTN

END

PROGRAM 120
NAME 3c3 MATRIX  

001  LBL A
002  0
003  GTO 5
004  LBL B
005  3
006  GTO 5
007  LBL C
008  6
009  GTO 5
010  LBL D
011  1
012  9
013  LBL 5
014  STO I
015  GSB 6
016  GSB 6
017  LBL 6
018  ROLL UP
019  ISZ I
020  STO (i)
021  RTN
022  LBL a
023  0
024  STO I
025  RCL 6
026  RCL 8
027  GSB 7
028  RCL 4
029  RCL 9
030  GSB 7
031  RCL 5
032  RCL 7
033  GSB 7
034  CHS
035  RCL 3
036  RCL 8
037  GSB 7
038  RCL 1
039  RCL 9
040  GSB 7
041  RCL 2
042  RCL 7
043  LBL 7
044  ISZ I
045  RCL (i)
046  *
047  *
048  +
049  RTN
050  LBL b
051  GSB a
052  1/x
053  RCL 1
054  RCL 9
055  *
056  RCL 3
057  RCL 7
058  GSB 3
059  STO D
060  CLX
061  RCL 3
062  RCL 4
063  *
064  RCL 1
065  RCL 6
066  GSB 3
067  STO E
068  CLX
069  RCL 2
070  RCL 7
071  *
072  RCL 1
073  RCL 8
074  GSB 3
075  STO I
076  CLX
077  RCL 1
078  RCL 5
079  *
080  RCL 2
081  RCL 4
082  GSB 3
083  STO 0
084  CLX
085  RCL 3
086  RCL 8
087  *
088  RCL 2
089  RCL 9
090  GSB 3
091  STO 1
092  CLX
093  RCL 2
094  RCL 6
095  *
096  RCL 3
097  RCL 5
098  GSB 3
099  STO 3
100  CLX
101  RCL 5
102  RCL 9
103  *
104  RCL 6
105  RCL 8
106  GSB 3
107  STO 2
108  CLX
109  RCL 6
110  RCL 7
111  *
112  RCL 4
113  RCL 9
114  GSB 3
115  STO 6
116  CLX
117  RCL 4
118  RCL 8
119  *
120  RCL 5
121  RCL 7
122  GSB 3
123  RCL I
124  RCL 0
125  GSB C
126  RCL 2
127  RCL 1
128  RCL 3
129  GSB A
130  RCL 6
131  RCL D
132  RCL E
133  GSB B
134  CLX
135  RTN
136  LBL 3
137  *
138  -
139  *
140  RTN
141  LBL E
142  SPC
143  1
144  STO I
145  LBL 2
146  RCL (i)
147  -X-
148  9
149  RCL I
150  x=y
151  GTO 0
152  3
153  /
154  FRAC
155  x=0
156  SPC
157  RCL I
158  ISZ I
159  GTO 2
160  LBL 0
161  SPC
162  RCL A
163  -X-
164  RCL B
165  -X-
166  RCL C
167  -X-
168  RTN
169  LBL c
170  SPC
171  1
172  STO I
173  GSB 1
174  STO D
175  2
176  STO I
177  GSB 1
178  STO E
179  3
180  STO I
181  GSB 1
182  STO 0
183  0
184  RCL D
185  RCL E
186  RCL 0
187  RTN
188  LBL 1
189  0
190  RCL A
191  GSB 4
192  RCL B
193  GSB 4
194  RCL C
195  GSB 4
196  -X-
197  RTN
198  LBL 4
199  RCL (i)
200  *
201  +
202  ISZ I
203  ISZ I
204  ISZ I
205  RTN

END

PROGRAM 121
NAME CALCULUS    

001  LBL A
002  STO I
003  RTN
004  LBL e
005  F? 0
006  GTO 0
007  SF 0
008  1
009  RTN
010  LBL 0
011  0
012  CF 0
013  RTN
014  LBL a
015  SF 1
016  STO E
017  RTN
018  LBL B
019  EEX
020  CHS
021  2
022  RCL E
023  F? 1
024  X<>Y
025  ROLL
026  %
027  x=0
028  LASTX
029  STO C
030  2
031  /
032  -
033  STO A
034  STO 0
035  GSB (i)
036  STO D
037  RCL A
038  RCL C
039  +
040  STO 0
041  GSB (i)
042  STO B
043  RCL D
044  -
045  RCL C
046  /
047  RTN
048  LBL C
049  STO 0
050  GSB (i)
051  RTN
052  LBL D
053  X<>Y
054  STO 0
055  -
056  X<>Y
057  STO B
058  /
059  STO C
060  2
061  /
062  STO + 0
063  0
064  STO 9
065  RCL B
066  X<>I
067  LBL 7
068  X<>I
069  STO B
070  RCL 0
071  GSB (i)
072  RCL C
073  STO + 0
074  *
075  STO + 9
076  RCL B
077  X<>I
078  DSZ I
079  GTO 7
080  STO I
081  RCL 9
082  RTN
083  LBL E
084  FIX
085  GSB B
086  RCL B
087  GTO 0
088  LBL 6
089  RCL 0
090  GSB (i)
091  STO B
092  LBL 0
093  RCL A
094  RCL 0
095  STO A
096  -
097  RCL D
098  RCL B
099  STO D
100  -
101  /
102  *
103  STO - 0
104  RCL 0
105  F? 0
106  PAUSE
107  /
108  RND
109  x!=0
110  GTO 6
111  RCL 0
112  RTN

END

PROGRAM 122
NAME SI CONVERS  

001  LBL a
002  SF 2
003  LBL A
004  2
005  5
006  .
007  4
008  F? 2
009  1/x
010  X<>Y
011  *
012  RTN
013  LBL b
014  SF 2
015  LBL B
016  .
017  3
018  0
019  4
020  8
021  F? 2
022  1/x
023  X<>Y
024  *
025  RTN
026  LBL c
027  SF 2
028  LBL C
029  3
030  .
031  7
032  8
033  5
034  4
035  1
036  1
037  7
038  8
039  4
040  F? 2
041  1/x
042  X<>Y
043  *
044  RTN
045  LBL d
046  SF 2
047  LBL D
048  4
049  .
050  4
051  4
052  8
053  2
054  2
055  1
056  6
057  1
058  5
059  F? 2
060  1/x
061  X<>Y
062  *
063  RTN
064  LBL e
065  SF 2
066  LBL E
067  .
068  4
069  5
070  3
071  5
072  9
073  2
074  3
075  7
076  F? 2
077  1/x
078  X<>Y
079  *
080  RTN

END

PROGRAM 123
NAME ARI? TEACHER

001  LBL a
002  0
003  STO 8
004  2
005  0
006  STO 7
007  1
008  0
009  STO D
010  STO B
011  1
012  STO A
013  .
014  5
015  2
016  8
017  4
018  1
019  6
020  3
021  LBL e
022  STO E
023  CLX
024  RTN
025  LBL b
026  SF 0
027  SPC
028  -X-
029  SPC
030  ABS
031  1
032  +
033  STO D
034  1
035  0
036  *
037  LOG
038  INT
039  STO A
040  10^x
041  STO B
042  CLX
043  RTN
044  LBL A
045  1
046  GTO 1
047  LBL B
048  2
049  GTO 1
050  LBL C
051  3
052  GTO 1
053  LBL D
054  4
055  LBL 1
056  STO I
057  SPC
058  -X-
059  SPC
060  LBL 9
061  GSB 5
062  STO C
063  GSB 5
064  RCL C
065  GSB (i)
066  RCL A
067  X<>I
068  DSP (i)
069  X<>I
070  ROLL
071  RCL B
072  /
073  +
074  0
075  +
076  RCL 9
077  x=y
078  GTO 9
079  ROLL
080  STO 9
081  F? 1
082  -X-
083  RTN
084  LBL 5
085  RCL E
086  9
087  9
088  7
089  *
090  FRAC
091  STO E
092  SQRT
093  RCL D
094  *
095  INT
096  RTN
097  LBL 1
098  +
099  STO C
100  LASTX
101  -
102  LASTX
103  RTN
104  LBL 2
105  STO C
106  X<>Y
107  +
108  LASTX
109  RTN
110  LBL 3
111  x=0
112  X<>Y
113  x=0
114  1
115  *
116  STO C
117  LASTX
118  /
119  LASTX
120  RTN
121  LBL 4
122  STO C
123  X<>Y
124  x=0
125  GSB 5
126  *
127  LASTX
128  RTN
129  LBL E
130  LASTX
131  x!=0
132  GTO 7
133  ROLL
134  RCL C
135  x!=y
136  GTO 8
137  1
138  F? 2
139  STO + 8
140  STO - 7
141  RCL 7
142  x!=0
143  GTO 9
144  SPC
145  2
146  0
147  RCL 8
148  -
149  -X-
150  2
151  0
152  -X-
153  /
154  EEX
155  2
156  *
157  -X-
158  SPC
159  SPC
160  SPC
161  SPC
162  2
163  0
164  STO 7
165  0
166  STO 8
167  GTO 9
168  LBL 8
169  SF 2
170  RCL 9
171  0
172  +
173  F? 1
174  SPC
175  RTN
176  LBL 7
177  0
178  /
179  RTN
180  LBL 5
181  0
182  STO C
183  CLX
184  1
185  RTN
186  LBL c
187  F? 1
188  GTO 0
189  SF 1
190  1
191  RTN
192  LBL 0
193  CF 1
194  0
195  RTN

END

PROGRAM 124
NAME MOON LANDER 

001  LBL A
002  5
003  0
004  0
005  STO 6
006  5
007  0
008  CHS
009  STO 7
010  6
011  0
012  STO 8
013  LBL 9
014  RCL 6
015  DSP 4
016  EEX
017  4
018  /
019  RCL 7
020  CF 2
021  x<0
022  SF 2
023  ABS
024  +
025  F? 2
026  CHS
027  PAUSE
028  PAUSE
029  DSP 0
030  RCL 8
031  PAUSE
032  3
033  PAUSE
034  2
035  PAUSE
036  1
037  PAUSE
038  0
039  PAUSE
040  LBL 5
041  RCL 8
042  X<>Y
043  x>y
044  GTO 2
045  STO - 8
046  2
047  *
048  5
049  -
050  STO 9
051  2
052  /
053  RCL 6
054  +
055  RCL 7
056  +
057  RCL 9
058  STO + 7
059  ROLL
060  STO 6
061  INT
062  INT
063  GTO 9
064  LBL 3
065  DSP 0
066  RCL 7
067  LBL 4
068  PAUSE
069  GTO 4
070  LBL 2
071  RCL 8
072  2
073  .
074  5
075  -
076  STO + 6
077  2
078  *
079  STO + 7
080  RCL 6
081  1
082  0
083  *
084  RCL 7
085  x^2
086  +
087  SQRT
088  CHS
089  GTO 4
090  LBL B
091  5
092  STO - 8
093  0
094  GTO 5

END

PROGRAM 125
NAME DIAGNOSTIC  

001  LBL A
002  CLREG
003  P<>S
004  CLREG
005  CF 3
006  7
007  .
008  7
009  7
010  7
011  7
012  7
013  7
014  7
015  7
016  CHS
017  EEX
018  CHS
019  7
020  7
021  X<>Y
022  ROLL UP
023  ROLL UP
024  ROLL UP
025  ROLL UP
026  ROLL
027  PAUSE
028  LBL 0
029  STO (i)
030  RCL (i)
031  x!=y
032  GTO 1
033  ISZ I
034  RCL E
035  RCL 0
036  x=y
037  GTO 2
038  GTO 0
039  LBL 1
040  RCL I
041  RTN
042  LBL 2
043  2
044  5
045  STO I
046  SIN
047  SIN-1
048  GSB 3
049  COS
050  COS-1
051  GSB 3
052  TAN
053  TAN-1
054  GSB 3
055  R->P
056  P->R
057  GSB 3
058  SIN
059  ->H.MS
060  ->H
061  SIN-1
062  GSB 3
063  LOG
064  10^x
065  GSB 3
066  LN
067  e^x
068  GSB 3
069  x^2
070  SQRT
071  GSB 3
072  ENTER
073  Y^X
074  LASTX
075  1/x
076  Y^X
077  GSB 3
078  ENTER
079  +
080  LASTX
081  -
082  GSB 3
083  ENTER
084  *
085  LASTX
086  /
087  GSB 3
088  1/x
089  1
090  +
091  FRAC
092  1/x
093  LASTX
094  +
095  INT
096  GSB 3
097  D->R
098  R->D
099  GSB 3
100  EEX
101  2
102  X<>Y
103  %
104  GSB 3
105  GTO 4
106  LBL 3
107  RND
108  RCL I
109  x!=y
110  R/S
111  ISZ I
112  RCL I
113  RTN
114  LBL 4
115  1
116  -
117  RCL I
118  x<=y
119  RTN
120  ISZ I
121  2
122  +
123  RCL I
124  x>y
125  RTN
126  ISZ I
127  RCL I
128  x=0
129  RTN
130  ISZ I
131  RCL I
132  x!=0
133  GTO 5
134  RTN
135  LBL 5
136  ISZ I
137  RCL I
138  x<0
139  RTN
140  ISZ I
141  RCL I
142  x>0
143  GTO 5
144  RTN
145  LBL 5
146  ISZ I
147  RCL I
148  F? 0
149  RTN
150  ISZ I
151  RCL I
152  F? 1
153  RTN
154  ISZ I
155  F? 2
156  RTN
157  ISZ I
158  RCL I
159  F? 3
160  RTN
161  ISZ I
162  SF 0
163  SF 1
164  SF 2
165  SF 3
166  F? 0
167  GTO 6
168  RTN
169  LBL 6
170  ISZ I
171  RCL I
172  F? 1
173  GTO 6
174  RTN
175  LBL 6
176  ISZ I
177  RCL I
178  F? 2
179  GTO 6
180  RTN
181  LBL 6
182  ISZ I
183  RCL I
184  F? 3
185  GTO 6
186  RTN
187  LBL 6
188  EEX
189  7
190  -X-
191  ENG
192  DSP 4
193  -X-
194  SCI
195  -X-
196  CF 0
197  CF 1
198  FIX
199  DSP 2
200  RTN

END
