Golf for the HP-67/97

Back to main page | Email me at: Gene!

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

Initial Instructions:
1) Load the program and switch to RUN mode.
2) Enter an initial decimal seed and press STO 0.
3) To play golf:
a) To tee up on each new hole, press A. See Yards to the green displayed.
Note: For steps b, c, and d, if the display shows a positive number, it is the yards to the green. If the display shows a negative number, it is the feet to the hole.
b) For wood shots, enter the wood club number (1-4) and press B.
c) For iron shows, enter the iron number (1-9) and press C.
d) For wedge shots, enter a 1 for a regular wedge, 2 for a chip shot, and 3 for a pitch and run and press D.
e) For putting, enter the putt strength (1-15) and press E. The display will show the ball rolling to the hole. If the display ends up showing a 0, you sank the putt. Go back to step 3.a to go to the next hole.

The program does not keep score.

Program Listing: Email if you have any questions. 
Line      Instruction
01         LBL A
02         GSB 0
03         4
04         6
05         5
06         *
07         8
08         5
09         +
10         STO 1
11         RTN
12         LBL B
13         4
14         5
15         ENTER
16         3
17         .
18         2
19         ENTER
20         4
21         GTO 4
22         LBL C
23         4
24         1
25         .
26         8
27         ENTER
28         2
29         .
30         5
31         ENTER
32         9
33         GTO 4
34         LBL D
35         1
36         8
37         .
38         9
39         ENTER
40         1
41         .
42         9
43         ENTER
44         3
45         LBL 4
46         RUP
47         X > Y
48         GTO 3
49         X <> Y
50         RDN
51         STO 3
52         RDN
53         GSB 0
54         RCL 3
55         +
56         *
57         -
58         RCL 1
59         LN
60         *
61         STO - 1
62         LBL 3
63         4
64         0
65         RCL 1
66         ABS
67         INT
68         X < = Y
69         CHS
70         STO 1
71         RTN
72         LBL E
73         GSB 0
74         +
75         STO 2
76         GTO 1
77         LBL 2
78         2
79         /
80         RCL 1
81         +
82         STO 1
83         INT
84         PAUSE
85         1
86         STO - 2
87         RCL 2
88         LBL 1
89         X > 0
90         GTO 2
91         GTO 3
92         LBL 0
93         RCL 0
94         PI
95         +
96         X^2
97         FRAC
98         STO 0
99         RTN
That's it!
Visitors since 8/6/97