11-22-2016, 08:02 PM
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:
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