\ freezing test x83
^LEFTLEVER=1
^LLEVERPOS=2
^RIGHTLEVER=3
^RLEVERPOS=4
^LLEVEROP=1
^RLEVEROP=2
^FEEDER=3
^STIMLL=4
^STIMLR=5
^HOUSELIGHT=7
^DRIPPER=8
^SHOCK=9


S.S.1,
    S1,
      .1":ADD T--->SX  \  ALL PURPOSE TIMER

S.S.2,
    S1,
      #START:ON ^HOUSELIGHT; ~SET N=1--->S2
    S2,
      .1":~ConnectToVM('.', 'Box 1');~ConnectToVM('.', 'Box 2');~ConnectToVM('.', 'Box 3');~ConnectToVM('.', 'Box 4');~ --->s3
    S3,
      90":ADD T--->S4  \90-SEC INTERTRIAL INTERVAL
    S4,
	.1":~WriteEventVM('.', 'Box 1', StartSavingEvent, 'StartEvent');~WriteEventVM('.', 'Box 2', StartSavingEvent, 'StartEvent');~WriteEventVM('.', 'Box 3', StartSavingEvent, 'StartEvent');~WriteEventVM('.', 'Box 4', StartSavingEvent, 'StartEvent');~ --->S5
    S5,
     .1":~TONEON(MG,BOX);~SET T=0 --->s6
      
    S6,
      10":~TONEOFF(MG,BOX);;~ADD N--->S7
    S7,
         .1":~WriteEventVM('.', 'Box 1', StopSavingEvent, 'StopEvent');~WriteEventVM('.', 'Box 2', StopSavingEvent, 'StopEvent');~WriteEventVM('.', 'Box 3', StopSavingEvent, 'StopEvent');~WriteEventVM('.', 'Box 4', StopSavingEvent, 'StopEvent');~ --->s8
    S8,
       .1":~DisconnectVM('.', 'Box 1');~DisconnectVM('.', 'Box 2');~DisconnectVM('.', 'Box 3');~DisconnectVM('.', 'Box 4');~--->s2
S.S.3,
     S1,
        .5":SHOW 1,TRIAL,N--->SX

   
S.S.4,
     S1,
	#Z1--->S2
     S2,
	#Z2:OFF^STIMLR,^STIMLL--->S1
	.2":ON ^STIMLR,^STIMLL--->S3
     S3,
	#Z2:OFF ^STIMLR,^STIMLL--->S1
	.2":OFF ^STIMLR, ^STIMLL--->S2

S.S.5,
S1,
        #Start: SET G = 3000;           \ default freq = 0 hz (WHITE NOISE) 
                SET H = 80;             \ volume = 80 db
                SET I = 10;             \ rise\fall time = 10 ms
                SET P = 1000;           \ duration = 1000 ms
                ~InitANL926;~;        \ reset ANL-926
                ~SetFreq(MG, BOX,G);~;      \ initialize frequency
                ~SetAmp(MG, BOX,H);~;       \ initialize amplitude
                ~SetRF(MG, BOX,I);~;        \ initialize rise\fall time
                ~SetDur(MG, BOX,P);~;--->S2      \ initialize duration
             
S2,
	.1": ADD L;--->SX
 
S.S.6,
    S1,
      .1":IF N>10  [@TRUE,@FALSE]    \    TRIAL COUNTER TO STOP AFTER 3
         @TRUE:--->S2
         @FALSE:--->SX
     S2,
       .1":;OFF ^HOUSELIGHT--->STOPABORT