Star Trek
Code:
01 LBL "ST"
02 CLRG
03 CF 02
04 SF 27
05 FIX 02
06 "STAR TREK"
07 PROMPT
08 LBL A
09 STO 14
10 2 E4
11 STO 08
12 E2
13 STO 10
14 4
15 STO 15
16 /
17 STO 00
18 0
19 STO 06
20 LBL 09
21 XEQ 08
22 RCL 10
23 *
24 RND
25 STO IND 15
26 DSE 15
27 GTO 09
28 LBL 00
29 RCL 04
30 FIX 02
31 VIEW X
32 PSE
33 PSE
34 PSE
35 CLD
36 STOP
37 LBL 08
38 RCL 14
39 ATAN
40 FRC
41 STO 14
42 RTN
43 LBL B
44 3
45 STO 15
46 LBL 06
47 XEQ 02
48 RCL 00
49 X<=Y?
50 GTO 05
51 RDN
52 RCL 15
53 FIX 00
54 VIEW X
55 PSE
56 PSE
57 PSE
58 CLD
59 RDN
60 VIEW X
61 PSE
62 PSE
63 PSE
64 CLD
65 X<>Y
66 VIEW X
67 PSE
68 PSE
69 PSE
70 CLD
71 XEQ 08
72 LASTX
73 ST+ 05
74 LBL 05
75 DSE 15
76 GTO 06
77 XEQ a
78 GTO 00
79 LBL 07
80 INT
81 FS?C 02
82 STO 11
83 LASTX
84 FRC
85 RCL 10
86 *
87 INT
88 RTN
89 LBL C
90 STO 12
91 X<>Y
92 STO 11
93 8
94 RCL 10
95 RCL 04
96 XEQ d
97 -
98 %
99 RCL 12
100 X>Y?
101 X<>Y
102 10
103 *
104 STO 12
105 X^2
106 XEQ 01
107 RCL 11
108 RCL 12
109 P-R
110 INT
111 ST+ 04
112 X<>Y
113 INT
114 RCL 10
115 /
116 ST+ 04
117 GTO 00
118 LBL 01
119 SF 02
120 LBL D
121 RCL 08
122 X<>Y
123 X<=Y?
124 GTO 04
125 0
126 LBL 14
127 PSE
128 GTO 14
129 LBL 04
130 ST- 08
131 FS?C 02
132 RTN
133 ST+ 06
134 RCL 06
135 RTN
136 LBL E
137 STO 15
138 XEQ 02
139 STO 11
140 RCL 06
141 RCL 10
142 RCL IND 15
143 XEQ d
144 -
145 XEQ 08
146 *
147 X>Y?
148 XEQ 03
149 ST- 06
150 STO 05
151 RCL 06
152 STOP
153 STO 13
154 RCL 00
155 2
156 /
157 RCL 11
158 X>Y?
159 GTO 00
160 X^2
161 RCL 13
162 *
163 XEQ 01
164 XEQ 08
165 RCL 10
166 *
167 RCL 11
168 SQRT
169 /
170 VIEW X
171 PSE
172 PSE
173 PSE
174 CLD
175 XEQ c
176 XEQ a
177 GTO 00
178 LBL 03
179 XEQ 01
180 R^
181 -
182 SF 02
183 RTN
184 LBL 02
185 RCL IND 15
186 SF 02
187 XEQ 07
188 RCL 04
189 XEQ 07
190 RCL 11
191 RDN
192 RDN
193 X<>Y
194 R^
195 -
196 RDN
197 -
198 R^
199 X<>Y
200 R-P
201 RTN
202 LBL e
203 RCL 15
204 CHS
205 STO IND 15
206 STOP
207 LBL b
208 STO 15
209 RCL IND 15
210 LBL d
211 RCL 10
212 *
213 FRC
214 E3
215 *
216 RTN
217 LBL a
218 RCL 05
219 X=0?
220 RTN
221 ST- 05
222 4
223 STO 15
224 FS?C 02
225 1/X
226 /
227 VIEW X
228 PSE
229 PSE
230 PSE
231 CLD
232 LBL c
233 RCL IND 15
234 XEQ d
235 +
236 RCL 10
237 X<=Y?
238 GTO e
239 RDN
240 E5
241 /
242 RCL IND 15
243 FIX 02
244 RND
245 +
246 STO IND 15
247 END
Golf
Code:
01 LBL "GOLF67"
02 LBL 16
03 LBL b
04 RCL 20
05 997
06 *
07 FRC
08 STO 20
09 .5
10 -
11 RTN
12 LBL 10
13 LBL A
14 XEQ 16
15 1
16 +
17 40
18 *
19 STO 22
20 0
21 STO 05
22 STO 03
23 STO 02
24 7P<>S -- XROM 30,31
25 STO 05
26 STO 03
27 STO 02
28 7P<>S -- XROM 30,31
29 XEQ 16
30 9
31 *
32 7
33 +
34 50
35 *
36 STO 23
37 ST- 02
38 7P<>S -- XROM 30,31
39 ST- 02
40 7P<>S -- XROM 30,31
41 215
42 /
43 3
44 +
45 INT
46 ST+ 09
47 7P<>S -- XROM 30,31
48 ST+ 09
49 1
50 ST+ 00
51 7P<>S -- XROM 30,31
52 ST+ 00
53 RCL 00
54 RCL 23
55 R^
56 RCL 22
57 7PRSTK -- XROM 30,33
58 RTN
59 LBL 13
60 LBL D
61 19
62 GTO 12
63 LBL 11
64 LBL B
65 4
66 -
67 2
68 *
69 LBL 12
70 LBL C
71 1
72 ST+ 01
73 RDN
74 20
75 -
76 10
77 *
78 CHS
79 STO 08
80 0
81 STOP
82 STO 21
83 2
84 1/X
85 XEQ 16
86 -
87 LASTX
88 X<>Y
89 RCL 07
90 56
91 /
92 *
93 -
94 RCL 08
95 5
96 /
97 *
98 RCL 08
99 RCL 21
100 *
101 +
102 ABS
103 STO 24
104 XEQ 16
105 3
106 *
107 RCL 07
108 36
109 +
110 SQRT
111 *
112 STO 21
113 RCL 03
114 ABS
115 RCL 22
116 X<=Y?
117 XEQ 09
118 RCL 04
119 4
120 +
121 RCL 24
122 X>Y?
123 GTO 04
124 RCL 04
125 5
126 1/X
127 -
128 X>Y?
129 GTO 04
130 LASTX
131 RCL 04
132 /
133 ATAN
134 RCL 21
135 ABS
136 X>Y?
137 GTO 04
138 0
139 7DSP9 -- XROM 30,21
140 7PRTX -- XROM 30,34
141 RCL 01
142 RCL 07
143 18
144 /
145 RCL 00
146 *
147 -
148 RCL 09
149 -
150 7DSP0 -- XROM 30,12
151 7PRTX -- XROM 30,34
152 RTN
153 LBL 04
154 RCL 21
155 RCL 05
156 +
157 RCL 24
158 P-R
159 RCL 02
160 +
161 STO 02
162 X<>Y
163 RCL 03
164 +
165 STO 03
166 CHS
167 X<>Y
168 CHS
169 R-P
170 STO 04
171 X<>Y
172 STO 05
173 RCL 24
174 RCL 21
175 RCL 02
176 RCL 03
177 7PRTX -- XROM 30,33
178 ABS
179 RCL 22
180 X<=Y?
181 GTO 08
182 GTO 07
183 LBL 08
184 7DSP6 -- XROM 30,18
185 LBL 07
186 RCL 04
187 7PRTX -- XROM 30,34
188 RCL 05
189 7PRTX -- XROM 30,34
190 7DSP0 -- XROM 30,12
191 RTN
192 LBL 09
193 RCL 21
194 ABS
195 RCL 05
196 ABS
197 SIN
198 3
199 *
200 RCL 03
201 ABS
202 RCL 22
203 -
204 /
205 ATAN
206 ABS
207 X>Y?
208 RTN
209 RCL 24
210 9
211 /
212 STO 24
213 RCL 21
214 9
215 *
216 STO 21
217 RTN
218 GTO 67
219 END
Game of 26/36
Code:
01 LBL "G2636"
02 LBL 10
03 LBL A
04 STO 20
05 .25
06 ST- 00
07 0
08 STO 01
09 13
10 STO 21
11 LBL 18
12 LBL d
13 10
14 STO 25
15 0
16 ENTER
17 LBL 00
18 10
19 *
20 XEQ 19
21 RCL 20
22 X=Y?
23 XEQ 01
24 CLX
25 +
26 +
27 7DSZ -- XROM 30,23
28 GTO 00
29 7PRTX -- XROM 30,34
30 RCL 21
31 1
32 -
33 STO 21
34 X!=0?
35 GTO 18
36 1
37 STO 25
38 RCL 01
39 33
40 X<=Y?
41 7ISZ -- XROM 30,29
42 7
43 -
44 X<=Y?
45 7ISZ -- XROM 30,29
46 2
47 /
48 X=Y?
49 XEQ 02
50 2
51 -
52 X<>Y
53 X<=Y?
54 7ISZ -- XROM 30,29
55 1
56 RCL 25
57 X=Y?
58 0
59 ST+ 00
60 RCL 01
61 PSE
62 X<>Y
63 PSE
64 RCL 00
65 RTN
66 LBL 01
67 1
68 ST+ 01
69 CLX
70 +
71 RTN
72 LBL 02
73 .5
74 STO 25
75 CLX
76 +
77 RTN
78 LBL 11
79 LBL B
80 SF 01
81 STO 05
82 ST- 02
83 0
84 STO 03
85 STO 04
86 XEQ 15
87 XEQ 16
88 LBL 17
89 LBL c
90 7DSP2 -- XROM 30,14
91 RCL 04
92 RCL 03
93 X>Y?
94 GTO 09
95 X<>Y
96 X>Y?
97 GTO 04
98 RCL 05
99 ST+ 02
100 PSE
101 RCL 02
102 RTN
103 LBL 12
104 LBL C
105 CF 01
106 STO 05
107 ST- 02
108 0
109 STO 03
110 STO 04
111 XEQ 16
112 XEQ 15
113 GTO 17
114 LBL 13
115 LBL D
116 RCL 02
117 RTN
118 LBL 14
119 LBL E
120 STO 24
121 RTN
122 LBL 15
123 LBL a
124 7DSP2 -- XROM 30,14
125 LBL 05
126 XEQ 19
127 ST+ 03
128 LBL 03
129 36
130 RCL 03
131 X>Y?
132 GTO 04
133 PSE
134 X>0?
135 GTO 03
136 X<0?
137 GTO 05
138 RTN
139 LBL 04
140 7DSP2 -- XROM 30,14
141 RCL 05
142 CHS
143 STOP
144 LBL 16
145 LBL b
146 7DSP0 -- XROM 30,12
147 LBL 06
148 XEQ 19
149 ST+ 04
150 36
151 RCL 04
152 CF 22
153 PSE
154 FS?C 22
155 GTO 04
156 X>Y?
157 GTO 09
158 FS? 01
159 GTO 07
160 LBL 08
161 33
162 X<=Y?
163 RTN
164 GTO 06
165 LBL 07
166 RCL 03
167 X<>Y
168 X=Y?
169 GTO 08
170 X<=Y?
171 GTO 06
172 RTN
173 LBL 09
174 7DSP2 -- XROM 30,14
175 RCL 05
176 2
177 *
178 ST+ 02
179 STOP
180 LBL 19
181 LBL e
182 RCL 24
183 997
184 *
185 FRC
186 STO 24
187 6
188 *
189 1
190 +
191 INT
192 RTN
193 STOP
194 END
Follow me (from mag card pack)
Code:
01 LBL "FLLW67"
02 LBL 10
03 LBL A
04 7CLRG -- XROM 30,11
05 7P<>S -- XROM 30,31
06 7CLRG -- XROM 30,11
07 24
08 STO 25
09 CLX
10 RTN
11 LBL 15
12 LBL a
13 +
14 1
15 GTO 00
16 LBL 16
17 LBL b
18 -
19 2
20 GTO 00
21 LBL 17
22 LBL c
23 *
24 3
25 GTO 00
26 LBL 18
27 LBL d
28 /
29 4
30 LBL 00
31 7DSZ -- XROM 30,23
32 GTO 01
33 GTO 09
34 LBL 01
35 STO IND 25
36 RDN
37 RTN
38 LBL 19
39 LBL e
40 %
41 STO 24
42 CLX
43 5
44 GTO 08
45 LBL 11
46 LBL B
47 STO 24
48 CLX
49 6
50 GTO 08
51 LBL 12
52 LBL C
53 STO 24
54 CLX
55 7
56 7DSZ -- XROM 30,23
57 GTO 01
58 LBL 09
59 CLX
60 24
61 PSE
62 GTO 09
63 LBL 01
64 STO IND 25
65 CLX
66 RCL 24
67 LBL 08
68 7DSZ -- XROM 30,23
69 GTO 01
70 GTO 09
71 LBL 01
72 STO IND 25
73 CLX
74 RCL 24
75 RTN
76 LBL 13
77 LBL D
78 CLX
79 24
80 STO 25
81 CLX
82 STO 00
83 RTN
84 LBL 14
85 LBL E
86 STO 24
87 RDN
88 7DSZ -- XROM 30,23
89 RCL IND 25
90 X<> 25
91 7GTOI -- XROM 30,28
92 LBL 00
93 CLX
94 24
95 STO 25
96 CLX
97 RCL 24
98 RTN
99 LBL 01
100 X<> 25
101 CLX
102 RCL 24
103 +
104 GTO 14
105 LBL 02
106 X<> 25
107 CLX
108 RCL 24
109 -
110 GTO 14
111 LBL 03
112 X<> 25
113 CLX
114 RCL 24
115 *
116 GTO 14
117 LBL 04
118 X<> 25
119 CLX
120 RCL 24
121 /
122 GTO 14
123 LBL 05
124 X<> 25
125 CLX
126 RCL 24
127 %
128 GTO 14
129 LBL 06
130 X<> 25
131 CLX
132 RCL 24
133 RTN
134 LBL 07
135 X<> 25
136 CLX
137 RCL 24
138 7DSZ -- XROM 30,23
139 RCL IND 25
140 GTO 14
141 STOP
142 END
Chuck a luck
Code:
01 LBL "CHKLCK"
02 LBL 10
03 LBL A
04 7DSP0 -- XROM 30,12
05 INT
06 LASTX
07 X!=Y?
08 GTO 19
09 7DSP3 -- XROM 30,15
10 STO 00
11 1
12 X>Y?
13 GTO 19
14 CLX
15 7
16 X<=Y?
17 GTO 19
18 CLX
19 STO 25
20 STO 03
21 XEQ 01
22 XEQ 01
23 XEQ 01
24 RCL 25
25 X=0?
26 GTO 00
27 RCL 01
28 *
29 ST+ 04
30 RCL 03
31 +
32 RTN
33 LBL 00
34 RCL 01
35 ST- 04
36 RCL 03
37 +
38 CHS
39 RTN
40 LBL 01
41 RCL 00
42 RCL 05
43 PI
44 +
45 X^2
46 FRC
47 STO 05
48 6
49 *
50 1
51 +
52 INT
53 X=Y?
54 7ISZ -- XROM 30,29
55 ST+ 03
56 10
57 ST/ 03
58 RTN
59 LBL 11
60 LBL B
61 7DSP0 -- XROM 30,12
62 INT
63 LASTX
64 X!=Y?
65 GTO 19
66 STO 01
67 RTN
68 LBL 13
69 LBL D
70 CLX
71 STO 04
72 LBL 12
73 LBL C
74 7DSP0 -- XROM 30,12
75 RCL 04
76 RTN
77 LBL 14
78 LBL E
79 PI
80 +
81 STO 05
82 GTO 14
83 STOP
84 END
Battleship
Code:
01 LBL "BTLSHP"
02 LBL 10
03 LBL A
04 LOG
05 FRC
06 E2
07 *
08 STO 03
09 INT
10 STO 01
11 LASTX
12 FRC
13 E2
14 *
15 ABS
16 INT
17 STO 02
18 RCL 01
19 INT
20 STO 01
21 1111111111
22 STO 08
23 8
24 *
25 STO 06
26 16
27 STO 25
28 7
29 STO 07
30 RCL 08
31 7
32 *
33 STO 05
34 LBL 02
35 7DSZ -- XROM 30,23
36 GTO 06
37 RCL 08
38 7PRTX -- XROM 30,34
39 GTO 09
40 LBL 06
41 RCL 25
42 PSE
43 CLX
44 STOP
45 RCL 02
46 -
47 X^2
48 X<>Y
49 RCL 01
50 -
51 X^2
52 +
53 SQRT
54 PSE
55 5
56 X<>Y
57 X>Y?
58 GTO 02
59 1
60 X<>Y
61 X<=Y?
62 GTO 01
63 1
64 ST+ 00
65 4
66 RCL 00
67 X>Y?
68 GTO 03
69 ST- 07
70 RCL 07
71 ST- 01
72 ST- 02
73 RCL 01
74 X<0?
75 GTO 05
76 RCL 02
77 X<0?
78 GTO 05
79 GTO 02
80 LBL 05
81 RCL 07
82 2
83 *
84 ST+ 01
85 ST+ 02
86 GTO 02
87 LBL 03
88 RCL 05
89 7PRTX -- XROM 30,34
90 GTO 09
91 LBL 01
92 RCL 06
93 7PRTX -- XROM 30,34
94 LBL 09
95 CLX
96 STO 00
97 RCL 03
98 PI
99 *
100 GTO 10
101 RTN
102 STOP
103 END
Blackjack HP67
Code:
01 LBL "BJCK67"
02 LBL 10
03 LBL A
04 ADV
05 ADV
06 CF 00
07 CF 01
08 STO 20
09 1
10 STO 25
11 XEQ 00
12 STO 21
13 XEQ 05
14 XEQ 09
15 STO 01
16 STO 03
17 1
18 STO 25
19 XEQ 00
20 STO 22
21 XEQ 09
22 STO 02
23 ST+ 03
24 0
25 XEQ 05
26 ADV
27 XEQ 19
28 STO 05
29 STO 07
30 XEQ 19
31 STO 06
32 ST+ 07
33 RCL 05
34 *
35 RCL 07
36 +
37 21
38 STO 00
39 X=Y?
40 GTO 02
41 RCL 07
42 XEQ 03
43 STOP
44 LBL 11
45 LBL B
46 XEQ 19
47 ST+ 07
48 RCL 07
49 RCL 00
50 X<>Y
51 X>Y?
52 GTO 04
53 X<=Y?
54 XEQ 03
55 STOP
56 LBL 13
57 LBL D
58 SF 00
59 10
60 ST+ 07
61 RCL 07
62 XEQ 03
63 RTN
64 LBL 14
65 LBL E
66 CF 00
67 10
68 ST- 07
69 RCL 07
70 XEQ 03
71 RTN
72 LBL 04
73 FS? 00
74 GTO 14
75 RCL 20
76 CHS
77 ST+ 09
78 RCL 07
79 E2
80 /
81 -
82 GTO 06
83 LBL 02
84 RCL 01
85 RCL 02
86 *
87 RCL 03
88 +
89 RCL 00
90 X=Y?
91 GTO 07
92 FS? 01
93 RTN
94 LBL 08
95 .21
96 RCL 20
97 1.5
98 *
99 STO 20
100 ST+ 09
101 +
102 LBL 06
103 PSE
104 PSE
105 PSE
106 PSE
107 RCL 09
108 7DSP2 -- XROM 30,14
109 FS? 01
110 STOP
111 RTN
112 LBL 07
113 FS? 01
114 GTO 04
115 0
116 7DSP9 -- XROM 30,21
117 GTO 06
118 LBL 09
119 10
120 X<>Y
121 X<=Y?
122 RTN
123 X<>Y
124 RTN
125 LBL 03
126 E2
127 /
128 RCL 20
129 +
130 RTN
131 LBL 05
132 7DSP0 -- XROM 30,12
133 7PRTX -- XROM 30,34
134 7DSP2 -- XROM 30,14
135 RTN
136 LBL 15
137 LBL a
138 0
139 STO 25
140 .5281163
141 STO 24
142 LBL 00
143 RCL 24
144 997
145 *
146 FRC
147 STO 24
148 13
149 *
150 INT
151 1
152 +
153 STO 23
154 7DSZ -- XROM 30,23
155 GTO 00
156 RTN
157 LBL 12
158 LBL C
159 CF 00
160 ADV
161 RCL 21
162 XEQ 05
163 RCL 22
164 XEQ 05
165 SF 01
166 XEQ 02
167 CF 01
168 RCL 03
169 LBL 16
170 LBL b
171 17
172 X<=Y?
173 GTO 18
174 XEQ 19
175 ST+ 03
176 RCL 03
177 22
178 X<=Y?
179 GTO 01
180 RCL 03
181 GTO 16
182 LBL 18
183 LBL d
184 RCL 07
185 RCL 03
186 -
187 X=0?
188 GTO 06
189 X<0?
190 GTO 04
191 LBL 01
192 RCL 20
193 ST+ 09
194 RCL 07
195 XEQ 03
196 GTO 06
197 LBL 19
198 LBL e
199 1
200 STO 25
201 XEQ 00
202 XEQ 05
203 XEQ 09
204 RTN
205 LBL 17
206 LBL c
207 0
208 STO 09
209 RTN
210 STOP
211 END
Artillery HP67
Code:
01 LBL "ARTL67"
02 LBL 15
03 LBL a
04 7FIX -- XROM 30,26
05 7DSP2 -- XROM 30,14
06 .5284163
07 STO 00
08 3
09 STO 22
10 500
11 STO 21
12 E2
13 STO 23
14 X^2
15 STO 09
16 RTN
17 LBL 10
18 LBL A
19 ADV
20 0
21 STO 25
22 RCL 09
23 2
24 /
25 ENTER
26 XEQ 00
27 +
28 360
29 XEQ 00
30 STO 08
31 R^
32 P-R
33 STO 01
34 X<>Y
35 STO 02
36 45
37 ST/ 08
38 RCL 08
39 7DSP0 -- XROM 30,12
40 RND
41 *
42 RTN
43 LBL 12
44 LBL C
45 RCL 02
46 RCL 01
47 R-P
48 E4
49 /
50 X<>Y
51 X>0?
52 GTO 02
53 360
54 +
55 LBL 02
56 7DSP0 -- XROM 30,12
57 RND
58 +
59 7DSP4 -- XROM 30,16
60 RTN
61 LBL 16
62 LBL b
63 STO 21
64 RTN
65 LBL 17
66 LBL c
67 STO 22
68 RTN
69 LBL 18
70 LBL d
71 STO 23
72 RTN
73 LBL 01
74 CF 00
75 X<0?
76 SF 00
77 RCL 21
78 XEQ 00
79 FS? 00
80 CHS
81 -
82 RTN
83 LBL 19
84 LBL e
85 LBL 14
86 LBL E
87 7ISZ -- XROM 30,29
88 X<>Y
89 7DSP7 -- XROM 30,19
90 7PRTX -- XROM 30,34
91 X<>Y
92 7DSP1 -- XROM 30,13
93 7PRTX -- XROM 30,34
94 ENTER
95 +
96 SIN
97 RCL 09
98 *
99 P-R
100 STO 03
101 X<>Y
102 STO 04
103 RCL 01
104 XEQ 01
105 STO 01
106 RCL 02
107 XEQ 01
108 STO 02
109 CHS
110 RCL 04
111 +
112 RCL 03
113 RCL 01
114 -
115 R-P
116 STO 07
117 RCL 23
118 X<>Y
119 X>Y?
120 GTO 07
121 RCL 22
122 RCL 21
123 RDN
124 RDN
125 7PRSTK -- XROM 30,33
126 STOP
127 LBL 07
128 RDN
129 RDN
130 RCL 02
131 RCL 01
132 R-P
133 500
134 LBL 08
135 X>Y?
136 PSE
137 X>Y?
138 GTO 08
139 RDN
140 RDN
141 -
142 30
143 /
144 4
145 RCL 22
146 -
147 XEQ 09
148 LBL 05
149 X<0?
150 GTO 06
151 7DSP0 -- XROM 30,12
152 RND
153 STO 08
154 RCL 07
155 .2
156 ENTER
157 4
158 RCL 22
159 -
160 *
161 *
162 X=0?
163 GTO 03
164 XEQ 09
165 RCL 23
166 LBL 03
167 X<=Y?
168 X<>Y
169 RCL 09
170 /
171 7DSP3 -- XROM 30,15
172 RND
173 RCL 08
174 +
175 7DSP4 -- XROM 30,16
176 7PRSTK -- XROM 30,34
177 RTN
178 LBL 06
179 12
180 +
181 GTO 05
182 LBL 09
183 -
184 LASTX
185 ENTER
186 +
187 XEQ 00
188 +
189 RTN
190 LBL 00
191 RCL 00
192 997
193 *
194 FRC
195 STO 00
196 *
197 RTN
198 STOP
199 END
Space War 67 (Card A) - Card B which follows should really be combined with this Card A
Code:
01 LBL "SPW67A"
02 LBL 10
03 LBL A
04 XROM 30,11
05 X=0?
06 PI
07 STO 09
08 10
09 STO 04
10 20
11 STO 25
12 LBL 09
13 XEQ 01
14 XEQ 08
15 FS?C 02
16 GTO 09
17 STO IND 25
18 XROM 30,29
19 RCL 25
20 25
21 X!=Y?
22 GTO 09
23 E3
24 STO 06
25 3
26 STO 07
27 STO 09
28 18
29 STO 08
30 RCL 24
31 RTN
32 LBL 01
33 RCL 09
34 997
35 *
36 FRC
37 STO 09
38 E4
39 *
40 INT
41 XEQ 05
42 XEQ 05
43 RTN
44 LBL 08
45 RCL 20
46 X=Y?
47 SF 02
48 CLX
49 RCL 21
50 X=Y?
51 SF 02
52 CLX
53 RCL 22
54 X=Y?
55 SF 02
56 CLX
57 RCL 23
58 X=Y?
59 SF 02
60 RDN
61 RTN
62 LBL 12
63 LBL C
64 4
65 XROM 30,26
66 999
67 /
68 STO 02
69 XROM 30,20
70 ADV
71 RCL 24
72 INT
73 STO 00
74 RCL 04
75 +
76 XEQ 03
77 RCL 00
78 XEQ 03
79 RCL 00
80 RCL 04
81 -
82 XEQ 03
83 RTN
84 LBL 03
85 RCL 02
86 STO 01
87 RDN
88 STO 03
89 ST+ 01
90 1
91 -
92 XEQ 00
93 XEQ 05
94 XEQ 05
95 ST+ 01
96 RCL 03
97 XEQ 00
98 E5
99 /
100 ST+ 01
101 RCL 03
102 1
103 +
104 XEQ 00
105 E8
106 /
107 ST+ 01
108 RCL 01
109 XROM 30,34
110 RTN
111 LBL 00
112 0
113 STO 05
114 RDN
115 RCL 20
116 INT
117 X=Y?
118 XEQ 01
119 CLX
120 RCL 21
121 INT
122 X=Y?
123 XEQ 01
124 CLX
125 RCL 22
126 INT
127 X=Y?
128 XEQ 01
129 CLX
130 RCL 23
131 INT
132 X=Y?
133 XEQ 02
134 RCL 05
135 RTN
136 LBL 01
137 RCL 04
138 ST+ 05
139 RTN
140 LBL 02
141 1
142 ST+ 05
143 RTN
144 LBL 14
145 LBL E
146 P-R
147 XROM 30,26
148 XROM 30,13
149 RND
150 STO 00
151 X<>Y
152 RND
153 XROM 30,14
154 RCL 24
155 XEQ 05
156 STO 03
157 INT
158 RCL 24
159 XEQ 04
160 STO 02
161 INT
162 XEQ 05
163 FRC
164 +
165 +
166 FRC
167 LASTX
168 INT
169 XEQ 04
170 +
171 RCL 02
172 FRC
173 RCL 03
174 FRC
175 XEQ 04
176 INT
177 +
178 RCL 00
179 +
180 INT
181 LASTX
182 FRC
183 XEQ 05
184 +
185 LBL 07
186 +
187 XEQ 08
188 FS?C 02
189 GTO 00
190 STO 24
191 1
192 ST- 08
193 RCL 08
194 X<0?
195 GTO 06
196 RCL 24
197 RTN
198 LBL 06
199 CLX
200 PSE
201 GTO 06
202 LBL 04
203 RCL 04
204 *
205 RTN
206 LBL 05
207 RCL 04
208 /
209 RTN
210 LBL 00
211 .1
212 GTO 07
213 LBL 15
214 LBL a
215 RCL 08
216 RTN
217 GTO 67
218 END
Space War Card B
Code:
01 LBL "SPW67B"
02 LBL 10
03 LBL A
04 XROM 30,26
05 XROM 30,21
06 ADV
07 XROM 30,31
08 9
09 STO 25
10 0
11 LBL 09
12 STO IND 25
13 XROM 30,23
14 GTO 09
15 STO 00
16 3
17 RCL 24
18 XEQ 00
19 4
20 RCL 20
21 XEQ 00
22 4
23 RCL 21
24 XEQ 00
25 4
26 RCL 22
27 XEQ 00
28 7
29 RCL 23
30 XEQ 00
31 9
32 STO 25
33 LBL 08
34 RCL IND 25
35 XROM 30,34
36 XROM 30,23
37 GTO 08
38 RCL 00
39 XROM 30,34
40 XROM 30,31
41 RTN
42 LBL 00
43 ENTER
44 INT
45 RCL 24
46 INT
47 X!=Y?
48 RTN
49 RDN
50 RDN
51 FRC
52 XEQ 05
53 INT
54 STO 25
55 CLX
56 LASTX
57 FRC
58 XEQ 05
59 CHS
60 10^X
61 *
62 ST+ IND 25
63 RTN
64 LBL 12
65 LBL C
66 CF 00
67 STO 00
68 RCL 07
69 1
70 X>Y?
71 GTO 11
72 -
73 STO 07
74 19
75 STO 25
76 XEQ 01
77 XEQ 01
78 XEQ 01
79 RCL 09
80 CF 00
81 RTN
82 LBL 01
83 XROM 30,29
84 FS? 00
85 RTN
86 RCL IND 25
87 INT
88 RCL 24
89 INT
90 X!=Y?
91 RTN
92 XEQ 07
93 CLX
94 RCL 00
95 -
96 ABS
97 1
98 X<=Y?
99 RTN
100 1-
101 STO IND 25
102 SF 00
103 1
104 ST- 09
105 RTN
106 LBL 07
107 RCL IND 25
108 FRC
109 XEQ 05
110 STO 01
111 INT
112 RCL 24
113 FRC
114 XEQ 05
115 INT
116 -
117 RCL 01
118 FRC
119 RCL 24
120 XEQ 05
121 FRC
122 -
123 XEQ 05
124 R-P
125 RTN
126 LBL 13
127 LBL D
128 STO 00
129 ST- 06
130 19
131 STO 25
132 XEQ 04
133 XEQ 04
134 XEQ 04
135 RCL 09
136 RTN
137 LBL 04
138 RCL 06
139 X<0?
140 GTO 06
141 XROM 30,29
142 RCL IND 25
143 INT
144 RCL 24
145 INT
146 X!=Y?
147 RTN
148 E2
149 ST- 06
150 XEQ 07
151 X^2
152 E2
153 +
154 RCL 00
155 X<=Y?
156 RTN
157 1-
158 STO IND 25
159 1
160 ST- 09
161 RTN
162 LBL 06
163 CLX
164 PSE
165 GTO 06
166 LBL 14
167 LBL E
168 RCL 23
169 INT
170 RCL 24
171 INT
172 X!=Y?
173 GTO 15
174 RCL 23
175 FRC
176 XEQ 05
177 STO 00
178 INT
179 RCL 24
180 FRC
181 XEQ 05
182 STO 01
183 INT
184 -
185 ABS
186 2
187 X<=Y?
188 GTO 15
189 RCL 00
190 FRC
191 XEQ 05
192 RCL 01
193 FRC
194 XEQ 05
195 -
196 ABS
197 2
198 X<=Y?
199 GTO 15
200 E3
201 STO 06
202 3
203 STO 07
204 GTO 00
205 LBL 15
206 LBL a
207 RCL 06
208 RCL 07
209 LBL 00
210 10
211 /
212 X<>Y
213 INT
214 +
215 XROM 30,26
216 XROM 30,13
217 RTN
218 LBL 05
219 10
220 *
221 RTN
222 GTO 67
223 END
Lander
Code:
01 LBL "LAND67"
02 LBL 10
03 LBL A
04 500
05 STO 06
06 50-
07 STO 07
08 60
09 STO 08
10 LBL 09
11 RCL 06
12 XROM 30,16
13 E4
14 /
15 RCL 07
16 CF 02
17 X<0?
18 SF 02
19 ABS
20 +
21 FS?C 02
22 CHS
23 PSE
24 PSE
25 XROM 30,12
26 RCL 08
27 PSE
28 3
29 PSE
30 2
31 PSE
32 1
33 PSE
34 0
35 PSE
36 LBL 05
37 RCL 08
38 X<>Y
39 X>Y?
40 GTO 02
41 ST- 08
42 2
43 *
44 5
45 -
46 STO 09
47 2
48 /
49 RCL 06
50 +
51 RCL 07
52 +
53 RCL 09
54 ST+ 07
55 RDN
56 STO 06
57 INT
58 X>0?
59 GTO 09
60 LBL 03
61 XROM 30,12
62 RCL 07
63 LBL 04
64 PSE
65 GTO 04
66 LBL 02
67 RCL 08
68 2.5
69 -
70 ST+ 06
71 2
72 *
73 ST+ 07
74 RCL 06
75 10
76 *
77 RCL 07
78 X^2
79 +
80 SQRT
81 CHS
82 GTO 04
83 LBL 11
84 LBL B
85 5
86 ST- 08
87 0
88 GTO 05
89 STOP
90 END
Rocket 67 - another lander
Code:
01 LBL "RCTK67"
02 LBL 17
03 LBL c
04 XROM 30,11
05 XROM 30,31
06 XROM 30,11
07 17
08 STO 25
09 LBL 09
10 RCL 25
11 1
12 -
13 4
14 /
15 5
16 *
17 55
18 +
19 STO IND 25
20 RCL 25
21 4
22 -
23 STO 25
24 X>0?
25 GTO 09
26 RTN
27 LBL 10
28 LBL A
29 1
30 GTO 00
31 LBL 11
32 LBL B
33 2
34 GTO 00
35 LBL 12
36 LBL C
37 3
38 GTO 00
39 LBL 13
40 LBL D
41 4
42 GTO 00
43 LBL 14
44 LBL E
45 5
46 LBL 00
47 XROM 30,34
48 1
49 -
50 4
51 *
52 1
53 +
54 STO 00
55 STO 25
56 RDN
57 9
58 X<=Y?
59 X<>Y
60 RDN
61 P-R
62 XROM 30,29
63 XROM 30,29
64 RCL IND 25
65 +
66 STO IND 25
67 XEQ 02
68 XROM 30,23
69 XROM 30,23
70 RCL IND 25
71 +
72 STO IND 25
73 X<>Y
74 XROM 30,29
75 XROM 30,29
76 XROM 30,29
77 RCL IND 25
78 +
79 STO IND 25
80 XEQ 02
81 XROM 30,23
82 XROM 30,23
83 RCL IND 25
84 +
85 STO IND 25
86 RCL 00
87 STO 25
88 RCL IND 25
89 STO 21
90 XROM 30,29
91 RCL IND 25
92 STO 22
93 17
94 STO 25
95 LBL 08
96 RCL 00
97 X=Y?
98 GTO 00
99 RCL IND 25
100 RCL 21
101 -
102 XROM 30,29
103 RCL IND 25
104 RCL 22
105 -
106 R-P
107 2
108 X<=Y?
109 XROM 30,23
110 X<=Y?
111 GTO 00
112 RCL 25
113 2
114 -
115 4
116 /
117 1
118 +
119 PSE
120 PSE
121 PSE
122 0
123 XROM 30,29
124 STO IND 25
125 XROM 30,29
126 STO IND 25
127 RCL 00
128 X<> 25
129 X<>Y
130 XROM 30,29
131 XROM 30,29
132 STO IND 25
133 XROM 30,29
134 STO IND 25
135 X<>Y
136 3
137 -
138 X<> 25
139 LBL 00
140 RCL 25
141 4
142 -
143 STO 25
144 X>0?
145 GTO 08
146 RCL 21
147 50
148 /
149 XEQ 07
150 RCL 22
151 70
152 /
153 XEQ 07
154 +
155 1
156 X>Y?
157 GTO 05
158 RCL 21
159 80
160 /
161 XEQ 07
162 RCL 22
163 E2
164 /
165 XEQ 07
166 +
167 1
168 X>Y?
169 GTO 06
170 LBL 05
171 RCL 00
172 2
173 +
174 STO 25
175 0
176 STO IND 25
177 XROM 30,29
178 STO IND 25
179 LBL 06
180 RCL 00
181 3
182 +
183 STO 25
184 RCL IND 25
185 XROM 30,23
186 RCL IND 25
187 XROM 30,23
188 R-P
189 RCL IND 25
190 XROM 30,23
191 RCL IND 25
192 XROM 30,33
193 RTN
194 LBL 02
195 LASTX
196 +
197 2
198 /
199 RTN
200 LBL 07
201 ABS
202 2.5
203 Y^X
204 RTN
205 LBL 15
206 LBL a
207 XROM 30,34
208 1
209 -
210 4
211 *
212 2
213 +
214 STO 25
215 RCL IND 25
216 XROM 30,34
217 XROM 30,23
218 RCL IND 25
219 XROM 30,34
220 RTN
221 STOP
222 END
Slot Machine (another)
Code:
01 LBL "SLMC67"
02 LBL 11
03 LBL B
04 XROM 30,14
05 RCL 00
06 RTN
07 LBL 14
08 LBL E
09 XROM 30,11
10 STO 24
11 CLX
12 XROM 30,12
13 RTN
14 LBL 10
15 LBL A
16 XROM 30,15
17 1
18 ST- 00
19 RCL 24
20 E3
21 *
22 COS
23 ABS
24 STO 24
25 E6
26 +
27 LASTX
28 -
29 FRC
30 STO 04
31 10
32 STO 05
33 *
34 INT
35 STO 01
36 CHS
37 LASTX
38 +
39 RCL 05
40 *
41 INT
42 STO 02
43 CHS
44 LASTX
45 +
46 RCL 05
47 *
48 INT
49 STO 03
50 1
51 RCL 01
52 X=Y?
53 GTO 01
54 RCL 02
55 X!=Y?
56 GTO 09
57 RCL 03
58 X!=0?
59 GTO 02
60 10
61 ST+ 00
62 RCL 02
63 X!=0?
64 GTO 09
65 90
66 GTO 08
67 LBL 02
68 RCL 02
69 RCL 03
70 X!=Y?
71 GTO 09
72 10
73 GTO 08
74 LBL 01
75 2
76 ST+ 00
77 1
78 RCL 02
79 X!=Y?
80 GTO 09
81 3
82 LBL 08
83 ST+ 00
84 LBL 09
85 RCL 01
86 10
87 /
88 XROM 30,13
89 PSE
90 RCL 02
91 100
92 /
93 +
94 XROM 30,14
95 PSE
96 RCL 03
97 E3
98 /
99 +
100 XROM 30,15
101 RTN
102 STOP
103 END
Tic Tac Toe
Code:
01 LBL "TTT67"
02 LBL 10
03 LBL A
04 0
05 STO 24
06 -1
07 STO 00
08 2
09 XEQ 16
10 XEQ 08
11 XEQ 13
12 XEQ 19
13 RCL 25
14 RCL 24
15 XROM 30,21
16 STOP
17 XEQ 16
18 XEQ 08
19 XEQ 18
20 RCL IND 25
21 INT
22 RCL IND 25
23 STO 21
24 LBL 00
25 +
26 XEQ 11
27 STO 25
28 XEQ 13
29 XEQ 19
30 RCL 25
31 XROM 30,21
32 RCL 24
33 +
34 STOP
35 LBL 14
36 LBL E
37 XEQ 16
38 XEQ 08
39 XEQ 18
40 RCL 25
41 XEQ 11
42 X=Y?
43 XEQ 11
44 STO 25
45 XEQ 13
46 XEQ 19
47 RCL 25
48 XROM 30,21
49 RCL 24
50 +
51 STOP
52 GTO 14
53 LBL 11
54 LBL B
55 RCL 21
56 FRC
57 10
58 *
59 STO 21
60 INT
61 RTN
62 LBL 16
63 LBL b
64 STO 20
65 STO 25
66 RTN
67 LBL 08
68 1
69 ST+ 00
70 RCL 20
71 RTN
72 LBL 18
73 LBL d
74 RCL 25
75 CHS
76 10^X
77 2
78 *
79 RCL 24
80 +
81 STO 24
82 RCL 25
83 RTN
84 LBL 19
85 LBL e
86 E6
87 XEQ 09
88 E3
89 XEQ 09
90 1
91 XEQ 09
92 ADV
93 RTN
94 LBL 09
95 XROM 30,15
96 RCL 24
97 *
98 FRC
99 RCL 00
100 +
101 XROM 30,34
102 XROM 30,12
103 RTN
104 LBL 13
105 LBL D
106 RCL 25
107 CHS
108 10^X
109 RCL 24
110 +
111 STO 24
112 RCL 25
113 RTN
114 LBL 15
115 LBL a
116 .5873649
117 STO 01
118 .5891467
119 STO 03
120 .13598
121 STO 04
122 .1374698
123 STO 05
124 .31578
125 STO 06
126 .13589
127 STO 07
128 .3175964
129 STO 08
130 .31587
131 STO 09
132 0
133 RTN
134 STOP
135 END
Wari
Code:
01 LBL "WARI67"
02 LBL 10
03 LBL A
04 CHS
05 7
06 +
07 SF 01
08 GTO 09
09 LBL 14
10 LBL E
11 6
12 +
13 CF 01
14 LBL 09
15 STO 22
16 STO 25
17 RCL IND 25
18 X=0?
19 /
20 STO 23
21 0
22 STO IND 25
23 LBL 01
24 XROM 30,23
25 GTO 08
26 12
27 STO 25
28 LBL 08
29 RCL 25
30 RCL 22
31 X=Y?
32 GTO 01
33 1
34 ST+ IND 25
35 RCL 23
36 1
37 -
38 STO 23
39 X=0?
40 GTO 05
41 GTO 01
42 LBL 12
43 LBL C
44 12
45 STO 25
46 4
47 LBL 00
48 STO IND 25
49 XROM 30,23
50 GTO 00
51 0
52 STO 20
53 STO 21
54 LBL 06
55 XEQ 11
56 FS? 00
57 GTO 13
58 FS? 01
59 GTO 19
60 GTO 13
61 LBL 11
62 LBL B
63 ADV
64 6
65 STO 25
66 LBL 03
67 RCL IND 25
68 13
69 RCL 25
70 -
71 STO 25
72 CLX
73 +
74 RCL IND 25
75 E2
76 /
77 +
78 XROM 30,34
79 RCL 25
80 13
81 -
82 CHS
83 STO 25
84 XROM 30,23
85 GTO 03
86 ADV
87 RTN
88 LBL 13
89 LBL D
90 RCL 20
91 RCL 21
92 E2
93 /
94 +
95 RTN
96 LBL 05
97 RCL 25
98 6.5
99 -
100 RCL 22
101 LASTX
102 -
103 *
104 X>0?
105 GTO 06
106 LBL 07
107 2
108 RCL IND 25
109 X=Y?
110 GTO 07
111 3
112 X!=Y?
113 GTO 06
114 LBL 07
115 FS? 01
116 GTO 09
117 RCL 21
118 +
119 STO 21
120 GTO 07
121 LBL 09
122 RCL 20
123 +
124 STO 20
125 LBL 07
126 0
127 STO IND 25
128 XROM 30,29
129 7
130 RCL 25
131 X=Y?
132 GTO 06
133 13
134 X=Y?
135 GTO 06
136 GTO 07
137 LBL 19
138 LBL e
139 1
140 STO 25
141 LBL 02
142 RCL IND 25
143 X=0?
144 GTO 16
145 3
146 X>Y?
147 GTO 04
148 LBL 16
149 LBL b
150 XROM 30,29
151 RCL 25
152 7
153 X!=Y?
154 GTO 02
155 LBL 17
156 LBL c
157 RCL 24
158 PI
159 +
160 8
161 Y^X
162 FRC
163 STO 24
164 6
165 *
166 1
167 +
168 R-P
169 INT
170 STO 00
171 6
172 +
173 STO 25
174 RCL IND 25
175 X=0?
176 GTO 17
177 RCL 00
178 XROM 30,34
179 XEQ 14
180 RTN
181 LBL 04
182 RCL 25
183 STO 00
184 12
185 STO 25
186 LBL 18
187 LBL d
188 RCL IND 25
189 X=0?
190 GTO 08
191 11
192 /
193 FRC
194 11
195 *
196 RCL 25
197 RCL 00
198 -
199 X=Y?
200 GTO 09
201 LBL 08
202 XROM 30,23
203 RCL 25
204 6
205 X=Y?
206 GTO 08
207 GTO 18
208 LBL 08
209 RCL 00
210 STO 25
211 GTO 16
212 LBL 09
213 RCL 25
214 6
215 -
216 XROM 30,34
217 XEQ 14
218 RTN
219 STOP
220 END
Another Blackjack
Code:
01 LBL "BJ"
02 CF 00
03 CF 01
04 CF 02
05 SF 27
06 FIX 00
07 "BLACKJACK"
08 PROMPT
09 LBL A
10 RCL 08
11 ABS
12 STO 08
13 9
14 STO 25
15 CF 00
16 CF 01
17 XEQ 00
18 ISG 25
19 ENTER
20 STO IND 25
21 STO 00
22 STO 02
23 FS?C 22
24 SF 00
25 XEQ 00
26 STO 04
27 STO 06
28 FS?C 02
29 SF 01
30 XEQ 00
31 ISG 25
32 ENTER
33 STO IND 25
34 STO 01
35 ST+ 02
36 FS?C 02
37 SF 00
38 XEQ 00
39 STO 05
40 ST+ 06
41 FS?C 02
42 SF 01
43 RCL 06
44 FS? 01
45 XEQ 07
46 STO 07
47 X=Y?
48 SF 02
49 FIX 00
50 RCL 00
51 PSE
52 RCL 01
53 PSE
54 RCL 02
55 VIEW X
56 PSE
57 PSE
58 PSE
59 CLD
60 RCL 04
61 CHS
62 FS?C 02
63 FS?C 02
64 RTN
65 PSE
66 GTO C
67 LBL 00
68 10
69 RCL 24
70 PI
71 -
72 X^2
73 FRC
74 STO 24
75 13
76 *
77 INT
78 X=0?
79 SF 02
80 1
81 +
82 X>Y?
83 RDN
84 RTN
85 LBL B
86 XEQ 00
87 ISG 25
88 ENTER
89 STO IND 25
90 STO 00
91 ST+ 02
92 FS?C 02
93 SF 00
94 21
95 RCL 02
96 X>Y?
97 GTO 02
98 FIX 00
99 RCL 00
100 PSE
101 LBL 01
102 RCL 02
103 VIEW X
104 PSE
105 PSE
106 PSE
107 CLD
108 RTN
109 LBL 02
110 CHS
111 STO 07
112 RCL 00
113 CHS
114 STO 05
115 GTO 05
116 LBL C
117 RCL 02
118 FS? 00
119 XEQ 07
120 STO 03
121 LBL 03
122 RCL 06
123 FS? 01
124 XEQ 07
125 STO 07
126 17
127 X<=Y?
128 GTO 04
129 RCL 05
130 CHS
131 PSE
132 RCL 06
133 CHS
134 VIEW X
135 PSE
136 PSE
137 PSE
138 CLD
139 XEQ 00
140 FS?C 02
141 SF 01
142 STO 05
143 RCL 06
144 +
145 STO 06
146 STO 07
147 22
148 X<=Y?
149 GTO 06
150 GTO 03
151 LBL 04
152 RCL 07
153 RCL 03
154 X=Y?
155 SF 02
156 X>Y?
157 GTO 06
158 LBL 05
159 RCL 08
160 CHS
161 STO 08
162 LBL 06
163 FIX 00
164 RCL 05
165 CHS
166 PSE
167 RCL 07
168 CHS
169 VIEW X
170 PSE
171 PSE
172 PSE
173 CLD
174 FIX 02
175 RCL 08
176 FS?C 02
177 CLX
178 ST+ 09
179 RTN
180 LBL 07
181 21
182 X<>Y
183 10
184 +
185 X<=Y?
186 RTN
187 LASTX
188 -
189 RTN
190 LBL a
191 FIX 00
192 9
193 X<> 25
194 STO 23
195 LBL 08
196 RCL 23
197 RCL 25
198 X=Y?
199 GTO 01
200 ISG 25
201 ENTER
202 RCL IND 25
203 PSE
204 GTO 08
205 LBL b
206 PI
207 +
208 STO 24
209 GTO b
210 LBL d
211 RCL 08
212 ABS
213 LBL D
214 FIX 02
215 RND
216 LASTX
217 X!=Y?
218 GTO c
219 X<0?
220 GTO c
221 X=0?
222 GTO c
223 STO 08
224 RTN
225 LBL e
226 CLX
227 STO 09
228 LBL E
229 FIX 02
230 RCL 09
231 RTN
232 END
Search
Member List
Calendar
Help
/
Raw files for these HP 67 program listings ?
