Post Reply 
Raw files for these HP 67 program listings ?
09-07-2016, 09:56 PM (This post was last modified: 09-08-2016 12:47 AM by Gene.)
Post: #55
RE: Raw files for these HP 67 program listings ?
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
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: Raw files for these HP 67 program listings ? - Gene - 09-07-2016 09:56 PM



User(s) browsing this thread: 2 Guest(s)