v  , @ SEG (SG  ( ) ( )2SG SG @ < SEG SGFPCL711 P"hudr.bak":"hydr.bas"TZ PARAM%() : If two boards installed, need to declared VOLTVAL%() : the second parameter arrayn VE%( )Cx DAT%() : Conversion data buffer------------------------------------pcl-711 tuning--------------------------------------------------m PARAM%()  :Board number PARAM%() : : Base I/O address PARAM%()  : IRQ level : IRQ2  PARAM%()  : Pacer rate = 2M / (50 * 100) = 400 Hz  PARAM%() ^ PARAM%()  : Trigger mode, 0 : pacer trigger PARAM%()  : Non-cyclic PARAM%( )  : Offset of A/D data buffer A PARAM%( ) p : Segment of A/D data buffer A; PARAM%( )  : Data buffer B address, if not used,h PARAM%( )  : must set to 0. PARAM%() 2 : A/D conversion number PARAM%()  : A/D conversion start channel PARAM%()  : A/D conversion stop channelM PARAM%()  : Overall gain code, 0 : +/- 5V PARAM%()  : Offset of D/A output data buffer A" PARAM%() p : Segment of D/A output data buffer A, PARAM%()  : Output data buffer B address, if not used,C6 PARAM%()  : must set to 0.w@ PARAM%()  : D/A conversion numberJ PARAM%()  : D/A conversion start channelT PARAM%()  : D/A conversion stop channel1^ PARAM%(!)  : Offset of digital output data buffer Ath PARAM%(") p : Segment of digital output data buffer Ar PARAM%(#)  : Data buffer B address, if not used,| PARAM%($)  : must set to 0. PARAM%(%)  : Digital output numberI PARAM%(&)  : Digital output port PARAM%()  : Offset of digital input data buffer A PARAM%() p : Segment of digital input data buffer A PARAM%()  : must set to 0.8 PARAM%()  : Digital input number PARAM%( )  : Digital input port ----------------------------------------------- menu rutine------------------------------------------  ::menu:GOSUB 4390:'2525ini  ::711ini1  ::pallete7P ^ ::screen gridX oREFKr:RMPC p::set InpGain,FineGain,Outgain of 2525& "com1:2400,n,8,1,cs0,ds0" RANDOM AS #0LF:UF'D LF& LF& : LF LFAN UF UF  : UF& UF&[X SN$"" SN$"test"dbTBlTBS((TB33)): TBS TBSvTIM :OPEN SN$ +".xtl" FOR INPUT AS #1:WRFIL=0:J=J+1+:IF NOT EOF(1) THEN INPUT #1,V1,V2,V3,V4,S ELSE CLOSE #1:GOTO 770O:R=SQR(V2/(V3/1000)):AUDIO=V4o:LINE (J,322-R)-(J,322-R):AV2=V4*64.4:LINE (J,322-AV2)-(J,322-AV2):GOTO 660:CLOSE #1  5 SN$".xtl" OUTPUT AS #:WRFIL :  : WRFIL: & H ,:"FREQUENCY in Khz ";] SEC: LF,X94zkDIFUFLFy MDIF* LO 4LO1(LO)> ,LO1H "##.#";(LF(M(LO1)));R  \ L  : (L),: "##.##";(((( L))));:"Kohm":* f LF,5 pTIM= z:k SLF(PASS((UFLF))): S,L: y  I  VE%(I)(((I ) ((I  ) ) )):V(I)(VE%(I)GAIN)3L :GOTO 990$! (V()) GAINGAIN: GAIN GAIN:PARAM%()GAINt! (V())@ PASS  GAINGAIN: GAIN GAIN:PARAM%()GAIN! (V()) GAIN ,:"v1=too high"! (V()) ,:"microphone voltaze too high"!" GAIN "v";: I;:" to high degrease sound level"\" GAIN "v";: I;:" to low ingrease sound level"" V() PASS "VOLTAZE ";:"V 1 IS ZERO CHECK POWER SUPLLY"" I":IF TI+2 0 THEN GOTO 1030 ' 0 : Not active, 1 : Active.T SEG p.^i/h:----------------------------------------------------------------------------------------------------------------------------------------------------------/rFUN%  : FUNCTION 12/| PCL711(FUN%, PARAM%()) : Func 12 : D/A initialization/DAT%() VOLT 30 SEG p0 , DAT%() ;0 , (DAT%() ) J0 SEG SGs0FUN%  : PCL711(FUN%, PARAM%())y01:----------------------------------------------------------------------------------------------------------------------------------------------------------M1FUN%  : FUNCTION 131 PCL711(FUN%, PARAM%()) : Func 13 : "N" times of D/A output1 PARAM%(-)  "D/A OUTPUT FAILED !": 1n2:----------------------------------------------------------------------------------------------------------------------------------------------------------{2FUN% 2 PCL711(FUN%,PARAM%())2FUN%  : FUNCTION 283& PCL711(FUN%, PARAM%()) : Func 28 : Digital output initialization]30 PARAM%(-)  "DIGITAL OUTPUT INITIALIZATION FAILED !": e3::3D:INPUT "ENTER DIGITAL OUTPUT DATA (0-255) : "; DAT%(0)3N SEG p3X , DAT%() 3b SEG SG 4lFUN%  : FUNCTION 29U4v PCL711(FUN%, PARAM%()) : Func 29 : "N" times of digital output4 PARAM%(-)  "DIGITAL OUTPUT FAILED !": 4:4<5:----------------------------------------------------------------------------------------------------------------------------------------------------------5FUN% : PCL711(FUN%,PARAM%() :------------------------------------5FUN%  : FUNCTION 206 PCL711(FUN%, PARAM%()) : Func 20 : Digital input initializationK6 PARAM%(-)  "DIGITAL INPUT INITIALIZATION FAILED !": S6:6FUN%  : FUNCTION 216 PCL711(FUN%, PARAM%()) : Func 21 : "N" times of Digital input7 PARAM%(-)  "DIGITAL INPUT FAILED !": 7:7 SEG p-7  I  A7DAT%(I) (I)I7  Ik7* I   : Display data74 "DATA["; I; "] = "; DAT%(I),7> I7HPASPAS7R PAS PARAM%( )  : PASS:PARAM%( )7\8f:----------------------------------------------------------------------------------------------------------------------------------------------------------8p8z "com1:2400,n,8,1,cs0,ds0" RANDOM AS #9A$ ":channel_1:input_gain "(IG)";output_gain "(OG)";fine_gain "(FG)";:header off"+9 #, A$;<9 #, ( )B9H9t9OGOG: OG OG :FLAG : FLAG9 FLAG IGIG:FLAG9 IG IG :FLAG9 FLAG FGFG:FLAG9 FG FG:FLAG9 p9": "com1:2400,n,8,1,cs0,ds0" RANDOM AS #M: A$":channel_1:measurement_mode force"^: #,A$;: A$: A$";transducer_sensitivity 4.84E-14":$ #,A$;: A$:. A$";input_type deltatron":8 #,A$;: A$:B A$";input_gain 0":L #,A$;: A$;V A$";fine_gain 1";` #,A$;: A$0;j A$";output_gain 0"A;t #,A$;: A$d;~ A$";lower_frequency_limit 30"u; #,A$;: A$; A$";additional_filter none"; #,A$;: A$; A$";rms_averaging_time exponential,0.125"; #,A$;: A$< A$";peak_hold_time 0.5"< #,A$;: A$.< A$";auto_range off"?< #,A$;: A$Z< A$";alarm_on_off off"k< #,A$;: A$< A$";alarm_detector rms,5E+05"< #,A$;: A$< A$";alarm_hold_time 6"< #,A$;: A$< A$";alarm_level_exceed_time 2"=( #,A$;: A$"=2 A$";detector_dc_output rms"3=< #,A$;: A$U=F A$";reference_generator off"f=P #,A$;: A$=Z A$";mounted_impulse_frequency 6E+04"=d #,A$: A$=n A$";measurement_status_enable 0"=x #,A$;: A$= A$";operation_complete_enable 0"> #,A$;: A$8> A$";:display_set_up ch1_rms,off,off"I> #,A$;: A$`> A$";:read_out db"q> #,A$;: A$> A$";:si_imperial_units si"> #,A$;: A$> A$";:decimal_point floating"> #,A$;: A$> A$";:display_mode digits_and_select"? #,A$;: A$;? A$";:back_lighting off_after_1_minut"L? #,A$;: A$i? A$";:header off"( ){? #,A$;: A$;?" TIM?, TIM , ?6 #?@ ?J #,":m_d:c_d?"( );?T ?^ : W  :WW@h (W,)(W,^),,, @r A@| N ^ :LN: (,L)(,L),,, :G@ \@ ,::greenp@ ,$::red@ ,::deep blue@ PARAM%( )@ PARAM%( )@ PARAM%() @ PARAM%() A PARAM%()GAIN ::gain 0=5volt 1=2,5v 2=.625vA PARAM%()A fA :LOCATE 1,1:PRINT"SERIAL No ";:PRINT SN$:LOCATE 1,58:PRINT DATE$lA A ,:"INITIALIZE 2525 MEASURING AMPLIFIER =1"A "INITIALIZE POWER AMPLIFIER - - - - =2"A "INITIALIZE PROGRAM - - - - - - - - =3"*B& "AUTO INITIALIZATION - - - - - - - - =4"XB0 "RUN HYDROPHONE PROGRAM - - - - - - =5"B: "INITIALIZE PCL711 CARD - - - - - - =6"BD "EDIT 2525 PARAMETERS - - - - - - - =7"BN A$"1" :  ::2525iniBX A$"2" Cb A$"3" H 1Cl A$"4" "cal711b":FG:OG:IG: p:BCv A$"5" _C A$"6" "CAL711b":{C A$"7"  :  C "SELECT FUNCTION"C A$:NN : NPC C A$""  : N C C "OUTPUT GAIN="(OG)D "VALUES AR 0,10,20 "!D "ENTER YOUR SELECTION "*D ;OGED "INPUT GAIN="(OG)sD "VALUES AR -20,-10,0,10,20,30,40,50,60 "D "ENTER YOUR SELECTION "D ;IGD "FINE GAIN="(FG)D "VALUES AR 0,1,2,3,4,5,6,7,8,9"D "ENTER YOUR SELECTION "D* ;FG E4 pE> :EH REMOTE "REMOTE ACCESS = ENABLE"gER REMOTE "REMOTE ACCESS = DISABLED"E\ "1 = enable ,0 = disable"Ef ;REMOTE: REMOTE REMOTE H Ep REMOTE "remote access disabled" : "remote access enabled"Ez