Back to main page |
**Email me at:**
Gene!

The program presented below will simulate a slot machine on the HP-25. It was written by Craig Pearce (a fellow CHiP chapter member!) and appeared in the V3N2P16 issue of the PPC Journal (February 1976). Thanks to Craig who lives in Chicago!

**Instructions: **

0) Key the program in. Switch to RUN mode.

1) Store these constants: 10 STO 7, 0.1 STO 6, FIX 3. (You start with a $10 bankroll).

2) Change the angle mode to RADians, g RAD.

3) Store a decimal seed between 0 and 1 into memory 0, STO 0. Press f PRGM, R/S.

4) Each press of the R/S key costs you $0.10 and produces a three digit number representing the three symbols on a slot machine.

5) Repeat step 3 as long as you like.

6) At any time, you may view your winnings by press RCL 1.

The winning combinations take the form of:

0.aaa or 0.aa0, where a is any digit. Thus 0.777, 0.555, 0.550, 0.330, etc., are winning numbers. These pay $1.00.

0.000 is also a winning number. It pays $10.00.

Line Instruction Keycode 01 RCL 0 24 00 02 RCL 7 24 07 03 * 61 04 f SIN 14 04 05 g ABS 15 03 06 STO 0 23 00 07 EEX 33 08 6 06 09 + 51 10 f LASTX 14 73 11 - 41 12 g FRAC 15 01 13 STO 5 23 05 14 RCL 7 24 07 15 * 61 16 f INT 14 01 17 STO 2 23 02 18 f LASTX 14 73 19 g FRAC 15 01 20 RCL 7 24 07 21 * 61 22 f INT 14 01 23 STO 3 23 03 24 f LASTX 14 73 25 g FRAC 15 01 26 RCL 7 24 07 27 * 61 28 STO 4 23 04 29 RDN 22 30 f X NE Y 14 61 31 GTO 47 13 47 32 RCL 4 24 04 33 g X = 0 15 71 34 GTO 40 13 40 35 f X NE Y 14 61 36 GTO 47 13 47 37 RCL 2 24 02 38 f X NE Y 14 61 39 GTO 47 13 47 40 RCL 2 24 02 41 0 00 42 f X = Y 14 71 43 9 09 44 STO + 1 23 51 01 45 1 01 46 STO + 1 23 51 01 47 RCL 6 24 06 48 STO - 1 23 41 01 49 RCL 5 24 05

That's it!

Visitors since 8/5/97