\START\
\COMMENT=Ungrouped from c:\\ti\\prog\\prog.85g
\NAME=TARG
\FILE=TARG.85P
1\->\xMin
270\->\xMax
0\->\xScl
ClLCD
ClDrw
0\->\S
.01745\->\R
For(N,1,15,1
ClDrw
Line(0,159,0,149
Line(0,149,9,159
Line(9,159,0,159
round(rand*260)+10\->\T
Line(T-10,1,T+10,1
Line(T+10,1,T+10,3
Line(T+10,3,T-10,3
Line(T-10,3,T-10,3
Line(T-10,3,T-10,1
Pause 
Input "Angle(0-60)?",A
DispG 
A*(A\>=\0)*(A\<=\61)\->\A
157/cos (A*R)\->\C
sin (A*R)*C\->\X
\(-)\(cos (A*R))*C+159\->\Y
Line(0,159,X,Y

Pause 
ClLCD
For(Z,1,44-abs (X-T),1)
S+1\->\S
End
ClLCD
S-1\->\S
Disp "# SHOTS LEFT:",15-N
Disp "Score:"
Disp S
End
\STOP\