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
Kai Schröder, 30.5.2001