_________________________________________________________________________

           Title: Foul Shot Basketball
         Version: 1.0
          Author: Pete Pizzo (ALiEnIX3@aol.com)
            Size:
	     Model: 9850+
     Description: A good basket game for the 9850.

This simple game involves a scoring monitor, shot monitor, and accuracy
monitor.  Press [EXE]  when the * is in the middle of the box.
ie. [   *   ]
This is the most accurate shot.  Try to beat the cpu's percentage to 
win.  A simple but fun game to play with no errors.
_______________________________________________________________________

 Program :

ClrText
Locate 6,3,"FOUL SHOT"
Locate 5,5,"PRESS [EXE]"_     (the disp command...triangle
ClrText
Int 10Ran#+1 ->C
Locate 6,3,"BEAT CPU:"
Locate 3,5,"POINTS TO BEAT="
Locate 19,5,C_
ClrText
0 ->T
0 ->P
0 ->S
0 ->I
0 ->D
0 ->M
1 ->Z
1 ->B
For 1 ->A to 6
Locate 21,B,"["
B+1 ->B
Next
Locate 20,2,"-"
Locate 20,3,"X"
Locate 1,6,"--------------------"     (21 -'s here
Locate 3,7,"[       ]  [  /  ]"    (7 spcs in 1st box...by 2 and 4 seperated by the / in the 2nd
While Z=1
Lbl 0
If S=10
Then T>C =>Goto 3
T<C =>Goto 4
IfEnd
Locate 7,1,"SCORE="
Locate 13,1,P
Locate 18,7,S
Locate 15,7,T
D=0 =>Locate B,7,"*"
D=0 =>Locate B,7,"*"
D=0 =>Locate B,7," "
D=0 =>B+1 ->B
B=10 =>1 ->D
D=1 =>Locate B,7,"*"
D=1 =>Locate B,7,"*"
D=1 =>Locate B,7," "
D=1 =>B-1 ->B
B=4 =>0 ->D
If Getkey=31
Then S+1 ->S
B=7 Or B=8 Or B=6 =>Goto G
B=/=7 Or B=/=8 Or B=/=6 =>1 ->I
Goto G
IfEnd
WhileEnd
Lbl G
Locate 1,6,"o"      (all o's are the degree signs ...OPTN, F6, F5, F1
Locate 1,6,"o"      
Locate 1,6," "      
Locate 2,5,"o"      
Locate 2,5,"o"      
Locate 2,5," "      
Locate 3,4,"o"      
Locate 3,4,"o"
Locate 3,4," "
Locate 4,3,"o"
Locate 4,3,"o"
Locate 4,3," "
Locate 5,2,"o"
Locate 5,2,"o"
Locate 5,2," "
Locate 6,1,"o"
Locate 6,1,"o"
Locate 6,1," "
For 1 ->A To 15
Locate 7,2,"  "
Next
Locate 20,1,"o"
Locate 20,1,"o"
Locate 20,1,""
If I=1
Then Goto 2
IfEnd
Locate 20,1," "
Locate 20,1," "
Locate 20,1," "
Locate 20,3,"o"
Locate 20,3,"o"
Locate 20,3,"X"
Locate 20,4,"o"
Locate 20,4,"o"
Locate 20,4," "
Locate 20,5,"o"
Locate 20,5,"o"
Locate 20,5," "
T+1 ->T
P+100 ->P
Goto 0
Lbl 2
Locate 19,2,"o"
Locate 19,2,"o"
Locate 19,2," "
Locate 18,3,"o"
Locate 18,3,"o"
Locate 18,3," "
0 ->I
Goto 0
Lbl 3
ClrText
Locate 3,2,"CONGRATULATIONS!"
Locate 5,5,"--=YOU WIN=--"_
Prog "BBALL"              (or whatever your Foul shout program is named.
Lbl 4
ClrText
Locate 5,2,"SORRY"
Locate 5,4,"YOU LOSE!"_
Prog "BBALL"
_________________________________________________________________________