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