FOOTY
By Daniel Wedge
Has been tested on an fx-9700, might work on others.

*** MORE GAMES AND PROGRAMS FOR CASIO CALCULATORS AT ***
******** http://www.student.uwa.edu.au/~wedgey *********

AIM: to get the ball through the big sticks by using the control
in the top left of the screen and by judging the wind in the
top right.

Symbols:
@  Display
=> and/then
-> assign key
*  multiply
/  divide
<  less than
>  greater than
<= less than or equal to
>= greater than or equal to

SIZE: 719 bytes

THE CODE:

'FOOTY
Defm 10
0 -> G~H
"HIGH SCORE:":Z[1]@
1 -> Q
Lbl Y
0 -> R~Z
Goto 0
Lbl P
S+5 -> S                  ; Make the 5 bigger for more speed
Int (-.005BS(S-A -> T
Cls
Plot S,T:Plot S+1,T+1:Plot S+1,T:Plot S,T+1
Plot 90,10:Plot 90,25:Line:Plot 100,10:Plot 100,33:Line
Plot 110,10:Plot 110,33:Line:Plot 120,10:Plot 120,25:Line
T<=10 => S>50 => Goto Q
S>127 => Goto Q
Goto P
Lbl 0
Range 1,127,0,1,63,0
Graph Y=-.001X(X-210)-1
90 -> U
25 -> Z
Lbl A
Plot U,10:Plot U,Z:Line
U+10 -> U
U=100 => 33 -> Z
U=110 => 33 -> Z
U<=120 => Goto A
35Ran#+3 -> V
Int 2Ran# -> W
W=0 => -1 -> W
Plot 126,60:Plot 125-V,60:Line
W=1 => Plot 124,61
W=-1 => Plot 126-V,61
Plot 3,62:Plot 3,50:Line:Plot 15,50:Line:Plot 15,62@
(X-3)/12*117+.5VW -> A
(Y-50)/6 -> B
Goto P
Lbl Q
Plot 127,10:Plot 85,10:Line:Plot 55,8:Line:Plot 1,1:Line
89 -> X
0 -> R
Lbl M
-.005BX(X-A)<=11 => Goto F
Isz X
X<120 => Goto M
Lbl F
X>90 => X<=100 => 1->R
X>100 => X<110 => 6->R
X>=110 => X<120 => 1->R
R=1 => "POINT"@
R=6 => "GOAL!"@
R=0 => "CLANGER"@
R=6 => Isz G
R=1 => Isz H
"GOALS:":G@
"POINTS:":H@
"TOTAL:":6G+H@
Isz Q
Q<=20 => Goto Y
6G+H<Z[1] => Goto Z
"NEW HIGH SCORE!"@
6G+H => Z[1]
Lbl Z
"GAME OVER"