--
-- revealed operant program
-- session 1
--

include revop.e
include common.e

-- Session-Specific parameters

-- h/f schedule
constant hfsched = {1,2,2,1,1,1,2,2}

--
-- do the session
--
init()

instruct("Use 1.")
do_reinforced_block(ops_per_block, keys, {hfs[1]}, min_length, rf, helptext)

instruct("Switch to 2.")
do_reinforced_block(ops_per_block, keys, {hfs[2]}, min_length, rf, helptext)

for i=1 to 8 do
  instruct("Switch.")
  do_block(ops_per_block, keys, {hfs[hfsched[i]]}, min_length, rf, helptext)
end for

finish()