This program is Copyright © HP and is used here by permission. It was originally printed in the Games II Solution Book. This program was entered and uploaded by Tony Duell. The Barcode for this program was provided by Brian Ward.
This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
Documentation Information (CD or source code)
How to get this Program to your Calculator (via
HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download
Display the Program Barcode (.pdf) for printing and scanning
LINE KEYS 01 LBL "FLIPO" 02 LBL 12 03 "SIZE>=103" 04 CF 01 05 CF 12 06 CF 13 07 CF 27 08 SF 21 09 SF 25 10 SREG 97 11 FC? 25 12 PROMPT 13 FC?C 25 14 GTO 12 15 SREG 94 16 CLST 17 99 18 LBL 15 19 STO IND X 20 DSE X 21 GTO 15 22 STO 07 23 STO 93 24 S+ 25 STO 90 26 S+ 27 STO 91 28 S+ 29 STO 92 30 RCL 09 31 X<> 77 32 X<> 72 33 X<> 22 34 X<> 27 35 X<> 78 36 X<> 87 37 X<> 82 38 X<> 71 39 X<> 21 40 X<> 12 41 X<> 28 42 X<> 17 43 X<> 67 44 X<> 76 45 X<> 73 46 X<> 62 47 X<> 32 48 X<> 23 49 X<> 37 50 X<> 26 51 X<> 57 52 X<> 75 53 X<> 74 54 X<> 52 55 X<> 42 56 X<> 24 57 X<> 47 58 X<> 25 59 X<> 56 60 X<> 65 61 X<> 64 62 X<> 53 63 X<> 43 64 X<> 34 65 X<> 46 66 X<> 35 67 X<> 58 68 X<> 85 69 X<> 84 70 X<> 51 71 X<> 41 72 X<> 14 73 X<> 48 74 X<> 15 75 X<> 66 76 X<> 63 77 X<> 33 78 X<> 36 79 X<> 68 80 X<> 86 81 X<> 83 82 X<> 61 83 X<> 31 84 X<> 13 85 X<> 38 86 X<> 16 87 STO 00 88 X<> 88 89 X<> 81 90 X<> 11 91 X<> 18 92 STO 02 93 1 E-5 94 STO 08 95 ST* 09 96 ADV 97 ADV 98 "HANDICAP?" 99 TONE 09 100 PROMPT 101 RCL 04 102 X<>Y 103 ABS 104 INT 105 X>Y? 106 CLX 107 STO 04 108 ST+ 01 109 XEQ 55 110 FIX 00 111 "Hdc=" 112 XEQ 56 113 XEQ IND X 114 ADV 115 PSE 116 GTO IND 00 117 LBL 01 118 RCL 28 119 X<> 67 120 X<> 88 121 STO 28 122 RCL 27 123 X<> 78 124 X<> 58 125 STO 27 126 LBL 00 127 RTN 128 LBL 02 129 RCL 21 130 X<> 67 131 X<> 88 132 STO 21 133 RCL 22 134 X<> 78 135 X<> 58 136 STO 22 137 RTN 138 LBL 03 139 RCL 82 140 X<> 67 141 X<> 88 142 STO 82 143 RCL 72 144 X<> 78 145 X<> 58 146 STO 72 147 RTN 148 LBL 04 149 RCL 77 150 X<> 67 151 X<> 88 152 X<> 78 153 X<> 58 154 STO 77 155 RTN 156 LBL 16 157 GRAD 158 CF 12 159 "YOU 1ST?<D>" 160 PROMPT 161 DEG 162 LBL D 163 RCL 10 164 STO 00 165 1/X 166 ST+ 44 167 ST+ 45 168 ST+ 54 169 ST+ 55 170 GTO IND 04 171 LBL C 172 LBL E 173 GTO IND 00 174 LBL 04 175 ST+ 88 176 LBL 03 177 ST+ 81 178 LBL 02 179 ST+ 11 180 LBL 01 181 ST+ 18 182 LBL 00 183 FC? 42 184 CHS 185 STO IND 90 186 SIGN 187 " W" 188 ASTO IND 91 189 ASTO IND 92 190 " B" 191 X<0? 192 ASTO IND 91 193 X>0? 194 ASTO IND 92 195 GTO IND 04 196 LBL 04 197 ST* 88 198 LBL 03 199 ST* 81 200 LBL 02 201 ST* 11 202 LBL 01 203 ST* 18 204 LBL 00 205 ABS 206 CHS 207 ST* 45 208 ST* 54 209 SF 04 210 FS?C 01 211 GTO C 212 LBL 10 213 RCL 02 214 STO 00 215 FS? 42 216 GTO IND X 217 RCL 01 218 XEQ 55 219 ARCL IND 91 220 RCL 06 221 STO 05 222 RCL 46 223 RCL 64 224 FS? 08 225 RCL 34 226 X<Y? 227 RCL 65 228 FS? 07 229 X<>Y 230 FC? 08 231 FS?C 07 232 X=0? 233 SF 07 234 FC?C 08 235 SF 08 236 RCL IND 90 237 CHS 238 X<>Y 239 ENTER 240 CLX 241 STO 04 242 GTO 01 243 LBL 17 244 RCL IND X 245 FRC 246 X=0? 247 GTO 01 248 LASTX 249 X=Y? 250 GTO 02 251 R^ 252 X<>Y 253 GTO 17 254 LBL 01 255 RDN 256 ABS 257 XEQ 00 258 X#0? 259 GTO 03 260 X<>Y 261 RCL IND T 262 GTO 17 263 LBL 02 264 INT 265 STO IND 05 266 " " 267 ARCL X 268 FS? 04 269 XROM 29,08 270 SIGN 271 RCL 07 272 RCL 06 273 - 274 X#0? 275 ENTER 276 LBL 03 277 BEEP 278 X=Y? 279 FS? 42 280 GTO 01 281 FS? 01 282 GTO 04 283 ADV 284 LBL 18 285 FS? 42 286 "PLAY:" 287 ARCL IND 92 288 "?" 289 7 290 STO 05 291 CF 12 292 CLST 293 TONE 06 294 GRAD 295 PROMPT 296 CLS 297 INT 298 STO 03 299 STO 04 300 RCL 01 301 XEQ 55 302 ARCL IND 92 303 RCL 03 304 X=0? 305 GTO 02 306 RAD 307 RCL 10 308 X<>Y 309 X<=Y? 310 GTO 03 311 RCL 89 312 X<=Y? 313 GTO 03 314 X<>Y 315 RCL IND X 316 X=Y? 317 GTO 03 318 FRC 319 X#0? 320 GTO 03 321 STO 04 322 RCL IND 90 323 RCL 03 324 XEQ 00 325 X=0? 326 GTO 03 327 LBL 01 328 X=Y? 329 GTO 01 330 5 331 STO 00 332 BEEP 333 GTO 04 334 LBL 01 335 XEQ 57 336 DEG 337 DSE 05 338 LBL 02 339 RCL IND 90 340 FS? 42 341 GTO 01 342 CHS 343 RCL 01 344 XEQ 02 345 ARCL IND 91 346 R^ 347 R^ 348 LBL 01 349 RCL 02 350 GTO 17 351 LBL A 352 FC?C 01 353 SF 01 354 LBL 03 355 FIX 00 356 ARCL 03 357 " NG" 358 LBL B 359 GTO IND 00 360 LBL 00 361 XEQ 01 362 X<> T 363 RCL 09 364 - 365 XEQ 01 366 X<> T 367 RCL 08 368 + 369 XEQ 01 370 X<> T 371 RCL 08 372 - 373 XEQ 01 374 CLX 375 X<> 93 376 X=0? 377 RTN 378 R^ 379 INT 380 X<>Y 381 RCL 91 382 / 383 + 384 STO IND 05 385 ARCL X 386 X<>Y 387 CHS 388 SIGN 389 LASTX 390 ABS 391 ST+ IND Z 392 RDN 393 ST* IND Y 394 ABS 395 ST+ 01 396 ST+ 04 397 FS? 04 398 XROM 29,08 399 RCL 60 400 RCL 01 401 X<=Y? 402 ENTER 403 RTN 404 LBL 01 405 STO Z 406 X<>Y 407 ISG Y 408 AOFF 409 RCL IND Y 410 FRC 411 X=Y? 412 XEQ 13 413 X<> T 414 CHS 415 STO Z 416 X<>Y 417 ISG Y 418 AOFF 419 RCL IND Y 420 FRC 421 X#Y? 422 RTN 423 LBL 13 424 RDN 425 ISG Y 426 AOFF 427 RCL IND Y 428 FRC 429 X=Y? 430 GTO 13 431 CHS 432 X#Y? 433 RTN 434 SIGN 435 ABS 436 CHS 437 X<>Y 438 R^ 439 R^ 440 LBL 14 441 DSE X 442 AOFF 443 X=Y? 444 GTO 01 445 R^ 446 ST* IND Y 447 ST- 93 448 RDN 449 GTO 14 450 LBL 01 451 RDN 452 RTN 453 LBL E 454 LBL 05 455 7 456 STO 00 457 XEQ 55 458 "TALY:" 459 XEQ 57 460 PSE 461 11.088 462 SF 25 463 . 464 ENTER 465 LN 466 LBL 06 467 RCL IND Z 468 FRC 469 X#0? 470 SIGN 471 X<0? 472 ST- Z 473 + 474 OCT 475 DEC 476 ISG Z 477 GTO 06 478 "B" 479 FIX 00 480 CF 29 481 ARCL Y 482 ",W" 483 CHS 484 - 485 TONE 07 486 XEQ 56 487 LASTX 488 FS?C 04 489 XROM 29,20 490 ADV 491 LBL 07 492 CF 12 493 FC? 55 494 CF 21 495 SF 29 496 DEG 497 FIX 02 498 STOP 499 GTO 07 500 LBL B 501 RCL 02 502 STO 00 503 GRAD 504 GTO IND X 505 LBL 04 506 ADV 507 GRAD 508 CF 21 509 AVIEW 510 PSE 511 PSE 512 FC? 01 513 GTO 05 514 LBL C 515 FS? 04 516 GTO 01 517 RCL 01 518 RCL 04 519 - 520 XEQ 55 521 ARCL IND 92 522 RCL 07 523 TONE 07 524 XEQ 03 525 PSE 526 X<> L 527 1 528 X>Y? 529 CLX 530 - 531 + 532 XEQ 02 533 ARCL IND 91 534 RCL 06 535 XEQ 03 536 ADV 537 PSE 538 LBL 01 539 XEQ 55 540 FIX 00 541 CF 29 542 11.018 543 STO 03 544 1.008 545 STO 05 546 " " 547 LBL 08 548 ARCL X 549 ISG X 550 GTO 08 551 FS? 04 552 XROM 29,08 553 LBL 09 554 " " 555 ARCL 05 556 ":" 557 LBL 11 558 RCL IND 03 559 FRC 560 X<0? 561 "*" 562 X=0? 563 "-" 564 X>0? 565 "O" 566 ISG 03 567 GTO 11 568 TONE 07 569 AVIEW 570 2.01 571 ST+ 03 572 ISG 05 573 GTO 09 574 LBL B 575 ADV 576 CLD 577 CLST 578 LBL D 579 GTO IND 00 580 LBL 55 581 CF 04 582 SF 12 583 SF 21 584 SF 25 585 SF 27 586 CLA 587 XROM 29,01 588 CLD 589 FS?C 25 590 SF 04 591 LBL 02 592 CLA 593 FIX 00 594 SF 29 595 RCL 10 596 X<>Y 597 X<Y? 598 " " 599 ARCL X 600 FIX 02 601 RTN 602 LBL 03 603 X=0? 604 " " 605 LBL 56 606 ARCL X 607 FS? 04 608 XROM 29,08 609 LBL 57 610 CF 21 611 AVIEW 612 SF 21 613 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall