Golf for the HP-25/25C

Back to main page | Email me at: Gene!


The program presented below will allow you to play golf on the HP-25. It was written by Jim Butterfield and appeared in the V3N6P8 issue of the PPC Journal (June 1976). Thanks to Jim wherever he is today!

Welcome to the Hot Potato '25 Golf and Country Club. The HP-25 is open year round, day and night. It has no hazards or sand traps, and you'll never slice nor hook!

Here are your clubs: Woods (1, 2, and 3); Irons (4 thru 9); Wedge (10); Chip Shot (11); Pitch and run (12).

To begin play on a hole, push the R/S key (stands for Rotten Shot); the display will show you the yards to the green.

Choose your club from the list above, enter the club number and press R/S. If the number shown is positive, you are still in the fairway. If the number is negative, you are on the green.

Once you are on the green, you are shown the number of feet to the hole. Now you'll be using your putter, and must input the STRENGTH of the putt you wish to make (from 1 to 15, with 15 being the hardest putt driving the ball up to 60 feet!).

Once you've entered the strength of the putt you wish to make, press R/S again and watch the ball roll toward the pin...and possibly right past it!. A final distance of 0 means you sank the putt. Tee off on the next hole by pressing R/S again.

The HP-25 does not keep score. You'll have to do that. ;-)

Initial Instructions:
1) Store these contants in these memories: 15 STO 3, 26 STO 4, 40 STO 5, 465 STO 6, 85 STO 7.
2) Set the display to FIX 0.

You can try "Lunar Golf" by changing these registers: Type 3 STO 3, 50 STO 5, and 1500 STO 6 and STO 7. The ball is so lively, it will keep bouncing down the fairway and well over the green!


Program Listing: Email if you have any questions.
Line      Instruction  Keycode
01         STO 2        23 02
02         RCL 0        24 00
03         g PI         15 73
04         +            51
05         g X^2        15 02
06         g FRAC       15 01
07         STO 0        23 00
08         STO + 2      23 51 02
09         RCL 1        24 01
10         g X NE 0     15 61
11         GTO 18       13 18
12         RCL 6        24 06
13         RCL 0        24 00
14         *            61
15         RCL 7        24 07
16         +            51
17         GTO 43       13 43
18         g X < 0      15 41
19         GTO 39       13 39
20         RCL 2        24 02
21         RCL 4        24 04
22         -            41
23         g X^2        15 02
24         RCL 1        24 01
25         f LN         14 07
26         *            61
27         RCL 3        24 03
28         /            71
29         STO - 1      23 41 01
30         GTO 42       13 42
31         2            02
32         /            71
33         RCL 1        24 01
34         +            51
35         f PAUSE      14 74
36         STO 1        23 01
37         1            01
38         STO - 2      23 41 02
39         RCL 2        24 02
40         g X > = 0    15 51
41         GTO 31       13 31
42         RCL 1        24 01
43         g ABS        15 03
44         f INT        14 01
45         RCL 5        24 05
46         X <> Y       21
47         f X < Y      14 41
48         CHS          32
49         STO 1        23 01

That's it!
Visitors since 8/5/97