Thread for 67FUN2 game rom program development

[Gene]

No, I'm not suggesting a "jump right in" approach to this, but I'm posting a candidate or two for the next effort. As time permits, optimizing these can move ahead.


Robert has a version of a game of Bowling. Not a bowling scorekeeper program, but one that allows you to bowl. Post it in this thread when you can.

Here is a game I have hastily rewritten from a HP 67 User's Library program: Paper, Rock, Scissors.

Goal: Choose paper, rock or scissors and try to beat the calculator. Get to a score of 10 wins first to beat it. Each win is +1. Each loss is -1. Paper is A, Rock is B and CUT (scissors is too long) is C.

Obviously, the Seed? and RN routine would be modified as we did in 67FUN previously.

.raw file: PRS

Original program PDF - note that this has been modified already, but for reference purposes: PDF

And text listing of program here:

Code:

 01 LBL "PRS" 
 02 "SEED?" 
 03 PROMPT 
 04 STO 00 
 05 FIX 00 
 06 CLX 
 07 STO 01 
 08 RTN 
 09 LBL A 
 10 SF 01 
 11 1 
 12 GTO 00 
 13 LBL B 
 14 SF 02 
 15 2 
 16 GTO 00 
 17 LBL C 
 18 SF 03 
 19 3 
 20 LBL 00 
 21 XEQ 01 
 22 3 
 23 * 
 24 1 
 25 + 
 26 INT 
 27 STO 02 
 28 X=Y? 
 29 GTO 05 
 30 1 
 31 - 
 32 X=0? 
 33 GTO 02 
 34 1 
 35 - 
 36 X=0? 
 37 GTO 03 
 38 FS? 02 
 39 GTO 06 
 40 LBL 07 
 41 1 
 42 ST- 01 
 43 "LOSE" 
 44 GTO 08 
 45 LBL 02 
 46 FS? 02 
 47 GTO 07 
 48 GTO 06 
 49 LBL 03 
 50 FS? 03 
 51 GTO 07 
 52 LBL 06 
 53 1 
 54 ST+ 01 
 55 "WIN" 
 56 LBL 08 
 57 >" " 
 58 ARCL 01 
 59 AVIEW 
 60 PSE 
 61 PSE 
 62 PSE 
 63 "Y:" 
 64 FS?C 01 
 65 >"PAP" 
 66 FS?C 02 
 67 >"ROCK" 
 68 FS?C 03 
 69 >"CUT" 
 70 >" HP:" 
 71 RCL 02 
 72 1 
 73 - 
 74 X=0? 
 75 >"PAP" 
 76 1 
 77 - 
 78 X=0? 
 79 >"ROCK" 
 80 X!=0? 
 81 >"CUT" 
 82 PROMPT 
 83 RTN 
 84 LBL 05 
 85 "TIE" 
 86 GTO 08 
 87 LBL 01 
 88 RCL 00 
 89 R-D 
 90 FRC 
 91 STO 00 
 92 END