4K HP 67 Games rom attached for testing
10-28-2016, 05:59 PM (This post was last modified: 10-28-2016 07:59 PM by Dieter.)
Post: #24
 Dieter Senior Member Posts: 2,397 Joined: Dec 2013
RE: 4K HP 67 Games rom attached for testing
(10-28-2016 01:28 PM)Gene Wrote:  Your game of 26 is great and does not take much space Consider it included!

Thank you, but wait for the combined 26/36 program.
It's nearly finished and only requires some testing.

Edit: here it is. Try it and see if you find any errors or other things you would like to have changed.

Major parts of the code have been rewritten, e.g. to make sure it does not stop with pending subroutine calls. Also the random number generator has been improved. The program uses R00...05, so SIZE 006 is sufficient. Wins and losses of both games, "26" and "36", sum up in one common bank total. I made the game of "36" a bit more challenging in that the user now has to stop his sequence exactly in the second the summed score is displayed, i.e. you have just one second to decide whether to continue or not (by pressing the "0" or "." key). ;-)

Here is a sample session:

Code:
XEQ "G2636"     SEED? 0,12345 [R/S]                 BANK $0,00 Play a game of "26". Choose 4 as your number. 4 [A] 4365462324 3245265322 1123433545 5342233261 6542162331 6414663321 3544316143 3452424615 2615443465 1441262663 2451544355 4361541344 1635621155 28 TIMES WIN$1,00                 BANK $0,75 Play a game of "36", place a bet of$10. You go first.   10 [B]                 5...9...15...20...26...27...31...33... Stop here. Type "0" or "." as soon as the "33" is displayed. Now it's the calculator's turn:                 5...10...13...19... 21...27...33 The calculator stops here with the same score as you.  It decided not try one more roll. So this time there is no winner.                 WIN $0,00 BANK$0,75 Now let the calculator go first. Bet $10 again. 10 [C] 3...8...11...12...13...17...20...24...26...30...33 The calculator stops here. Now it's your turn: 4...8...11...12...18...21...25...29...35 Press "0" now! This time your score (35) is higher, so you win: WIN$10,00                 BANK$10,75 If you would have dared one more roll the score would have grown to 40 and you would have lost ("PAY$10,00"). The current bank total can be displayed with [D].

Any errors or suggestions?

Dieter

Attached File(s)