TARGETS

Site hosted by Angelfire.com: Build your free website today!
TARGETS
I don't have a comment on this one yet.
ipart (8.9random +1)@sto@P
ipart (7.9random +2)@sto@Q
ipart (8.9random +1)@sto@R

ipart (2.9random +2)@sto@D
ipart (8.9random +1)@sto@E
ipart (2.9random +7)@sto@F
ipart (8.9random +1)@sto@G

ipart (1.9random +2)@sto@H
ipart (8.9random +1)@sto@I
ipart (1.9random +5)@sto@J
ipart (8.9random +1)@sto@K
ipart (1.9random +8)@sto@L
ipart (8.9random +1)@sto@S

1@sto@Xmin
127@sto@Xmax
150@sto@Xscl
1@sto@Ymin
63@sto@Ymax
100@sto@Yscl
ClrT
Print "ROBIN HOOD HAS
Print "ARROWS THAT ARE
Print "CONTROLLED BY
Print "YOUR EQUATIONS
Wait 8
ClrT
Print "HOW MANY TARGETS
Print "DO YOU WANT
Print " 1, 2 OR 3
Print " 
1@sto@N
Input N

Label RET
P@sto@W
10@sto@X
5W+7@sto@Y
Gosub P
If N=2Goto T2
If N=3Goto T3

Q@sto@V
R@sto@W
Gosub B
Wait 
Goto EQN

Label T2
D@sto@V
E@sto@W
Gosub B
F@sto@V
G@sto@W
Gosub B
Wait 
Goto EQN

Label T3
H@sto@V
I@sto@W
Gosub B
J@sto@V
K@sto@W
Gosub B
L@sto@V
S@sto@W
Gosub B
Wait 
Goto EQN

Label P
1@sto@T
Line(10,7,91,7)
Line(10,8,10,63)
Line(X-9,Y-5,X-9,Y-2)
Line(X-8,Y-2,X-8,Y+2)
Line(X-7,Y-5,X-7,Y-2)
Line(X-10,Y,X-6,Y)
Line(X-9,Y+2,X-9,Y+4)
PntON(X-8,Y+4)
Line(X-7,Y+2,X-7,Y+4)
Line(X-5,Y-3,X-3,Y-1)
PntON(X-3,Y)
Line(X-3,Y+1,X-5,Y+3)
Line(6,Y,11,Y)
X-4@sto@X
Y+2@sto@Y
Gosub Y
Return

Label 1
Line(X,Y,X+2,Y)
Line(X+1,Y+1,X+1,Y+4)
PntON(X,Y+4)
If T=1Goto Y
Return

Label 2
Line(X,Y,X+2,Y)
PntON(X,Y+1)
Line(X,Y+2,X+2,Y+2)
PntON(X+2,Y+3)
Line(X,Y+4,X+2,Y+4)
If T=1Goto Y
Return

Label 3
Line(X,Y,X+2,Y)
PntON(X+1,Y+2)
Line(X+2,Y+1,X+2,Y+4)
Line(X,Y+4,X+1,Y+4)
If T=1Goto Y
Return

Label 4
Line(X,Y+4,X,Y+1)
PntON(X+1,Y+1)
Line(X+2,Y,X+2,Y+2)
If T=1Goto Y
Return

Label 5
Line(X,Y,X+2,Y)
PntON(X+2,Y+1)
Line(X,Y+2,X+2,Y+2)
PntON(X,Y+3)
Line(X,Y+4,X+2,Y+4)
If T=1Goto Y
Return

Label 6
Line(X,Y,X,Y+4)
Line(X+1,Y+4,X+2,Y+4)
Line(X+2,Y,X+2,Y+2)
PntON(X+1,Y)
PntON(X+1,Y+2)
If T=1Goto Y
Return

Label 7
Line(X,Y+4,X+1,Y+4)
Line(X+2,Y+4,X+2,Y)
If T=1Goto Y
Return

Label 8
Line(X,Y,X,Y+4)
PntON(X+1,Y+4)
PntON(X+1,Y+2)
PntON(X+1,Y)
Line(X+2,Y,X+2,Y+4)
If T=1Goto Y
Return

Label 9
Line(X,Y,X+2,Y)
Line(X+2,Y+1,X+2,Y+4)
PntON(X+1,Y+4)
Line(X,Y+4,X,Y+2)
PntON(X+1,Y+2)
If T=1Goto Y
Return

Label 0
Line(X,Y,X,Y+4)
PntON(X+1,Y+4)
Line(X+2,Y+4,X+2,Y)
PntON(X+1,Y)
If T=1Goto Y
Return

Label B
6V+9@sto@X
5W+10@sto@Y
Line(X+1,Y-2,X+1,Y-4)
Line(X,Y-3,X+2,Y-3)
PntON(X+1,Y)
Line(X,Y+1,X,Y+5)
PntON(X+1,Y+6)
Line(X+6,Y,X+6,Y+1)
PntON(X+11,Y)
Line(X+12,Y+1,X+12,Y+5)
PntON(X+11,Y+6)
X+2@sto@X
Y+1@sto@Y
1@sto@T
If V=1Goto 1
If V=2Goto 2
If V=3Goto 3
If V=4Goto 4
If V=5Goto 5
If V=6Goto 6
If V=7Goto 7
If V=8Goto 8
If V=9Goto 9
Goto 0

Label Y
X+6@sto@X
2@sto@T
If W=1Goto 1
If W=2Goto 2
If W=3Goto 3
If W=4Goto 4
If W=5Goto 5
If W=6Goto 6
If W=7Goto 7
If W=8Goto 8
If W=9Goto 9
Goto 0

Label EQN
ClrT
Print "ENTER YOUR
Print "COEFFICIENTS
Print " 
If N=2Goto E2
If N=3Goto E3
Print "Y=MX+B
Print " 
Input M
Input B
If P@not_=@BGoto NO
Draw 5(M(X-10)/6+B)+7
If abs(R-MQ-B)<.01Goto YES
Label N1
Wait 
Gosub CO
If Z@not_=@1Goto T
ClrT
(R-P)/Q@sto@M
Print "M=
Print M
P@sto@B
Print "B=
Print B
Wait 
Label T
ClrG
Goto RET


Label E2
ClrT
Print "Y=AX@^2@+BX+C
Print " 
Input A
Input B
Input C
If P@not_=@CGoto NO
Draw 5(A((X-10)/6)@^2@+B(X-10)/6+C)+7
If abs(E-(AD@^2@+BD+C))>.01Goto N2
If abs(G-(AF@^2@+BF+C))<.01Goto YES
Label N2
Wait 
Gosub CO
If Z@not_=@1Goto TR
ClrT
((G-E)/(F-D)-(E-P)/D)/F@sto@A
Print "A=
Print A
(E-P)/D-D((G-E)/(F-D)-(E-P)/D)/F@sto@B
Print "B=
Print B
P@sto@C
Print "C=
Print C
Wait 
Label TR
ClrG
Goto RET


Label E3
ClrT
Print "Y=AX^3+BX@^2@+CX+D
Print " 
Input A
Input B
Input C
Input D
If P@not_=@DGoto NO
Draw 5(A((X-10)/6)^3+B((X-10)/6)@^2@+C(X-10)/6+D)+7
If abs(I-(AH^3+BH@^2@+CH+D))>.02Goto N3
If abs(K-(AJ^3+BJ@^2@+CJ+D))>.02Goto N3
If abs(S-(AL^3+BL@^2@+CL+D))>.02Goto N3
Goto YES
Label N3
Wait 
Gosub CO
If Z@not_=@1Goto TRY
ClrT
@-@(((K-I)/(J-H)-(I-P)/H)/J-((S-K)/(L-J)-(K-I)/(J-H))/(L-H))/L@sto@A
Print "A=
Print A
((K-I)/(J-H)-(I-P)/H)/J+(J+H)(((K-I)/(J-H)-(I-P)/H)/J-((S-K)/(L-J)-(K-I)/(J-H))/(L-H))/L@sto@B
Print "B=
Print B
((I-P)/H)-H(((K-I)/(J-H)-(I-P)/H)/J)-HJ(((K-I)/(J-H)-(I-P)/H)/J-((S-K)/(L-J)-(K-I)/(J-H))/(L-H))/L@sto@C
Print "C=
Print C
P@sto@D
Print "D=
Print D
Wait 
Label TRY
ClrG
Goto RET


Label YES
ClrT
Print "YES
Wait 2
DispG
Wait 5
End

Label NO
ClrT
Print "MR HOOD CAN NOT
Print "SHOOT THAT ARROW
Print " 
Print "CHECK YOUR CHOICE
Print "OF VALUE FOR THE
Print "Y-INTERCEPT
Wait 5
ClrT
DispG
Wait 
If N=1Goto EQN
If N=2Goto E2
Goto E3

Label CO
0@sto@Z
ClrT
Print "ENTER 1 TO SEE
Print "THE COEFFICIENTS
Print "OR PRESS ENTER
Print "TO TRY AGAIN
Print " 
Input Z
Return