_________________________________________________________________________ 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 -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<1.25 =3D=3D> 450-A --> A K>S-1 =3D=3D> K L>T-1 =3D=3D> L 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_ _________________________________________________________________________