_________________________________________________________________________

           Title: Hole in One
         Version: 1.0 BETA
          Author: Henrik Stenberg (henrik.s@interact.se)
            Size: 488 bytes
     Description: Play miniature golf on your calculator
                  
_________________________________________________________________________

Command translation:

-->             Assign value, above (DEL) key
=3D=3D>         Then, (SHIFT) (7) (F1) (F1)
@               Display, (SHIFT) (7) (F5)
^2              Square, Above (8)
=A4             Theta, (Alpha) (Range)

_________________________________________________________________________

 Program :

'HOLE IN ONE
Mcl
2 --> K
19 --> L
83 --> S
54 --> T
Lbl 0
Range 1,95,0,1,63,0			;If you have a 9x00, just change 95 to 127
Plot 1,9
Plot 86,9
Line
Plot 95,18
Line
Plot 95,63
Line
Plot 71,63
Line
Plot 71,29
Line
Plot 1,29
Line
Plot 83,53
Plot 82,54
Plot 83,55
Plot 84,54
Plot K,L
Plot K,L @
X-K --> E
Y-L --> F
sqrt(E2+F2 --> H
cos^-1 (E/H --> A
Y<L =3D=3D> -A --> A
A+(HRan#-HRan#)/18 --> A
"FORCE"? --> Z				;Enter force between 0 and 10
Z>10 =3D=3D> 10 --> Z
Z/6 --> Z
Isz P
Lbl 1
Zcos A+K --> K
Zsin A+L --> L
Plot K,L
K<1 =3D=3D> Goto 2
K<=3D86 =3D=3D> L<=3D10 =3D=3D> 360-A --> A
K<=3D71 =3D=3D> L>=3D28 =3D=3D> 360-A --> A
K>=3D94 =3D=3D> L>=3D18 =3D=3D> 180-A --> A
K<=3D72 =3D=3D> L>=3D29 =3D=3D> 180-A --> A
K>72 =3D=3D> K<94 =3D=3D> L>=3D62 =3D=3D> 360-A --> A
(95-K)/(19-L --> W
K>86 =3D=3D> L<18 =3D=3D> .75<W =3D=3D> W<1.25 =3D=3D> 450-A --> A
K>S-1 =3D=3D> K<S+1 =3D=3D> L>T-1 =3D=3D> L<T+1 =3D=3D> Goto 3
Z-.01 --> Z
Z>0 =3D=3D> Goto 1
Goto 0
Lbl 2
"PROBLEMS?" @
2 --> K
19 --> L
Goto 0
Lbl 3
"PUTTS:"
P_

_________________________________________________________________________