REM >EvNoDel
REM ___________________________________________________________________
REM COPY OF !Evenden, BUT WITH ALL DELAYS SET TO ZERO.
REM This is the method Evenden used most recently to train rats.
REM USES EVENDEN SOURCE CODE AS A LIBRARY.
REM 13 March 1999.
REM
REM 16 May 99 - supports per-box delay method
REM             New: delay_method_per_box%(), specify_method_per_box%
REM ___________________________________________________________________

progname$="EvNoDel"
version_date$="16 May 99"
debug%=0
simple%=0

PROCinit              :REM Arachnid init
PROCkill_all          :REM Arachnid init
LIBRARY "<RudolfDir>.ProgLibs.Ascii"
LIBRARY "<RudolfDir>.ProgLibs.UI"
LIBRARY "<RudolfDir>.ProgLibs.DateTime"
LIBRARY "<RudolfDir>.ProgLibs.Filename"
date_time$ = FNdate_time_code
LIBRARY "<RudolfDir>.ProgLibs.Arachnid"
LIBRARY "<RudolfDir>.ProgLibs.BoxConst"
PROCcombined_boxes
LIBRARY "<RudolfDir>.ProgLibs.DelayLib"
maxnchoicetrials%=100:PROCdelay_lib_init

REM ___________________________________________________________________
LIBRARY "<RudolfDir>.!Evenden.Evenden"
REM ___________________________________________________________________

number_of_blocks% = 5
trials_per_block% = 10
DIM delay_values%(number_of_blocks%)  :REM steps numbered 1-5
FOR dummy%=1 TO number_of_blocks%:READ delay_values%(dummy%):NEXT
REM ___________________________________________________________________
DATA 0, 0, 0, 0, 0
REM ___________________________________________________________________
increasing%=1:decreasing%=2:zero%=3
delay_method%=increasing%
DIM delay_method_per_box%(nboxes%)
specify_method_per_box% = no%

global_unadj_delay% = 0 :REM No delay on the unadjusted lever
unadj_nreinf% = 1       :REM 1 pellet on the unadjusted lever
adj_nreinf% = 4         :REM 4 pellets on the adjusted lever

nchoicetrials% = number_of_blocks% * trials_per_block%  :REM 60 trials
pellet_gap% = 50
lights_bridge_delay%=no%  :REM talked to BJE, start with this...
initiation_limhold% = 1000
choice_limhold% = 1000
collection_limhold%=1000
reinf_collect_period%=600
iti_time% = 10000

IF debug%=1 THEN
  number_of_blocks% = 4
  FOR dummy%=1 TO number_of_blocks%:READ delay_values%(dummy%):NEXT
REM ___________________________________________________________________
  DATA 0, 0, 0, 0
REM ___________________________________________________________________
  delay_method%=increasing%
  trials_per_block% = 2
  nchoicetrials% = number_of_blocks% * trials_per_block%  :REM 60 trials
  global_unadj_delay%=0
  adj_nreinf%=2

  initiation_limhold%=300
  choice_limhold%=300
  collection_limhold%=300
  reinf_collect_period%=200
  iti_time%=1700
ENDIF

dummy% = RND(-TIME)
PROCsay_hello
REM ___________________________________________________________________
COLOUR 3
PRINT''"     ***************** EvNoDel - ALL DELAYS ARE ZERO ************"''
COLOUR 7
REM ___________________________________________________________________
PROCget_parameters
PROCselect_filenames
PROCwarn_kickoff
PROCdisplay_screen
FOR i%=1 TO nboxes%
  PROCstart_box(i%)
  PROCpipe_fkey(i%,0,1,"FNabort_box(",i%,E%)
NEXT
start_time% = TIME
PROCpipe_timer(clock_timer%, 100, 100, "FNclock_tick(",0,E%)
PROCwait(E%): *AE
END