%%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 @
 

{1 2 4 5 6 -44} CF {-40 -41 -42 -43 -55} SF
@the system flags control the time and date format and alarm reecheduling and saving@ 
@ System flag -55 is something weird I do not really understand; if it is cleared, @
@ then after an alarm sounds, a 0 is left on the stack; this is related to loops @
@ (i.e., if the loop is some other command, same thing happens); it has something@
@to do with the 0 of "0 wait"@
@Some revision notes: on day 29-April I make following changes: @
@ - Add a focal session of 15 minutes (but 15 minutes total; not 15 minutes net), @
	@ asking about sun position and substrate@
@ - Remove question of distance me-hiding;@
@ - Remove any questions about approaches other than the first; @
@ - Distinguish between bob (S), gular bob (M) and high intensity display (G); @
@ - Add . (93.1), which is that I start taking the intruder out; @
@ Temperatures: instead of temp. 1 cm above substrate,this is substrate temp @


0 DELALARM


IF 20 FC? 21 FC? AND 22 FC? AND THEN 
	CLLCD "Program Exp_1" 1 DISP 
	MEM IF 5000 < THEN
		"MEMORY LESS 5000"4 DISP 
		100 1 BEEP
	END
	
	'TS' PURGE 'TE' PURGE
	"EXP_1" DATE
	"ID" {\Ga} INPUT
	"Enclosure" {\Ga} INPUT
@Las A1 y A2 son tomadas con diferente formato para temperatura (solo una pregunta al final)@
@ y sin la pregunta sobre distancia yo-hiding@
"Temp substrate" {\Ga} INPUT
"Temp: 1.5 m" { \Ga } INPUT 
	"TRT: C(1), I(2)" {\Ga} INPUT
                IF DUP "1" == THEN 30 SF END	
	"SUBSTR" { \Ga }INPUT 
	"SUN POS" { \Ga} INPUT
@	"HEIGHT" {\Ga } INPUT @
	CLLCD 
	"FOCAL" 1 DISP  
	2 SF 6 CF  
	@# 0d TS STO # 0d TE STO@ 0 C STO "FOCAL" 0 BEH6 
@As this focal session is gross --not net-- time, I get rid of the TS and TE variables@
@ 22 SF @
@ "FOCAL" @
@ 92.1 TIME 65.3 TIME @
@Now the focal part is bypassed; to use it,  uncomment the last 7 lines, and comment out @
@ the "22 SF",  and the following 2 lines (they are added so that the structure of all records is similar;.  @
@ that makes life easier). @
END

IF 20 FC? 21 FC? AND 22 FS? AND THEN 
              0 DELALARM
              "INTRU"
              CLLCD "Funicular" 1 DISP
              2 SF 0 BEH6
              END 

IF 20 FS? 21 FC? AND THEN
	"Run Antipr (N=NO)" {\Ga} INPUT
               IF "NO" == THEN 
		"ANTIP" 65.3 TIME ANQ6 
	@This makes life of the C++ program easier@
	ELSE 
		'C' PURGE 0 DELALARM 
		"ANTIP" CLLCD
		"Program Antipr" 1 DISP 
		2 SF 4 CF 5 CF  
		0 C STO 0 BEH6
	END
END

IF 21 FS? THEN
	ANQ6

END

DEPTH \->LIST 
{1 2 4 5 6 20 21 22 30 31 32} CF
'C' PURGE
@'TS' and 'TE' purged by beh5.@
0 DELALARM
\>>