ViewWindow 1,127,0,1,63,0
Cls
ClrText
0ÞA~Z
1ÞZ
1ÞO
Getkey
Locate 1,1,"ARCHERY V.1.0 AT PROD"
Locate 1,3,"PLAYERS  ROUNDS  DIST"
Locate 1,4," ÞONE    ÞTWO    Þ30M"
Locate 1,5,"  TWO     FIVE    50M"
Locate 1,6,"          TEN     70M"
Locate 1,7,"          TWENTY  90M"
1ÞR
Lbl M
Locate 2,3‰Z,"Þ"
Getkey
Ans=27ãGoto N
Ans=38ãGoto O
Ans=28 Or Ans=37ãZ‰1ÞZ
Ans=31ãGoto P
Z=3ã1ÞZ
Locate 2,5," "
Locate 2,4," "
Goto M
Lbl N
For 4ÞI To 7
Locate 10,I," "
Next
Locate 10,3‰R,"Þ"
Getkey
Ans=27ãGoto O
Ans=38ãGoto M
Ans=37ãR‰1ÞR
Ans=28ãR™1ÞR
Ans=31ãGoto P
R=5ã1ÞR
R=0ã4ÞR
Goto N
Lbl O
For 4ÞI To 7
Locate 18,I," "
Next
Getkey
Locate 18,3‰O,"Þ"
Ans=27ãGoto M
Ans=38ãGoto N
Ans=31ãGoto P
Ans=28ãO™1ÞO
Ans=37ã1‰OÞO
O=5ã1ÞO
O=0ã4ÞO
Goto O
Lbl P
Rtanh 10ÞR
R=10ã2ÞR
R=20ã5ÞR
R=30ã10ÞR
R=40ã20ÞR
Otanh 3ÞO
1ÞP
1ÞN
70ÞC
Orange Text 5,C,"ARCHERY V 1.0 "
Text 10,C,"™™™™™™™™™™™™ "
Z=2ãGreen Text 20,C,"PLAYER "
Z=2ãText 20,115,"1"
Green Text 27,C,"SHOT "
Text 27,115,"1"
Green Text 34,C,"POINTS "
Text 34,115,"0"
Green Text 41,70,"LAST"
Text 41,115,"0"
Green Text 48,70,"AVERAGE"
Text 48,115,"0"
Green Text 55,70,"ROUNDS"
Text 55,115,R
Lbl 0
Int 13Ran#‰1ÞX
Int 7Ran#‰1ÞY
2ÞG~H
0ÞA
Circle 32,32,30
F-Line 30,32,34,32
F-Line 32,30,32,34
Int 63Ran#‰1ÞÍ
Int 63Ran#‰1ÞÎ
0ÞF
While Aá78 And Fá™1
GetkeyÞA
Isz F
F=50ãText 10,20,"HURRY UP"
F=65ã™1ÞF
If Aá78
Then A=38ãΙInt (12‰O)Ran#ÞÎ
A=27ãΉInt (12‰O)Ran#ÞÎ
A=37ã͉Int (12‰O)Ran#ÞÍ
A=28ãÍ™Int (12‰O)Ran#ÞÍ
(3™(O¹8))Ran#<1ãInt ((10‰O)Ran#™(5‰O¹2)‰ÍÞÍ
(3™(O¹8))Ran#<1ãInt ((10‰O)Ran#™(5‰O¹2)‰ÎÞÎ
Î>63ã63ÞÎ
Î<1ã1ÞÎ
Í>63ã63ÞÍ
Í<1ã1ÞÍ
PxlOff G,H
Green PxlOn Í,Î
ÍÞG
ÎÞH
IfEnd
WhileEnd
Lbl 2
PxlOff G,H
Int ((32™†((Abs (Í™32))‹‰(Abs (Ι32))‹))¹3)ÞS
0ÞM
Sà0ã1ÞM
F=™1ã2ÞM
For 1ÞI To 63 Step 5
Text I,1,"                 "
Next
Text 57,20,"        "
Text 48,10,"Î"
Text 53,10,"#"
Text 53,13,"™)"
Text 53,58,"()"
Text 58,10,"^"
PxlOff 1,1
If Mà1
Then For 1ÞI To 200
Next
For 3ÞI To 36 Step 3
F-Line 21‰I,9,24‰I,9
Text 55,17‰I," "
Next
IfEnd
If M=1
Then Text 53,58,"(™"
Text 53,58,"(™"
Text 53,58,"() "
IfEnd
Mâ1ã0ÞS
M=2ãText 10,10,"DISQUALIFIED"
For 1ÞI To 11
Text 20,I," POINTS"
Next
For 2ÞI To 20
Text I™1,43,"  "
Text I,43,S
Next
Text 34,115,"   "
Text 41,115,"   "
Text 48,115,"   "
If P=1
Then SÞL
S‰TÞT
Int ((T¹N))ÞE
Text 48,115,E
Text 41,115,S
N‰1ÞN
Text 34,115,T
IfEnd
If P=2
Then SÞU
S‰VÞV
Int (V¹(N™1))ÞW
Text 34,115,V
Text 41,115,U
Text 48,115,W
IfEnd
1ÞI
12ÞÎ
While Getkeyá31
I‰ÎÞÎ
20Ran#<1ã8Ran#™4ÞI
Î>62ã™(4Ran#)ÞI
Î<™I‰1ã4Ran#ÞI
Text 30,Int Î," [PRESS EXE] "
WhileEnd
Text 30,Int Î,"             "
If Z=1 Or (Z=2 And P=2)
Then Text 27,115,N
IfEnd
If Z=2
Then Text 34,115,"   "
Text 41,115,"   "
Text 48,115,"   "
P‰1ÞP
P=3ã1ÞP
Text 20,115,P
If P=1
Then 0ÞI
Text 34,115,T
Text 41,115,L
Text 48,115,E
IfEnd
If P=2
Then Text 34,115,V
Text 41,115,U
Text 48,115,W
IfEnd
IfEnd
For 1ÞI To 63 Step 5
Text I,1,"                "
Next
NáR‰1ãGoto 0
P=2 And N=R‰1ãGoto 0
Lbl R
Cls
Text 1,20,"™™™�FINAL RESULTS�™™™"
Orange Text 18,13,"ROUNDS"
Orange Text 18,42,R
Text 18,50,"DISTANCE"
O=3ã30ÞO
O=6ã50ÞO
O=9ã70ÞO
O=12ã90ÞO
Text 18,90,O
If Z=2
Then Orange Text 30,25,"PLAYER 1"
Orange Text 37,25,"PLAYER 2"
Green Text 24,61,"SCORE"
Green Text 24,90,"AVG."
Text 30,92,E
Text 37,92,W
Text 30,65,T
Text 37,65,V
V>TãGreen Text 37,21,"!"
T>VãGreen Text 30,21,"!"
IfEnd
If Z=1
Then Green Text 30,40,"SCORE"
Text 30,75,T
Green Text 36,40,"AVERAGE"
Text 36,75,Int (T¹R)
IfEnd