\ACQUISITION OPERANT BEHAVIOR
\First version, February 18, 2002
\Filip van den Bergh

\Z-Pulses
\1  Start session
\2  End session
\3  Lever press
\4  Reward

^Houselight=7
^Left=7
^Right=6
^ExtLeft=15
^ExtRight=14
^Feeder=8

\Training parameters
DIM A=5
VAR_ALIAS Fixed ratio = A(0)
VAR_ALIAS Maximum total duration = A(1)
VAR_ALIAS Maximum number of trials = A(2)
VAR_ALIAS Maximum number of reinforcers = A(3)

\Dependents
DIM X=10
VAR_ALIAS Reinforcers = X(0)
VAR_ALIAS Left lever responses = X(1)
VAR_ALIAS Right lever responses = X(2)

DIM T=300
VAR_ALIAS Reinforcers per 1-minute block = T(0)
DIM R=300
VAR_ALIAS Responses on right lever per 1-minute block = R(0)
DIM L=300
VAR_ALIAS Responses on left lever per 1-minute block = L(0)

\System variables
DIM S=5
VAR_ALIAS Time in seconds = S(0)
VAR_ALIAS Minute counter = S(2)
VAR_ALIAS Fixed ratio countdown = S(3)

VAR_ALIAS Reinforced lever = K

\========================================================

S.S.1,
\Time definitions, session start, session end
S1,
	0.1": 	SET A(0)=1;	\FR1
		SET A(1)=30;	\Maximum duration: 60'
		SET A(3)=50;	\Maximum number of rewards: 50
		SET K=^Right ---> S2	
S2,
	#START: ON ^Houselight;
		ON ^ExtLeft, ^ExtRight;
		Z1 ---> S4
S4,
	#Z2:	SHOW 1, Session closed, S(0)/60;
		SHOW 3, Reinforcers, X(0);
		SHOW 4, Left resp, X(2);
		SHOW 5, Right resp, X(1);
		OFF ^ExtLeft, ^ExtRight, ^Houselight ---> STOPABORTFLUSH

\========================================================

S.S.2,
\Timer and session end
S1,
	#Z1	---> S2
S2,
	.01":	SET S(0)=S(0)+.01;
		IF (S(0))>= (A(1)*60) [@TrueEnd, @FalseContinue]
			@TrueEnd: Z2; SHOW 2, Max time, A(1) ---> SX
			@FalseContinue: ---> S2

\========================================================

S.S.3,
\Timer part two: add to minute counter 
S1,
	#Z1:	---> S2
S2,
	1': 	ADD S(2) ---> S2

\========================================================

S.S.4,
\Response counter 
S1,
	#R^Right: ADD R(S(2)); ADD X(1) ---> S1
	#R^Left:  ADD L(S(2)); ADD X(2) ---> S1

\========================================================

S.S.5,
\Trial
S1,
	#Z1: 	SET S(3)=A(0); SHOW 2, First resp, S(3) ---> S2
S2,
	#RK:	SET S(3)=S(3)-1; SHOW 2, Resps needed, S(3); IF S(3)=0 [@TrueReward, @FalseContinue]
			@TrueReward: 	Z4; 
					SET S(3)=A(0); 
					ADD T(S(2)); ADD X(0); 
					SHOW 2, Collect, 0; 
					IF X(0)>=A(3) [@True, @False] 
						@True: Z2; SHOW 2, Max reinf, A(3) ---> SX
						@False: SHOW 2, Resps needed, S(3)---> S2
			@FalseContinue: ---> S2

\========================================================

S.S.6,
\Rewards
S1,
	#Z4:	ON^Feeder ---> S2
S2,
	.5":	OFF^Feeder ---> S1

\========================================================

S.S.10,
\Screen write code
S1,
	#Z1 	---> S2
S2,
	.1":	SHOW 1, Minutes, S(0)/60;
		SHOW 3, Reinforcers, X(0);
		SHOW 4, Left resp, X(2);
		SHOW 5, Right resp, X(1);

		SHOW 6, Fixed ratio, A(0);
		SHOW 7, Max time, A(1);
		SHOW 8, Max trials, A(2);
		SHOW 9, Reinf lever, K;
		SHOW 14, Right lever, ^Right;
		SHOW 15, Left lever, ^Left ---> S2