Any Browser Campaign

Vier Gewinnt für den HP-41CX
English version

So ziemlich jeder kennt „Vier Gewinnt“ von MB mit dem blauen Spielfeld mit sieben Spalten und sechs Reihen, in das von oben gelbe und rote Chips eingeworfen werden. Der Spieler, dem es gelingt, vier seiner Chips in eine Reihe zu bringen - waagerecht, senkrecht oder diagonal -, hat gewonnen.

Dieses Spiel habe ich mit meinen Freunden eine zeitlang intensiv gespielt und irgendwann dachte ich mir dann, daß ich auch ein Programm für meinen HP-41CX schreiben könnte . . . Dieses Programm hat mich dann für ein paar Monate mehr interessiert als mein Studium - jede freie Minute verbrachte ich mit dem Schreiben des Programms - und „gipfelte“ in dem Wiederholen einer Vordiplomsklausur (weil ich nicht genügend dafür gelernt hatte) . . . :-) So ist es sicherlich verständlich, daß mir dieses Programm ganz besonders ans Herz gewachsen ist ! ;-)

Das Programm nutzt den HP-41CX bis zum letzten Byte voll aus und ohne Synthetische Programmierung wäre es überhaupt niemals zu verwirklichen gewesen. Das spielbereite Programm besteht aus den beiden Teilprogrammen EXMEM und SPIEL6. Zuerst muß EXMEM geladen werden.

Achtung : Bevor EXMEM in den erweiterten Speicher geladen werden darf, müssen sämtliche Rücksprünge von Hand durchgeführt werden ! Die entsprechenden GTOs sind mit einem Pfeil „<--“ gekennzeichnet. Man springt mit GTO.*** zur entsprechenden Programmzeile und führt dann im RUN-Modus SST aus, wobei die Programmzeile solange angezeigt wird, bis der HP-41CX das Label gefunden hat.

EXMEM muß das erste Programm im Erweiterten Speicher sein (bei CAT 4 muß EXMEM zuerst angezeigt werden).

EXMEM wird im Erweiterten Speicher mittels synthetischer Programmiermethoden aufgerufen. Sind die Längen der einzelnen Rücksprünge nicht alle hinter den einzelnen GTOs eingetragen, so gerät der Prozessor bei der Suche nach dem entsprechenden Label in das Hauptprogramm SPIEL6, was unweigerlich zu falschen Ergebnissen oder sogar in eine Endlosschleife führt. Nachdem EXMEM einmal vom Hauptprogramm aufgerufen worden ist, kann es nicht mehr in den Hauptspeicher zurückgeladen werden.

Nachdem EXMEM in den Erweiterten Speicher geladen worden ist, kann es im Hauptspeicher wieder gelöscht werden und SPIEL6 kann geladen werden. Vor Spielbeginn muß nun SIZE 106 ausgeführt werden.

Bei normaler Geschwindigkeit kann die Rechenzeit zum Ermitteln der nächsten Spalte, in die der HP-41CX seinen Chip wirft, bis zu 20min betragen, in der Regel etwa 15min. Im Turbogang dauert es ungefähr die Hälfte dieser Zeit.

Zur Schonung der Batterien / Akkus überprüft das Programm dreimal Flag 49 (Batteriespannungs-Flag) während eines Hauptschleifendurchlaufs. Sinkt die Spannung zu weit ab, schaltet sich der HP-41CX aus, nachdem er vorher Flag 11 (automatischer Programmstart) gesetzt hat. Wird der HP-41CX wieder eingeschaltet, so erscheint „BATTERIE“ in der Anzeige, um auf die schwache Batteriespannung hinzuweisen. Nach dem Wechseln der Batterien bzw. Aufladen der Akkus kann das Spiel fortgesetzt werden - alle Informationen bleiben erhalten (siehe weiter unten).

Spielablauf :

Nach Starten des Programms verlangt der HP-41CX zunächst einen Keim für den Zufallszahlen-Generator. Nun wählt der Spieler, ob er oder der HP-41CX beginnen soll. Möchte der Spieler anfangen, so tippt er eine 1 ein, anderenfalls eine 0. Beginnt der HP-41CX, so zeigt er die Spalte an, in die er seinen ersten Chip wirft. Beginnt der Spieler, so erscheint nach einem akustischen Signal die Eingabeaufforderung „EINGABE : SPALTE ?" in der Anzeige. Der Spieler gibt nun die Spalte an, in die er seinen Chip geworfen hat und drückt R/S. Wichtig : Eine nachträgliche Korrektur der eingegebenen Spalte ist nicht möglich - deshalb genau aufpassen, daß man hier die richtige Spalte eingibt ! Jetzt berechnet der HP-41CX die Spalte, in die er einen Chip wirft und zeigt diese nach einem BEEP an. Nach Drücken von R/S erscheint wieder die Eingabeaufforderung für den Spieler usw. Gibt der Spieler eine unsinnige Spalte oder eine schon volle Spalte ein, so erfolgt eine Fehlermeldung und der Spieler muß die Eingabe wiederholen.

Hat der Spieler gewonnen (kann tatsächlich passieren ! ;-) ), so erfolgt ein BEEP mit „GRATULIERE,“ in der Anzeige. Nach Drücken von R/S erscheint der restliche Text. Hat dagegen der HP-41CX gewonnen, so erscheint „BEDAURE,“ nach dem BEEP in der Anzeige. Nach Drücken von R/S erscheint der restliche Text. Danach wird die Spalte angezeigt, in die der HP-41CX seinen letzten Chip geworfen hat. Ist der Spielausgang Unentschieden, so zeigt der HP-41CX „REMIS“ nach dem BEEP an.

Fällt die Batterie- bzw. Akku-Spannung während des Programmlaufs zu stark ab, so schaltet sich der HP-41CX aus. Nach Auswechseln der Batterien oder Laden der Akkus kann das Spiel fortgesetzt werden. Dabei ist folgendermaßen vorzugehen :

Programmlisting 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?                ungleich
066  GTO 12
067  R^
068  XY?                ungleich
069  GTO 12
070  R^
071  XY?                ungleich
072  GTO 12
073  R^
074  XY?                ungleich
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?                ungleich
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?                ungleich
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  ""           (Leeranweisung)
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  ""           (Leeranweisung)
196  X=Y?
197  GTO 01
198  6
199  X=Y
200  GTO 02
201  ISG X
202  ""           (Leeranweisung)
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  ""           (Leeranweisung)
260   E
261  GTO 00
262 LBL 22
263  ISG 02
264  ""           (Leeranweisung)
265  2
266  GTO 00
267 LBL 23
268  ISG 03
269  ""           (Leeranweisung)
270  3
271  GTO 00
272 LBL 24
273  ISG 04
274  ""           (Leeranweisung)
275  4
276  GTO 00
277 LBL 25
278  ISG 05
279  ""           (Leeranweisung)
280  5
281  GTO 00
282 LBL 26
283  ISG 06
284  ""           (Leeranweisung)
285  6
286  GTO 00
287 LBL 27
288  ISG 07
289  ""           (Leeranweisung)
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  " BEDAURE,"
306  AVIEW
307  STOP
308  " DU HAST"
309  AVIEW
310  PSE
311  "  VERLOREN"
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  "  ZZG-KEIM "
390  PROMPT
391  STO 08
392  "WER BEGINNT :"
393  AVIEW
394  PSE
395  " DU = 1"
396  AVIEW
397  PSE
398  " HP41CX = 0"
399  AVIEW
400  PSE
401  " 0 ODER 1 ?"
402  CLX
403  PROMPT
404  GTO "L"
405  END

Programmlisting SPIEL6 (Hauptprogramm) :

001 LBL "SPIEL6"
002  " 4 GEWINNT"
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?         ungleich
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  "  EINGABE :  "
028  "SPALTE?"
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  ""           (Leeranweisung)
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?         ungleich
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?         ungleich
123  GTO 05
124  GTO 12
125 LBL 03
126  RCL M
127  XY?         ungleich
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?         ungleich
142  GTO 12
143 LBL 05
144 LBL 40
145  ISG 05
146  ""           (Leeranweisung)
147  5
148  GTO 00
149 LBL 06
150 LBL 41
151  ISG 03
152  ""           (Leeranweisung)
153  3
154  GTO 00
155 LBL 01
156  4
157  RCL 58
158  XY?         ungleich
159  GTO 12
160  RCL M
161  X=Y?
162  GTO 03
163  ISG Y
164  ""           (Leeranweisung)
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  ""           (Leeranweisung)
184  ISG IND X
185  ""           (Leeranweisung)
186  GTO 00
187 LBL 02
188  RCL 58
189  ISG X
190  ""           (Leeranweisung)
191  ISG IND X
192  ""           (Leeranweisung)
193  GTO 00
194 LBL 12
195  ISG 04
196  ""           (Leeranweisung)
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  ""           (Leeranweisung)
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  ""           (Leeranweisung)
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  ""           (Leeranweisung)
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  ""           (Leeranweisung)
377  GTO 02
378 LBL 01
379  ISG 63
380  ""           (Leeranweisung)
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?         ungleich
418  GTO 21
419  RCL 65
420  +
421  4
422  XY?         ungleich
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?         ungleich
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?         ungleich
445  GTO 10
446  2
447  STO 00
448  GTO 27
449 LBL 31
450  -
451   E
452  XY?         ungleich
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?         ungleich
463  GTO 00
464  RCL 00
465   E
466  XY?         ungleich
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  ""          (Leeranweisung)
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?         ungleich
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?         ungleich
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  "BATTERIE"
572  SF 11
573  OFF
574  AVIEW
575  STOP
576 LBL 39
577  TONE 3
578  "  EINGABE "
579  "FALSCH"
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?         ungleich
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  ""          (Leeranweisung)
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?         ungleich
637  GTO "K"
638  ISG 04
639  ""          (Leeranweisung)
640  4
641  FS? 06
642  STO 58
643  R^
644 LBL 01
645  BEEP
646  " SPALTE : "
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  ""          (Leeranweisung)
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  ""          (Leeranweisung)
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  ""          (Leeranweisung)
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  "   REMIS"
800  AVIEW
801  GTO 34
802 LBL 26
803  BEEP
804  "GRATULIERE,"
805  AVIEW
806  STOP
807  "  DU HAST"
808  AVIEW
809  PSE
810  "  GEWONNEN"
811  AVIEW
812 LBL 34
813  RCL 09
814  STOFLAG
815  CLA
816  CLST
817  CLRG
818  END


Zurück zu Ausgewählte (Spiel-)Programme für den HP-41CX

Zurück zu Naturwissenschaften und mathematische Spielereien

Zurück zur Startseite

Kai Schröder, 30.5.2001