This program for any Casio graphing calculator is a penalty kick game.  The goalie dives the 
right way 55% of the time.  If you shoot low, it will be easier for the goalie to get, but if you 
shoot high it will miss the goal completely too often.


;   represents the display symbol.  Push shift prgm f5
@   represents the theta variable.  Push ALPHA Range
->  represents the key that stores data into a variable
<=  represents the less than or equal to sign, push shift prgm f2 f6
=>  represents the conditional statement sign.  push shift prgm f1 f1
>=  represents the greater than or equal to sign
!   represents the factorial sign push shift math prb f1


702 bytes.  Prog @ sets the range to 1,95,0,1,63,0  For wide screen calculators make this 1,127,0,1,63,0


"SOCCER PKS 1.1"
"BY SOMERSOFT!";
Prog @
Cls
Plot 3,1
Plot 3,30
Line
Plot 93,30
Line
Plot 93,1
Line
Plot 40,1
Plot 45,10
Line
Plot 45,23
Line
Plot 37,17
Plot 42,17
Line
Plot 45,20
Line
Plot 48,17
Line
Plot 53,17
Line;
-1->L
1->R
"LEFT OR RIGHT"?->B
(Int 20Ran#+1)->A
A<=11=>B->A
A>11=>-B->A
-1->L
1->H
"HIGH OR LOW"?->C
Cls
Plot 3,1
Plot 3,30
Line
Plot 93,30
Line 
Plot 93,1
Line
Plot 45+5A,6
Plot 45+13A,6
Line
Plot 45+15A,8
Line
Plot 45+5A,10
Plot 45+13A,10
Line
Plot 45+15A,8
Line
Plot 45+29A,8
Line
Plot 45+33A,6
Plot 45+27A,6
Line 
Plot 45+25A,8
Line
Plot 45+27A,10
Line
Plot 45+33A,10
Line
C=-1=>B(Int 38Ran#+15)+48->D
C=1=>B(Int48Ran#+15)+48->D
C=-1=>Int 20Ran#+1->E
C=1=>Int 32Ran#+10->E
D<1=>1->D
D>95=>95->D
Plot D,E
Plot 0,0;
E>30=>D>=3=>D<=93=>"HIGH!"
Abs (D-48)>45=>"WIDE!"
Abs (D-45)=45=>"HIT THE POST!"
E=30=>Abs (D-48)<45=>"HIT THE CROSSBAR!"
Abs (D-(22A+48))<=20=>Abs (E-8)<=8=>"SAVE!"
Abs (D-(22A+48))<=20=>Abs (E-8)<=8=>Goto 2
Abs (D-48)<45=>Abs (E-15)<15=>"GOAL!"
Lbl 2


By Alan Somers of San Antonio, TX e-mail at RDShavano@aol.com