\START85\
\COMMENT=Program file dated 03/11/97, 20:59
\NAME=Archery
\FILE=ARCHERY.85P
:0\->\SC
:0\->\D
:Pol
:Radian
:AxesOff
:FnOff 
:ZDecm
:ZSqr
:0\->\\@Min\
:2\pi\\->\\@Max\
:\pi\/24\->\\@Step\
:".6"\->\A
:"1.2"\->\B
:"1.8"\->\C
:"2.4"\->\E
:"3"\->\F
:\St>Eq\(A,r1)
:\St>Eq\(B,r2)
:\St>Eq\(C,r3)
:\St>Eq\(E,r4)
:\St>Eq\(F,r5)
:FnOn 
:StPic ARCH
:Lbl YES
:If D==10
:Then
:Disp "Your score:"
:Disp SC
:AxesOn
:Func
:Stop
:End
:4*(rand-.5)\->\x
:4*(rand-.5)\->\y
:PtChg(x,y)
:For(H,1,30)
:x\->\X
:y\->\Y
:getKy\->\G
:If G==24
:x-4*\Delta-x\\->\x
:If G==26
:x+4*\Delta-x\\->\x
:If G==34
:y-4*\Delta-y\\->\y
:If G==25
:y+4*\Delta-y\\->\y
:If G==105
:Goto EN
:x+6((rand-.5)*\Delta-x\)\->\x
:y+6((rand-.5)*\Delta-y\)\->\y
:PtChg(x,y)
:PtChg(X,Y)
:RcPic ARCH
:End
:Lbl EN
:PtOn(x,y)
:\sqrt\(x\^2\+y\^2\)\->\R
:10-(iPart (10R/3))\->\S
:If S\>=\0
:SC+S\->\SC
:D+1\->\D
:Goto YES
\STOP85\