Any Browser Campaign

Four Wins for HP-41CX
deutsche Version

Most people know "Four Wins" by MB - the game with a blue board consisting of seven rows and six columns, in which yellow and red chips are thrown in on the top. The player, who manages to place four of his chips in a row - horizontal, vertical, or diagonal - wins.

For a while I played this game with my friends intensively, and some time I thought by myself, why not write a program for my HP-41CX ? For some months I was devoted most of the time to these program (more than to my studies ;-) ) - every free minute I spent writing it -, and it culminated in the repetition of a first diploma exam . . . :-) So you can understand, that this program is something special for me ! ;-)

The program uses the HP-41CX up to the last byte and without synthetic programming techniques it would have never been possible to realize it. The running program consists of two parts, EXMEM and GAME6. First, EXMEM must be loaded.

Attention : Before EXMEM is copied into extended memory, all jumps back have to be performed by hand ! The corresponding GTO's are marked with an arrow "<--". By means of GTO.*** you have to jump to the corresponding line, then in run mode execute SST - the program statement is shown in the display until the label is found.

EXMEM must be the first program in extended memory (CAT 4 must show EXMEM as first entry).

EXMEM is called by means of synthetic programming methods in extended memory. If you forget a jump by hand the correct label isn't found and the processor runs into the main program GAME6, what inevitably leads to wrong results or even in an endless loop. After once being executed EXMEM cannot be copied back into main memory.

After EXMEM was copied into extended memory it can be removed from main memory and GAME6 can be loaded. Before starting the game SIZE 106 must be executed.

In normal speed mode the time to compute the next column in which the HP-41CX throws its chip can last up to 20min, normally about 15 min. With TURBO speed the time about halves.

To prevent battery voltage to decrease too much three times during main loop execution flag 49 (battery voltage flag) is checked. In case flag 11 (automatic program start) is set and the HP-41CX powers off itself. On power on "BATTERY" is displayed to indicate low battery voltage. After changing batteries the game can be continued - all informations remain in memory (see further down).

Course of Game :

On starting the game first a seed for the random number generator must be entered. Now the player chooses, whether he or the HP-41CX begins. If the player wants to start, the input is 1, otherwise 0. If the HP-41CX begins the game, the column is displayed, in which it throws its first chip. If the player is to begin, after a sound "INPUT : COLUMN ?" is shown in the display. Now the player enters the column in which he throws his chip and presses R/S. Important : later correction of the entered column is not possible - therefore be careful to enter the correct column ! Now the HP-41CX computes the column in which it throws its chip and after a BEEP displays this. Pressing R/S the prompt for the player appears again. In case a nonsensical or full column was entered this is recognized and the player has to enter the column once again.

In case the player wins (indeed, this can happen ! ;-) ) the BEEP sounds and "CONGRATULATE" is displayed. Pressing R/S the rest of the text is shown. If the HP-41CX wins "I AM SORRY," appears after the BEEP. Pressing R/S shows the rest of the text. Then the column is displayed in which the HP-41CX threw its last chip. If the game ends in a draw, after the BEEP "DRAW" is displayed.

In case battery voltage decreases too much during program execution the HP-41CX powers off itself. After changing batteries the game can be continued. You have to pay attention to the following :

Program Listing EXMEM :

001 LBL "EXMEM"
002  FS?C 00
003  GTO 17
004  FS?C 01
005  GTO 15
006  FS?C 04
007  GTO 19
008  RCL 85
009  RCL 86
010  RCL 87
011  RCL 88
012  XEQ 18
013  RCL 89
014  XEQ 18
015  RCL 90
016  XEQ 18
017  RCL 91
018  XEQ 18
019  STO 93
020  RDN
021  STO 94
022  RDN
023  STO 95
024  RDN
025  STO 96
026 LBL 16
027  RCL IND 84
028  X=0?
029  GTO "K"
030  RCL IND 92
031  X=Y?
032  GTO 00
033  ISG 92
034  GTO 16            <--
035  FS? 07
036  GTO 28
037  FS? 08
038  GTO 07
039 LBL 00
040  11
041  ST- 92
042  RCL IND 92
043  X>0?
044  GTO 00
045 LBL 31
046  73
047  ST- 92
048  RCL 92
049  INT
050  STO IND 81
051  ISG 81
052  GTO 01
053 LBL 28
054  RCL IND 97
055  STO 101
056  RCL IND 98
057  STO 102
058  RCL IND 99
059  STO 103
060  RCL IND 100
061  STO 104
062  RCL 101
063  RCL 102
064  RCL 103
065  XY?                not equal
066  GTO 12
067  R^
068  XY?                not equal
069  GTO 12
070  R^
071  XY?                not equal
072  GTO 12
073  R^
074  XY?                not equal
075  GTO 12
076  4,005
077  STO 105
078 LBL 03
079  97,1
080  STO 81
081 LBL 10
082  RCL 105
083  INT
084  RCL IND 81
085  X=Y?
086  GTO 11
087  ISG 81
088  GTO 10            <--
089  RCL 105
090  3
091  X=Y?
092  GTO 12
093  ISG 105
094  GTO 03            <--
095  3
096  STO 105
097  GTO 03            <--
098 LBL 12
099  XEQ 18
100  STO M
101  101
102  STO N
103 LBL 30
104  RCL M
105  RCL IND N
106  XY?                not equal
107  GTO 02
108  RCL N
109  4
110  -
111  RCL IND X
112 LBL 11
113   E
114  ST+ IND Y
115  97,1
116  STO 81
117  CLRGX
118 LBL 29
119  CF 07
120  CF 08
121  1,007
122  STO 52
123  R^
124  85,091
125  STO 92
126  CLRGX
127  93,096
128  STO 84
129  RDN
130  GTO "N"
131 LBL 00
132  2
133  XY?                not equal
134  GTO 00
135  29
136  RCL IND 84
137  X>Y?
138  GTO 31            <--
139  GTO 07
140 LBL 00
141  20
142  RCL IND 84
143  X>Y?
144  GTO 31            <--
145  11
146  ST+ 92
147  SF 08
148  ISG 92
149  GTO 16            <--
150 LBL 07
151  FS? 07
152  GTO 28            <--
153  85,091
154  STO 92
155  ISG 84
156  GTO 16
157  GTO "K"
158 LBL 01
159  84
160  ST+ 92
161  SF 07
162  ISG 92
163  GTO 16            <--
164  GTO 28            <--
165 LBL 02
166  ISG N
167  ""           (NOP)
168  GTO 30            <--
169 LBL 18
170  X<Y?
171  X<>Y?
172  R^
173  X<Y?
174  X<>Y?
175  R^
176  X<Y?
177  X<>Y?
178  RDN
179  X<Y?
180  X<>Y?
181  RDN
182  X<Y?
183  X<>Y?
184  R^
185  X<Y?
186  X<>Y?
187  R^
188  RTN
189 LBL 19
190   E
191  RCL 00
192  X=Y?
193  GTO 00
194  ISG Y
195  ""           (NOP)
196  X=Y?
197  GTO 01
198  6
199  X=Y
200  GTO 02
201  ISG X
202  ""           (NOP)
203  X=Y?
204  GTO 05
205  GTO "M"
206 LBL 00
207  RCL M
208  6
209  X=Y?
210  GTO 00
211  SF 07
212  GTO "M"
213 LBL 01
214  RCL M
215  7
216  X=Y?
217  GTO 01
218  GTO "M"
219 LBL 02
220  RCL M
221   E
222  X=Y?
223  GTO 00
224  GTO "M"
225 LBL 05
226  RCL M
227  2
228  X=Y?
229  GTO 01
230  SF 08
231  GTO "M"
232 LBL 00
233  XEQ 20
234  X<=Y?
235  GTO 23
236  3
237  X<>Y?
238  X<=Y?
239  GTO 24
240  5
241  X<>Y?
242  X<=Y?
243  GTO 26
244  GTO 27
245 LBL 01
246  XEQ 20
247  X<=Y?
248  GTO 24
249  3
250  X<>Y?
251  X<=Y?
252  GTO 25
253  5
254  X<>Y?
255  X<=Y?
256  GTO 22
257 LBL 21
258  ISG 01
259  ""           (NOP)
260   E
261  GTO 00
262 LBL 22
263  ISG 02
264  ""           (NOP)
265  2
266  GTO 00
267 LBL 23
268  ISG 03
269  ""           (NOP)
270  3
271  GTO 00
272 LBL 24
273  ISG 04
274  ""           (NOP)
275  4
276  GTO 00
277 LBL 25
278  ISG 05
279  ""           (NOP)
280  5
281  GTO 00
282 LBL 26
283  ISG 06
284  ""           (NOP)
285  6
286  GTO 00
287 LBL 27
288  ISG 07
289  ""           (NOP)
290  7
291 LBL 00
292  X<>Y
293  SF 04
294  GTO "O"
295 LBL 20
296  RCL 08
297  E^X
298  FRC
299  STO 08
300   E6
301  *
302  RTN
303 LBL 15
304  BEEP
305  "I AM SORRY,"
306  AVIEW
307  STOP
308  " YOU LOST"
309  AVIEW
310  PSE
311  "  THE GAME"
312  AVIEW
313  RCL 82
314  SF 10
315  R^
316  R^
317  PSE
318  GTO 29            <--
319 LBL 17
320  RCLFLAG
321  STO 09
322  730
323  STO 35
324  STO 36
325  STO 37
326  STO 42
327  STO 43
328  STO 44
329  STO 49
330  STO 50
331  STO 51
332  13
333  STO 14
334  STO 15
335  STO 16
336  STO 21
337  STO 22
338  STO 23
339  STO 28
340  STO 29
341  STO 30
342  324
343  STO 31
344  STO 32
345  STO 33
346  STO 38
347  STO 39
348  STO 40
349  STO 45
350  STO 46
351  STO 47
352  117
353  STO 10
354  STO 11
355  STO 12
356  STO 17
357  STO 18
358  STO 19
359  STO 24
360  STO 25
361  STO 26
362  1054
363  STO 34
364  STO 41
365  STO 48
366  121
367  STO 13
368  STO 20
369  STO 27
370  1,007
371  STO 52
372  3
373  STO 54
374  57,06
375  STO 61
376  66,069
377  STO 55
378  70,073
379  STO 56
380  ,02
381  STO 83
382  93,096
383  STO 84
384  85,091
385  STO 92
386  97,1
387  STO 81
388  FRC
389  "  RNG-SEED "
390  PROMPT
391  STO 08
392  "WHO BEGINS :"
393  AVIEW
394  PSE
395  " YOU = 1"
396  AVIEW
397  PSE
398  " HP41CX = 0"
399  AVIEW
400  PSE
401  " 0 OR 1 ?"
402  CLX
403  PROMPT
404  GTO "L"
405  END

Program Listing GAME6 (main program) :

001 LBL "GAME6"
002  " 4 WINS"
003  AVIEW
004  CLRG
005  SF 00
006  GTO 37
007 LBL "L"
008  FIX 0
009  CF 29
010  XEQ 15
011  12
012  X<>F
013  R^
014  R^
015  X0?         not equal
016  GTO 00
017  SF 06
018  GTO 17
019 LBL 00
020  SF 05
021 LBL 16
022  74,08
023  CLRGX
024   E
025  TONE 8
026  CF 22
027  "  INPUT :  "
028  "COLUMN?"
029  PROMPT
030  FC? 22
031  GTO 16
032  INT
033  RCL IND X
034  6
035  X=Y?
036  GTO 39
037  R^
038  R^
039  X<Y?
040  GTO 39
041  7
042  X<Y?
043  GTO 39
044  ISG IND Y
045  ""           (NOP)
046  X<>Y
047  RCL IND X
048  X<>Y
049  STO M
050  FS?C 02
051  STO 00
052  2
053  +
054  X<>Y
055  7
056  *
057  +
058  STO 53
059   E
060  8
061  XEQ 18
062  10,051
063  STO 53
064  FS? 05
065  GTO 35
066  FC? 03
067  GTO 11
068  FS?C 06
069  GTO 01
070  FS?C 09
071  GTO 12
072  SF 04
073  GTO 37
074 LBL "M"
075  FC?C 07
076  GTO 00
077  RCL M
078  7
079  X=Y?
080  GTO 01
081 LBL 00
082  FC?C 08
083  GTO 00
084  RCL M
085   E
086  XY?         not equal
087  GTO 00
088 LBL 01
089   E
090  XEQ 15
091   E2
092  *
093  INT
094  3
095  MOD
096  X=0?
097  GTO 40
098  X=Y?
099  GTO 41
100  GTO 12
101  LBL 00
102  5
103  RCL 00
104  X=Y?
105  GTO 02
106  3
107  X=Y?
108  GTO 03
109  X<>Y
110  4
111  X>Y?
112  GTO 04
113  RCL M
114  X<Y?
115  GTO 12
116  5
117  X=Y?
118  GTO 05
119  GTO 06
120 LBL 02
121  RCL M
122  XY?         not equal
123  GTO 05
124  GTO 12
125 LBL 03
126  RCL M
127  XY?         not equal
128  GTO 06
129  GTO 12
130 LBL 04
131  RCL M
132  X=Y?
133  GTO 05
134  3
135  X=Y?
136  GTO 06
137  X>Y?
138  GTO 05
139  RCL M
140  5
141  XY?         not equal
142  GTO 12
143 LBL 05
144 LBL 40
145  ISG 05
146  ""           (NOP)
147  5
148  GTO 00
149 LBL 06
150 LBL 41
151  ISG 03
152  ""           (NOP)
153  3
154  GTO 00
155 LBL 01
156  4
157  RCL 58
158  XY?         not equal
159  GTO 12
160  RCL M
161  X=Y?
162  GTO 03
163  ISG Y
164  ""           (NOP)
165  X=Y?
166  GTO 02
167  X>Y?
168  GTO 01
169  2
170  ST- Z
171  RDN
172  X=Y?
173  GTO 01
174  GTO 02
175 LBL 03
176  4
177  RCL M
178  X<=Y?
179  GTO 02
180 LBL 01
181  RCL 58
182  DSE X
183  ""           (NOP)
184  ISG IND X
185  ""           (NOP)
186  GTO 00
187 LBL 02
188  RCL 58
189  ISG X
190  ""           (NOP)
191  ISG IND X
192  ""           (NOP)
193  GTO 00
194 LBL 12
195  ISG 04
196  ""           (NOP)
197  4
198 LBL 00
199  R^
200  SF 05
201  CF 03
202  GTO 17
203 LBL 11
204  ,
205  STO 00
206  RCL 01
207  RCL 02
208  X<Y?
209  X<>Y
210  RCL 03
211  X<Y?
212  X<>Y
213  RCL 04
214  X<Y?
215  X<>Y
216  RCL 05
217  X<Y?
218  X<>Y
219  RCL 06
220  X<Y?
221  X<>Y
222  RCL 07
223  X<Y?
224  X<>Y
225  2
226  +
227  7
228  *
229  2
230  +
231  STO 62
232 LBL 22
233  51
234  RCL 53
235  INT
236  X>Y?
237  GTO 37
238  RCL 62
239  X<Y?
240  GTO 37
241  FS? 49
242  GTO 38
243 LBL 20
244  RCL 52
245  INT
246  XEQ 19
247  X=0?
248  GTO 21
249 LBL 23
250  2
251  RCL 53
252  INT
253  7
254  /
255  INT
256  STO IND 56
257  7
258  *
259  RCL 53
260  INT
261  X<>Y
262  -
263  X>Y?
264  GTO 01
265  5
266  +
267  STO IND 55
268  DSE IND 56
269  ""           (NOP)
270  GTO 00
271 LBL 01
272  2
273  -
274  STO IND 55
275 LBL 00
276  RCL IND 55
277  RCL IND X
278  RCL IND 56
279  X>Y?
280  GTO 00
281  8
282  XEQ 19
283  X=0?
284  GTO 01
285  2
286  GTO 02
287 LBL 01
288   E
289  GTO 02
290 LBL 00
291  ,
292 LBL 02
293  STO IND 61
294  GTO IND 52
295 LBL 01
296  DSE 53
297  ""           (NOP)
298  ISG 61
299  GTO 12
300  4
301  ST+ 53
302  GTO 11
303 LBL 02
304  6
305  ST+ 53
306  ISG 61
307  GTO 12
308  24
309  ST- 53
310  GTO 11
311 LBL 03
312  7
313  ST+ 53
314  ISG 61
315  GTO 12
316  28
317  ST- 53
318  GTO 11
319 LBL 04
320  8
321  ST+ 53
322  ISG 61
323  GTO 12
324  32
325  ST- 53
326  GTO 11
327 LBL 05
328  ISG 53
329  ""           (NOP)
330  ISG 61
331  GTO 12
332  4
333  ST- 53
334  GTO 11
335 LBL 06
336  6
337  ST- 53
338  ISG 61
339  GTO 12
340  24
341  ST+ 53
342  GTO 11
343 LBL 07
344  8
345  ST- 53
346  ISG 61
347  GTO 12
348  32
349  ST+ 53
350  GTO 11
351 LBL 12
352  ISG 55
353  ISG 56
354  GTO 23
355 LBL 11
356  FS? 49
357  GTO 38
358  4
359  ST- 61
360  3
361  ST- 55
362  ST- 56
363  63, 065
364  CLRGX
365 LBL 08
366  RCL IND 61
367  X=0?
368  GTO 00
369   E
370  X=Y?
371  GTO 01
372  ST+ 64
373  GTO 02
374 LBL 00
375  ISG 65
376  ""           (NOP)
377  GTO 02
378 LBL 01
379  ISG 63
380  ""           (NOP)
381 LBL 02
382  ISG 61
383  GTO 08
384  4
385  ST- 61
386  RCL 65
387  X=Y?
388  GTO 21
389  4
390  RCL 64
391  X=Y?
392  GTO 26
393  RCL 63
394  +
395  4
396  X=Y?
397  GTO 25
398  RCL 63
399  3
400  X=Y?
401  GTO 27
402  RCL 64
403  X=Y?
404  GTO 27
405   E
406  RCL 63
407  X>Y?
408  GTO 02
409  GTO 03
410 LBL 10
411  RCL 65
412  X>0?
413  GTO 01
414 LBL 09
415  2
416  RCL 64
417  XY?         not equal
418  GTO 21
419  RCL 65
420  +
421  4
422  XY?         not equal
423  GTO 21
424   E
425  STO 00
426  GTO 27
427 LBL 01
428  RCL 63
429  X=0?
430  GTO 09
431  GTO 25
432 LBL 02
433  RCL 65
434  2
435  XY?         not equal
436  GTO 10
437  SF 10
438  GTO 27
439 LBL 03
440  X=0?
441  GTO 10
442  RCL 65
443  3
444  XY?         not equal
445  GTO 10
446  2
447  STO 00
448  GTO 27
449 LBL 31
450  -
451   E
452  XY?         not equal
453  GTO 21
454  XEQ 36
455  3
456  ST+ IND Y
457  GTO 21
458 LBL 30
459  RDN
460  -
461   E
462  XY?         not equal
463  GTO 00
464  RCL 00
465   E
466  XY?         not equal
467  GTO 01
468  XEQ 36
469  5
470  ST+ IND Y
471  GTO 00
472 LBL 01
473  XEQ 36
474  ISG IND X
475  ""          (NOP)
476 LBL 00
477  ,
478  STO 00
479  GTO 21
480 LBL 27
481  RCL 57
482  X=0?
483  GTO 00
484  RCL 58
485  X=0?
486  GTO 01
487  RCL 59
488  X=0?
489  GTO 02
490  RCL 69
491  STO 82
492  RCL 73
493  RCL IND 69
494  GTO 03
495 LBL 00
496  RCL 66
497  STO 82
498  RCL 70
499  RCL IND 66
500  GTO 03
501 LBL 01
502  RCL 67
503  STO 82
504  RCL 71
505  RCL IND 67
506  GTO 03
507 LBL 02
508  RCL 68
509  STO 82
510  RCL 72
511  RCL IND 68
512 LBL 03
513  RCL 00
514  X0?         not equal
515  GTO 30
516  RDN
517  FS?C 10
518  GTO 31
519  -
520   E
521  X=Y?
522  GTO 00
523  X<>Y
524  2
525  /
526  FRC
527  X0?         not equal
528  GTO 21
529  RCL 82
530  73
531  +
532  RCL 63
533  3
534  X=Y?
535  GTO 01
536  2
537  GTO 02
538 LBL 01
539   E
540 LBL 02
541  STO IND T
542  GTO 21
543 LBL 00
544  RCL 63
545  3
546  X=Y?
547  GTO 00
548  XEQ 36
549  30
550  ST+ IND Y
551  GTO 21
552 LBL 36
553  RCL 82
554  84
555  +
556  RTN
557 LBL 00
558  SF 01
559 LBL 37
560  FS? 49
561  GTO 38
562  FS? 04
563  GTO 00
564   E
565  CHS
566  STO 00
567 LBL 00
568  " "       (BE)
569  ASTO b
570 LBL 38
571  "BATTERY"
572  SF 11
573  OFF
574  AVIEW
575  STOP
576 LBL 39
577  TONE 3
578  "INPUT "
579  "WRONG"
580  AVIEW
581  PSE
582  GTO 16
583 LBL "N"
584  GTO 01
585 LBL "K"
586  ISG 83
587  GTO 00
588  GTO 32
589 LBL 00
590  XEQ 15
591 LBL 17
592  FS?C 05
593  GTO 01
594 LBL "O"
595  FS?C 04
596  GTO 01
597  RCL 08
598   E6
599  *
600  INT
601   E1
602  MOD
603  X=0?
604  GTO 00
605  7
606  X<Y?
607  GTO 00
608  X<>Y
609  73
610  +
611  RCL IND X
612  X0?         not equal
613  GTO "K"
614  <>XY
615  73
616  -
617  RCL IND X
618  6
619  X=Y?
620  GTO "K"
621  ISG IND Z
622  ""          (NOP)
623  RDN
624  FC? 06
625  GTO 01
626  RDN
627  STO 58
628  R^
629  GTO 01
630 LBL 00
631  RCL 04
632  6
633  X=Y?
634  GTO "K"
635  RCL 77
636  X0?         not equal
637  GTO "K"
638  ISG 04
639  ""          (NOP)
640  4
641  FS? 06
642  STO 58
643  R^
644 LBL 01
645  BEEP
646  " COLUMN : "
647  ARCL Y
648  AVIEW
649  FS?C 10
650  GTO 34
651  STOP
652  RCL 01
653  RCL 02
654  X>Y?
655  X<>Y
656  RCL 03
657  X>Y?
658  X<>Y
659  RCL 04
660  X>Y?
661  X<>Y
662  RCL 05
663  X>Y?
664  X<>Y
665  RCL 06
666  X>Y?
667  X<>Y
668  RCL 07
669  X>Y?
670  X<>Y
671  6
672  X=Y?
673  GTO 33
674  GTO 16
675 LBL 19
676  DSE X
677  ""          (NOP)
678  RCL 54
679  X<>Y
680  Y^X
681  RCL IND 53
682  X<>Y
683  ST/ Y
684  X<>Y
685  INT
686  RCL 54
687  MOD
688  RTN
689 LBL 18
690  XEQ 19
691  X<>Y
692  ST* Z
693  *
694  ST- IND 53
695  X<>Y
696  ST+ IND 53
697  RTN
698 LBL 25
699  ,
700  RCL 52
701  INT
702  XEQ 18
703 LBL 21
704  ISG 52
705  GTO 20
706  1,007
707  STO 52
708  ISG 53
709  GTO 22
710  GTO 37
711 LBL 15
712  RCL 08
713  E^X
714  FRC
715  R-D
716  FRC
717  STO 08
718  RTN
719 LBL 35
720  RCL 04
721  X>0?
722  GTO 00
723  4
724   E
725  STO 04
726  GTO 17
727 LBL 00
728  SF 09
729  XEQ 15
730   E5
731  *
732  INT
733  2
734  MOD
735  X=0?
736  GTO 00
737  5
738   E
739  STO 05
740  GTO 17
741 LBL 00
742  3
743   E
744  STO 03
745  GTO 17
746 LBL 32
747  97,1
748  STO 81
749  CLRGX
750  CF 07
751  CF 08
752  85, 091
753  STO 92
754  CLRGX
755  93,096
756  STO 84
757  74,08
758  STO M
759  1,007
760  STO N
761  STO 52
762 LBL 13
763  RCL IND M
764  2
765  X=Y?
766  GTO 00
767  RCL M
768  INT
769  73
770  -
771  RCL IND X
772  6
773  X=Y?
774  GTO 00
775  ISG IND Z
776  ""          (NOP)
777  RDN
778  SF 05
779  GTO 17
780 LBL 00
781  ISG M
782  GTO 13
783 LBL 14
784  RCL IND N
785  6
786  X=Y?
787  GTO 01
788  ISG IND N
789  ""          (NOP)
790  RCL N
791  X<>Y
792  SF 05
793  GTO 17
794 LBL 01
795  ISG N
796  GTO 14
797 LBL 33
798  BEEP
799  "   DRAW"
800  AVIEW
801  GTO 34
802 LBL 26
803  BEEP
804  "CONGRATULATE"
805  AVIEW
806  STOP
807  "  YOU HAVE"
808  AVIEW
809  PSE
810  "   WON"
811  AVIEW
812 LBL 34
813  RCL 09
814  STOFLAG
815  CLA
816  CLST
817  CLRG
818  END


Back to HP-41CX Selected (game) programs

Back to Natural Sciences and Mathematical Games

Back to the starting page

Kai Schröder, 30.5.2001