'------------------------------------------------------------------
'This works with push button to initiate run. 9 May/97. KKY
start       rate 10    'minimum interval is 1/10 sec
            
	goto here			'begin in the pause mode
               		
again	display "RUN"
	sleep 30
'-------------------------------------------------------------------------------------------------for 40 seconds
	loop 2000		'loop for n cycles
	sleep 1
            	 adreject v0		'ADC channel 0
	plotprint "accel", v0, proc1	'store channel 0
	lcdpoint "A",v0, proc1	'display channel 0
	iffull S
	endloop			'end of loop
	loop 2000		'loop for n cycles
	sleep 1
            	adreject v0			'ADC channel 0
	plotprint "accel", v0, proc1	'store channel 0
	lcdpoint "A",v0, proc1	'display channel 0
	iffull S
	endloop			'end of loop
'-------------------------------------------------------------------------------------------------------------------------
here      display "PAUS"		'pause/idle
            
               sleep 10
here2     sleep 1			'idle loop
	
	display "idlE"
              iflow 7, here2   		'end of idle loop
	display "RUN2"
              goto again			'go to daq
              stop
S           display "FULL"
	stop
proc1  procedure "acceleration"
              
              endproc "acceleration"