Owner's manual

CS420-L and CS425-L Pressure Transducers

PortSet (1 ,1 )' Activate AM16/32

LoopCount = 1 'Reset loop counter

SubScan (0,Sec,4)

PulsePort (2 ,10000) 'Switch to next transducer, delay 10000 us before measurement

BrFull6W(WellDepth(LoopCount),1,mV2500,mV25,1, Vx1,1,

2500,True,True,0,250,Mult(LoopCount),Offset(LoopCount))

LoopCount = LoopCount + 1

NextSubScan

PortSet (1 ,0)' Deactivate AM16/32

CallTable WellData

NextScan

EndProg

8.1.3.2 CR3000 Program

'CR3000

'For use with an AM16/32 in a 6 wire configuration, with four sensors.

Public WellDepth(4)

Dim LoopCount

Dim Mult(4)

Dim Offset(4)

DataTable (WellData,1,-1)

DataInterval (0,30,Sec,10)

Sample (4,WellDepth(),FP2)

Maximum (4,WellDepth(),FP2,False,True)

Minimum (4,WellDepth(),FP2,False,True)

EndTable

BeginProg

Scan (5,Sec,0,0)

'Load multiplier and offset for each individual sensor

Mult(1) = 2.2975

Mult(2) = 1.0560

Mult(3) = 3.0001

Mult(4) = 1.9821

Offset(1) = .36781

Offset(2) = .4011

Offset(3) = .2103

Offset(4) = 1.0029

PortSet (1 ,1 )' Activate AM16/32

LoopCount = 1 'Reset loop counter

SubScan (0,Sec,4)

PulsePort (2 ,10000)