; HP-34C Applications
HP34

PROGRAM 67
NAME CURVE FITTING

001  LBL A
002  CLREG
003  FIX 2
004  ENTER
005  ENTER
006  6
007  +
008  STO I
009  ROLL
010  SF 0
011  SF 1
012  GTO I
013  LBL 7
014  CF 1
015  GTO 9
016  LBL 8
017  CF 0
018  LBL 9
019  R/S
020  F?0
021  LN
022  X<>Y
023  F?1
024  LN
025  F?2
026  GTO 6
027  E+
028  GTO 9
029  LBL 6
030  E-
031  CF 2
032  GTO 9
033  LBL B
034  L.R.
035  F?0
036  e^x
037  R/S
038  X<>Y
039  R/S
040  r
041  x^2
042  RTN
043  LBL 0
044  SF 2
045  GTO 9
046  LBL 1
047  F?1
048  LN
049  y
050  F?0
051  e^x
END

PROGRAM 68
NAME HYPERBOLIC

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

END 

PROGRAM 69
NAME POLYNOMIAL

001  LBL 0
002  STO .1
003  STO I
004  LBL 8
005  R/S
006  STO (i)
007  DSE
008  GTO 8
009  R/S
010  RCL .1
011  STO I
012  ROLL
013  STO 0
014  R/S
015  LBL A
016  FIX 4
017  SF 0
018  ENTER
019  ENTER
020  ENTER
021  GTO 3
022  LBL B
023  FIX 4
024  SF 0
025  SOLVE 3
026  R/S
027  GTO 7
028  LBL 2
029  SF 0
030  SUM 3
031  R/S
032  LBL 1
033  FIX 4
034  CF 0
035  STO .0
036  ROLL
037  SOLVE 3
038  R/S
039  GTO 7
040  LBL 3
041  RCL (i)
042  *
043  DSE
044  LBL 9
045  RCL (i)
046  +
047  *
048  DSE
049  GTO 9
050  RCL 0
051  +
052  RCL .1
053  STO I
054  ROLL
055  F? 0
056  RTN
057  RCL .0
058  -
END

PROGRAM 70
NAME ANNUITIES

001  LBL A
002  FIX 2
003  F? 0
004  GTO 7
005  SF 0
006  0
007  R/S
008  LBL 7
009  CF 0
010  1
011  R/S
012  LBL 1
013  0
014  STO 1
015  GSB 6
016  RCL 5
017  LastX
018  -
019  RCL 3
020  LastX
021  +
022  :
023  CHS
024  LN
025  RCL 6
026  LN
027  :
028  STO 1
029  RTN
030  LBL 4
031  1
032  STO 4
033  GSB 6
034  1/x
035  RCL 3
036  GSB 8
037  *
038  CHS
039  STO 4
040  RTN
041  LBL 3
042  GSB 6
043  GSB 8
044  CHS
045  STO 3
046  RTN
047  LBL 5
048  GSB 6
049  RCL 3
050  +
051  RCL 7
052  :
053  CHS
054  STO 5
055  RTN
056  LBL 2
057  .
058  2
059  ENTER
060  EEX
061  CHS
062  3
063  CF 1
064  SOLVE B
065  GTO 7
066  GTO 0
067  LBL 7
068  EEX
069  2
070  *
071  STO 2
072  R/S
073  LBL B
074  STO 8
075  GTO 9
076  LBL 6
077  SF 1
078  1
079  RCL 2
080  %
081  STO 8
082  LBL 9
083  RCL 8
084  1
085  STO 0
086  +
087  STO 6
088  F? 0
089  STO 0
090  RCL 1
091  CHS
092  y^x
093  STO 7
094  1
095  x<>y
096  -
097  STO 9
098  RCL 0
099  *
100  RCL 4
101  RCL 8
102  :
103  STO .0
104  *
105  F? 1
106  RTN
107  GSB 8
108  RCL 3
109  +
110  CHS
111  RTN
112  LBL 8
113  RCL 5
114  RCL 7
115  *
116  +
END

PROGRAM 71
NAME CASH FLOW

001  LBL A
002  STO .8
003  1
004  .
005  0
006  1
007  6
008  STO I
009  x<>y
010  LBL 0
011  R/S
012  x<>y
013  STO (i)
014  ROLL
015  ISG
016  STO (i)
017  ISG
018  GTO 0
019  R/S
020  LBL 1
021  SF 1
022  EEX
023  2
024  :
025  LBL B
026  RCL I
027  INT
028  1
029  -
030  STO I
031  STO .7
032  ROLL
033  F? 1
034  GTO 2
035  1
036  ENTER
037  EEX
038  CHS
039  3
040  SOLVE 2
041  GTO 3
042  GTO 9
043  LBL 3
044  EEX
045  2
046  *
047  R/S
048  LBL 2
049  1
050  +
051  STO 0
052  0
053  LBL 4
054  RCL 0
055  RCL (i)
056  CHS
057  y^x
058  *
059  1
060  LastX
061  -
062  DSE
063  RCL (i)
064  *
065  +
066  DSE
067  GTO 4
068  RCL 0
069  1
070  -
071  :
072  RCL .8
073  +
074  RCL .7
075  STO I
076  ROLL
077  CF 1
END

PROGRAM 72
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 0
014  RCL 6
015  FIX 4
016  EEX  
017  4    
018  :    
019  RCL 7
020  ABS  
021  +    
022  RCL 7
023  x>0  
024  GSB 4
025  x<>y 
026  CHS  
027  PSE
028  PSE
029  FIX 0
030  RCL 8
031  PSE
032  3
033  PSE
034  2
035  PSE
036  1
037  PSE
038  0
039  PSE
040  LBL 9
041  RCL 8
042  x<>y
043  x>y
044  GTO 6
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  x>0
063  GTO 0
064  RCL 7
065  LBL 7
066  PSE
067  GTO 7
068  LBL 6
069  RCL 8
070  2
071  .
072  5
073  -
074  STO + 6
075  2
076  *
077  STO + 7
078  RCL 6
079  1
080  0
081  *
082  RCL 7
083  x^2
084  +
085  SQRT
086  CHS
087  GTO 7
088  LBL 4
089  x<>y
090  CHS
091  x<>y
END

PROGRAM 73
NAME NIMB

001  LBL A
002  FIX 0
003  STO 0
004  1
005  +
006  STO 1
007  3
008  5
009  0
010  7
011  .
012  1
013  STO 2
014  5
015  5
016  1
017  7
018  8
019  STO 3
020  RCL 0
021  LBL 1
022  R/S
023  LBL B
024  FIX 0
025  STO 0
026  LBL 4
027  CHS  
028  R/S  
029  +    
030  x<0
031  GTO 0
032  RCL 3
033  GTO 1
034  LBL 0
035  LastX
036  1
037  x>y
038  GTO 2
039  ROLL
040  RCL 1
041  x<=y
042  GTO 2
043  x<>y
044  STO - 0
045  RCL 0
046  R/S
047  1
048  -
049  RCL 1
050  :
051  FRAC
052  RCL 1
053  *
054  x=0
055  1
056  STO - 0
057  LBL 2
058  RCL 0
059  x!=0
060  GTO 4
061  RCL 2
062  FIX 1
063  GTO 1
END

PROGRAM 74
NAME TIMERS

001  LBL A
002  CF 0
003  FIX 4
004  STO 0
005  LBL 9
006  0
007  R/S
008  STO 1
009  ->H
010  RCL 0
011  *
012  INT
013  STO I
014  RCL 1
015  R/S
016  LBL 8
017  DSE
018  GTO 8
019  GTO 9
020  LBL B
021  SF 0
022  FIX 4
023  STO 2
024  LBL 6
025  .
026  9
027  9
028  9
029  STO I
030  0
031  R/S
032  LBL 7
033  ISG
034  GTO 7
035  LBL B
036  RCL I
037  INT
038  RCL 2
039  :
040  ->HMS
041  R/S
042  GTO 6
043  LBL 1
044  ->H
045  x<>y
046  ->H
047  x<>y
048  -
049  RCL 1
050  ->H
051  :
052  1/x
053  F? 0
054  GTO 0
055  RCL 0
056  *
057  R/S
058  GTO A
059  LBL 0
060  RCL 2
061  *
062  R/S
063  GTO B
END  

PROGRAM 75
NAME RANDOM NUMB.

001  LBL A
002  FIX 4
003  STO 0
004  GSB 0
005  LBL 3
006  GSB 9
007  R/S
008  GTO 3
009  LBL B
010  FIX 0
011  STO 0
012  GSB 0
013  LBL 4
014  GSB 9
015  1
016  0
017  *
018  INT
019  R/S
020  GTO 4
021  LBL 1
022  FIX 0
023  STO 0
024  GSB 0
025  LBL 5
026  GSB 9
027  1
028  3
029  *
030  1
031  +
032  INT
033  R/S
034  GTO 5
035  LBL 0
036  9
037  8
038  2
039  1
040  STO 1
041  .
042  2
043  1
044  1
045  3
046  2
047  7
048  STO 2
049  RTN
050  LBL 9
051  RCL 0
052  RCL 1
053  *
054  RCL 2
055  +
056  FRAC
057  STO 0
END

PROGRAM 76
NAME MOVING AVERG.

001  LBL B
002  FIX 2
003  CLREG
004  STO .8
005  STO I
006  R/S
007  LBL A
008  RCL .9
009  1
010  +
011  x<>y
012  RCL (i)
013  STO - 0
014  x<>y
015  STO (i)
016  STO + 0
017  ROLL
018  x<>y
019  STO .9
020  RCL .8
021  x<=y
022  GSB 0
023  DSE
024  GTO 5
025  RCL .8
026  STO I
027  LBL 5
028  ROLL
029  RTN
030  LBL 0
031  x<>y
032  PAUSE
033  RCL 0
034  RCL .8
035  :
036  ENTER
037  RTN
038  LBL 1
039  RCL 0
040  RCL .9
041  RCL .8
042  x<=y
043  x<>y
044  ROLL
045  :
END
