HP33

PROGRAM 110
NAME PLOTTING

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 111
NAME COUNT DOWN

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

END

PROGRAM 112
NAME CALENDAR

01  2
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  *
46  GTO 00
 
END

PROGRAM 113
NAME BIORHYTHMS

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

END

PROGRAM 114
NAME MOONLANDER

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  x>y
17  GTO 34
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
46  GTO 00

END

PROGRAM 115
NAME NIMB

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

END

PROGRAM 116
NAME ACC INTEREST

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

END

PROGRAM 117
NAME PAYMENT

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

END

PROGRAM 118
NAME INTER.RATE

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

END

PROGRAM 119
NAME PER.SAVINGS

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

END

PROGRAM 120
NAME TRIANGLE A

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

END

PROGRAM 121
NAME TRIANGLE B

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

END
