%%HP: T(3)A(D)F(.);
\<<
@   copyright           : (C) 1996, 2004 by Ramón Díaz-Uriarte            @
@   email               : rdiaz@ligarto.org                               @
@
@
@   This program is free software; you can redistribute it and/or modify  @
@   it under the terms of the GNU General Public License as published by  @
@   the Free Software Foundation; either version 2 of the License, or     @
@   (at your option) any later version.                                   @
@                                                                         @
@  This program is distributed in the hope that it will be useful,        @
@  but WITHOUT ANY WARRANTY; without even the implied warranty of         @
@  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          @
@  GNU General Public License for more details.                           @
@                                                                         @
@  You should have received a copy of the GNU General Public License      @
@  along with this program; if not, write to the Free Software            @ 
@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307,USA @
 



@Dia 5-Mayo aniadido: closes I can get in antipr? & Intruder ID@
"INTR:
Focal LO " { \Ga} INPUT
"INTR:
Sun LO " { \Ga} INPUT

IF 21 FC? THEN "No" @Code for C++ program@
	ELSE
	"Si" @Code for the C++ program.@
	CLLCD "Post-trt" 1 DISP
	"Total Runs: " C + \->STR { \Ga } INPUT DROP
	C
@El output the C es nuevo, del 12-Mayo@
	"Dist. my O-my D " { \Ga } INPUT 
	"App. dist my D to LO1 " { \Ga} INPUT DUP 'AD1' STO
	"Flight: 
	straight or curved" {\Ga} INPUT
	"Conspic. LO1" { \Ga} INPUT 
	"Type LO1 " { \Ga} INPUT

	IF 5 FS? THEN 
		"No access"
		"App. dist no acc." { \Ga } INPUT 5 CF
	END 
	
	"Hiding type" { \Ga } INPUT
	IF C  1 > THEN
	"Closest I get to focal" {\Ga} INPUT
@ Closest I get is the same as "Approach distance 1" when there was only one run; @
@but could be different if # runs > 1; closest I get is, in fact, the shortest approach distance@
	ELSE AD1 END
"1:hid; 2:outsght;
8: shade; 9:plastic; 
10: no-move." { \Ga } INPUT

	"Reemerges? (1/0/X)" { \Ga } INPUT DUP \-> R1
		\<< 
		IF R1 "1" == THEN
			"Same (1)/diff. (0)
			location"{ \Ga } INPUT
			"Exposure reem: 
			1:high; 2:low" { \Ga } INPUT
			ELSE 
			"NA" "NA" 
		END
		
		\>>
	

END @OF 21 FC?@


@These are the questions about the behavior of focal and intruder in approach 1@
@They are here, because it is more convenient to ask these questions at the very end@


IF 30 FC? THEN
"Focal: returned to perch
after the attack?" {\Ga} INPUT
"Intruder bobed or GB?" {\Ga} INPUT
"Intruder attacked?" {\Ga} INPUT
"Intruder bites?" {\Ga} INPUT
"Size intruder" {\Ga} INPUT
"ID intruder" {\Ga} INPUT
"Size focal" {\Ga} INPUT
ELSE  "NA" "NA" "NA" "NA" "NA" "NA" "NA" END

"Weather" { \Ga} INPUT 
2 CF 3 CF 4 CF 5 CF 
DEPTH \->LIST 'PROV' STO PROV 
@'C' PURGE; purged by exp1.@
'AD1' PURGE
\>>