Standard Jet DBnb` Ugr@?~1y0̝cßFNl7Ӝ@(!`{6s߱cCI83y["|*|tJ΂f_Љ$g'DeFx -bT4.0gdv@  Y%S %% Y   Y Y  Y Y  Y  Y  Y   Y  Y  Y  Y  Y 2Y  Y   Y  Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeYYIdParentIdName        OYmS$Y Y Y  Y 2ACMFInheritableObjectIdSID  AtYObjectId YSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationshipYv1b N  : k & W  C t/ @@@?@@  @@ @@ JO`YbOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^QkMd``JbOMd`fJkkOJmJLJkQfidfQimYQkMd`fJkk`JMidMdbSYUoiJmYdbMdbSYUoiJmYdbOQqYMQOQqYMQk`Jkk`JkkLQ^^`JkkkQm`QOYo``kvkJMMQkkdL[QMmk`kvkJMQk`kvkY`QuMd^o`bk`kvkY`QukfQMk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkfUYbSdfYkmdb f^dmk!iJbUQ"mQkmk#okQik$JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO  @ @ @ @       =D HPX_dintx{!"#$K  @ @ @ @ @ @ @ @ @ @ @ @ @     $% & ' (JK  )*+,-./01=2=3=4DDDH5H6H7P8P9P:X;X<X=_>_?_@dAdBdCiDiEiFnGnHnItLtMtNxOxx{ { {   !"#    %d _ Z g  ~  o *` YD=>-@{ @Users#@-@{ @Users#@888,,,,,,,* @Fb֙5@^Ԋ@Tests#\#b!888,,,,,,,* @ ]r.@)+t@Range#B9 ^888,,,,,,,* @Ź B@/@Plots#E#b!888,,,,,,,* @Dj,)@5)ޞ-@Piston#&!#b!:::......., @{4>@^GrM@PGInfo#n4#b!:::......., @x*I*@]aJ*@MSysIMEXSpecs#<<<<<<<<<<: t]aJ*@]aJ*@MSysIMEXColumns#@@@@@@@@@@> n@;@MSysAccessObjects#DDDDDDDDDDB isL@KL@Medium#L@:::......., @d+)@eC@MassSet#Г#b!<<<0000000. @_{P,)@C@MassBell##b!>>>22222220 @X5+)@N4[@Mass#м @666*******( @P6.-@@Devices#О9O8<<<0000000. @HFoN@C@ConfigurationDevice#b!TTTHHHHHHHF @=߅#qN@/@Configuration#Gb!HHH<<<<<<<: @7ӝ B@3k@COMPASSMacro#@FFF:::::::8 @< @JH@COMPASSDatabaseProperties# @```TTTTTTTR @1 .@7,N@Command#М @<<<0000000. @  1?@&1?@Admin#`@8,,,,,,,,,*  6&{+)@6&{+)@UserDefined#A@DDD88888886 @ 6&{+)@ (-@SummaryInfo#P@DDD88888886 @ 9j"5)@?.@AccessLayout#4MR2KeepLocal T"@zz:::::::8 @'{+)@'{+)@SysRel#.........., '{+)@'{+)@Scripts#0000000000. '{+)@'{+)@Reports#0000000000. '{+)@'{+)@Modules#0000000000. 6&{+)@6&{+)@Forms#,,,,,,,,,,* '{+)@'{+)@DataAccessPages#@@@@@@@@@@> {+)@{+)@MSysRelationships"DDDDDDDDDDB {+)@{+)@MSysQueries"88888888886 {+)@{+)@MSysACEs"22222222220 {+)@{+)@MSysObjects"88888888886 {+)@|I<,)@MSysDb#@:::......., @{+)@{+)@Relationships"<<<<<<<<<<: {+)@{+)@Databases"44444444442 {+)@{+)@Tables".........., < YN  dY Y  Y dY Y  Y Y Y Y  Y  dY  KeyRangeKeyCommandCommandTypeCommandSetTypeProcessReadReply SetRawCmdDelayDelimitIDID YYYYIDKey1PrimaryKeyRangeKey1Hv1b@ @@dWzKY+ g 9  r A  O ! ] / p A  S$c5yGX)j9 zLrIc5 f QOh*9900FA=0!!_ eoutp:mode cont-1*& dpres [x] 1$ ? coutp:mode vent&& ZL= SP1 23 _ ZL= SP1 [x] 1%! WQ*9900EW*9900UN=4((_ WQ*0100P35! WQ*9900ID_ nR *9900EW*9900UN=4((_ nR *0100P35! nR *9900ID_ w͛P?  Coutp:mode vent&& X`^MEAS:PERIOD?$$ X`^SYSTEM:REMOTE%% W$SYSTEM:REMOTE%% W$MEAS:RESISTANCE?(( `SYSTEM:REMOTE%% `MEAS:FREQUENCY?'' sgSYSTEM:REMOTE%% sgMEAS:CURRENT:DC?(( !SYSTEM:REMOTE%% !MEAS:VOLT:DC?%% SYSTEM:REMOTE%% MEAS:PERIOD?$$ %MEAS:RESISTANCE?(( %SYSTEM:REMOTE%% 4MEAS:FREQUENCY?'' 4SYSTEM:REMOTE%% MEAS:CURRENT:DC?(( SYSTEM:REMOTE%% YMEAS:VOLT:DC?%% YSYSTEM:REMOTE%% ~xSYSTEM:REMOTE%% ~xMEAS:PERIOD?$$ *uSYSTEM:REMOTE%% *uMEAS:RESISTANCE?(( ~0SYSTEM:REMOTE%% ~0MEAS:FREQUENCY?'' k9SYSTEM:REMOTE%% k9MEAS:CURRENT:DC?(( RbSYSTEM:REMOTE%% RbMEAS:VOLT:DC?%% oSYSTEM:REMOTE%% KASYSTEM:REMOTE%% eSYSTEM:REMOTE%% ] SYSTEM:REMOTE%% 0ܑWSYSTEM:REMOTE%% ODMEAS:VOLT:DC?%% lXkeMEAS:CURRENT:DC?(( /MEAS:PERIOD?$$ o2EMEAS:FREQUENCY?'' MEAS:RESISTANCE?(( ;αMEAS:VOLT:DC?%% bؑMEAS:CURRENT:DC?(( rnMEAS:PERIOD?$$ rcMEAS:FREQUENCY?'' ?MEAS:RESISTANCE?(( >PMEAS:VOLT:DC?%% aiMEAS:CURRENT:DC?((  $MEAS:PERIOD?$$ wTMEAS:FREQUENCY?'' { MEAS:RESISTANCE?(( [ MEAS:CURRENT:DC?((  8MEAS:RESISTANCE?(( v(MEAS:FREQUENCY?'' iMEAS:PERIOD?$$ +oMEAS:VOLT:DC?%% ʗMEAS:CURRENT:DC?(( MEAS:RESISTANCE?(( <^MEAS:FREQUENCY?'' t'MEAS:PERIOD?$$ MEAS:VOLT:DC?%% 0ܑWMEAS:PERIOD?$$ KAMEAS:FREQUENCY?'' ] MEAS:RESISTANCE?(( oMEAS:CURRENT:DC?(( eMEAS:VOLT:DC?%% %*9900ID_ %*0100EW*0100UN=1((_ %*0100P35!!QsH^7  W % j 5  [ , m :  y J # a.[,wBO#IxQ*d< zG ec=v|:|-25555181 2($? d*Q8ROUTE:CLOSE:EXCLUSIVE (@10[x]) 1:6? cm+O|:|-432019558 2)%? b;MEAS:PER? (@1)&& abD(MEAS:PER? (@2)&& `0MEAS:FREQ? (@2)'' _MEAS:FREQ? (@1)'' ^^IhPT 13 ]QU \GT [x] 1"? [SI-1 ZGT 23 YFPA, X_ABH, WRTA, VO2ABT, UF/ABP, Td BYTE:= 0 0 33 0 14 0 0 0 0 130 131 102|:|1128360997M> Sd BYTE:= 128"" RƇBYTE:= 0 0 33 0 14 0 0 0 0 130 131 102|:|1128360997M> QƇBYTE:= 128"" NhBYTE:= 0 0 33 0 14 0 0 0 0 130 131 102|:|1128360997M> MhBYTE:= 128"" L0m_PCS4 READING?1(& KK\_PCS4 READING?1(& J5_PCS4 READING?1(& I$f_PCS4 READING?1(& Hje!AMB:INIT!!_ Gje!AMB|:|1117138124+ FZm!AMB:INIT!!_ EZm!AMB_ DZm!AMB|:|1117138124+ CCrMEAS:VOLT:DC?%% BCrSYSTEM:REMOTE%% AFSYSTEM:REMOTE-1)% @FMEAS:RES? (@[x]) 1,( ?& rSYSTEM:REMOTE-1)% >& rMEAS:FREQ? (@[x]) 1-) =ٰSYSTEM:REMOTE-1)% <ٰMEAS:CURRENT:DC? (@[x]) 13/ ;8SYSTEM:REMOTE%% :8READ? 9sTNSYSTEM:REMOTE%% 8sTNREAD? 7zUSYSTEM:REMOTE%% 6zUREAD? 5ʎSYSTEM:REMOTE%% 4gJSYSTEM:REMOTE-1)% 3^ROUTE:CLOSE (@[x]) 1.*? 2^SYSTEM:REMOTE-1)% ,ʎREAD? *gJMEAS:VOLT:DC? (@[x]) 10, )? أSYSTEM:REMOTE%% (? أMEAS:VOLT:DC?%% 'U SYSTEM:REMOTE%% &U MEAS:CURRENT:DC?(( %铍uOHM $FUNC DCA  #bFUNC DCV  >|:|1111618422%%_ >CPPT|:|1110934456+ XKCPPS|:|1110934456+ XK|:|1111618422%%_ 1r1P0X P@ `_PCS4 READING?1(& }_PCS4 READING?1(& H_PCS4 READING?1(& L_PCS4 READING?1(& PP0X e'@020?4 +:meas:funcG$" fߎL01??_ fߎL01M?|:|994940369+ vL01SI-1!_ vL01SI_ v|:|-1798710986&&_ v|:|1986696295 2)% vL01??-1!_ ȝISYSTEM:REMOTE%% ȝIMEASURE:CHANNEL? 1,,* >? C12B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!#$%&'''''J'K'L'M'N'O'P'Q      !"#$%&'()*+,-./0123456789:;<=>?@ABCDIJKMNPQRSV      !"'()*+,-./0356789:<>@ABCDEFGHIJKLMNOP''''''''' ' ''''''''''''''' '!'"'#'$'%'&'''(')'*'+','-'.'/'0'1'2'3'4'5'6'7'8'9':';'<'='>'?'@'A'B'C'D'E'F'G'H'I      !+,-.45678:;<=>?@ABDGHIKMOPRSTUVWX[]^_cd   !"#$%'(*+,-./12456789:@ABCDNORSWX[\]^_`abc     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQ     "#$>?ABDEGHJKMNPQSTVWXYZ[\]^_`cdghij  !"#&'()*6789<=JKLMPQmnoptuyz((( ( ((LOT24;=?'' 9JLNQZ\`e &)03;PTY @CFILORUaek:>NRqv{(( (1' a <QUZbfl;?OSrw|(( (' b =Vsx}(((>????????????????????????<QUZ' b =V>? h"      !"#$%&'()*+,-./0123456789:;<=>?@ABCDIJKLMNOPQ         #$%&'()*,23 4!5"6#7$8%9&:';(<)=*>+?,@-A.B/C0D1E2F3G4H5I6J7K8L9M:N;Q<R=S>T?U@VAWBXCYDZE[F\G]H^I_J`KaLbMcNdOePf'g'h'i'j'k'l'm'n'o' p' q' r' s' t'u'v'w'x'y'z'{'|'}'~''''''''' '!'"'#'$'%'&'''(')'*'+','-'.'/'0'1'2'3'4'5'6'7'8'9':';'<'='>'?'@'A'B'C'D'E'F'G'H'I'J'K'L'M'N'O'P'Q      !+,-.456789:;<=>?@ABDGHIJKLMNOP Q R S T UVWXZ[\]^_`abcde !"#$%&' ( ) * + ,-./0123456789:;<=> ?!@"A#B$C%D&E'F(G)H*I+J,K-L.M/N0O1P2Q3R4S5T6U7V8W9X:Y;Z<[=\>]?^@_A`BaCbDcRdSeTfUgEhFiGjHkIlJmKnLoMpNqOrPsQtRuSvTwUxVyWzX{Y|Z}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQ     "#$ >?@ABCDEFGHIJKLMNOP Q!R"S#T$U%V&W'X(Y)Z*[+\,]-^._/`0a1b2c3d4e5f6g7h8i9j:k;l<=>?@ABCDE F G H I JKLMN h"      !"#$%&'()*+,-./0123456789:;<=>?@ABCDIJKLMNOPQ         #$%&'()*,23 4!5"6#7$8%9&:';(<)=*>+?,@-A.B/C0D1E2F3G4H5I6J7K8L9M:N;Q<R=S>T?U@VAWBXCYDZE[F\G]H^I_J`KaLbMcNdOePf'g'h'i'j'k'l'm'n'o' p' q' r' s' t'u'v'w'x'y'z'{'|'}'~''''''''' '!'"'#'$'%'&'''(')'*'+','-'.'/'0'1'2'3'4'5'6'7'8'9':';'<'='>'?'@'A'B'C'D'E'F'G'H'I'J'K'L'M'N'O'P'Q      !+,-.456789:;<=>?@ABDGHIJKLMNOP Q R S T UVWXZ[\]^_`abcde !"#$%&' ( ) * + ,-./0123456789:;<=> ?!@"A#B$C%D&E'F(G)H*I+J,K-L.M/N0O1P2Q3R4S5T6U7V8W9X:Y;Z<[=\>]?^@_A`BaCbDcRdSeTfUgEhFiGjHkIlJmKnLoMpNqOrPsQtRuSvTwUxVyWzX{Y|Z}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQ     "#$ >?@ABCDEFGHIJKLMNOP Q!R"S#T$U%V&W'X(Y)Z*[+\,]-^._/`0a1b2c3d4e5f6g7h8i9j:k;l<=>?@ABCDE F G H I JKLMN Z'C**bR&bR'%6%7Q)D^A''zP 'e      Y'> Y'? /F@ TC  X l l l l l ʝʝ"ilZ'lZ'b>Bmy'Pmy'QB/B0Db<'JDb<'KM/:`h'ۙFF'6F'7oo%!H$!H%!H&!i}I!ooH"="=#:#:#44#45# ?# ?$'($')'QWM'QWN'QWO(X(X(X,G'0_0_2|'48 4;7(v7(!N7(!O7(!P7(!Q7v7v7v7v7v75C D>m09>h>>h?>6>6>6?h:?h;AzYA+ BY0BY1BVCU=CvCvCFF-FF.G2G3GDH$ J{m'J{m(J{m)JBLn7Lpm'Lpm'Lpm'Lpm' Lpm' LAKLAK$N˸':N˸';OۛwOۛwP [Pu*,Pu*-SږESږFSږGSږHV)V*VԒRVԒSVԒTXeXe#Y^`XBY^`XCYɂ'NYɂ'O[2'[2'[}[}\.H'&\.H''\c:D]?^}^a2OAcCcCcCcCcfcf c57e`>e`?f ؂' f ؂'!ijnjn j d>j d?lfrBmej4mej5pqFI'rrrv^< vvGyL yq'yq'yI+z ,z(+z(,mi _y'4_y'5^`EJD K'@K'A $W@$WAGn1:@J݇<݇= !''MUU]β]β"WXYZ'"'#9:;<=>?RnJRnKRnL9k(9k)OO8'8(JgJg!IIɀJɀKɀL>>ԑ6f$6@r8/(:Z40~*0~+ {33~6í8í90c0d0e00=ˍ4:;GQ#>Ah*X'ҎX'2ҎX'3j'j'B! wһՔz#Քz$/4'/4'ב0ב0!EE888((ii޶޶ ^3UܽC @P]R]S]T]U]V;rQRSZ[\]-.kXlJaJas<s=I^IaXMv GkMJKLMNOZ1Z2Z3r'F'G+ k5C/C0PI &+ &,zu' u' u' =cP'0'1~.~/o ~W9wU\K8[YN Y Y VersionAutoMergDatedv@2.0.36  Y4ojvN&&Y Y  Y d Y  Y  Y dKeyMacroTypeFcnLabelVersionMacroCodeFcnName;<YYKeyPrimaryKeyHv1b x8 8LVAL ^ LL|2Z'put variable declarations public to DataFile macro module Function Declaration() 'empty End Function 'put variable declarations public to GetCommand macro module Function Declaration() 'empty End Function 'put variable declarations public to Interface macro module Function Declaration() 'empty End Function'put variable declarations public to Relationship macro module Function Declaration() 'empty End Function 'put variable declarations public to ReplyParser macro module Function Declaration() 'empty End Function'put variable declarations public to ReportField macro module Function Declaration() 'empty End Function'put variable declarations public to Test macro module Function Declaration() 'empty End Function '**************************************** 'Show a message on the COMPASS status bar 'Pass the message text as the parameter 'to this function ' '**************************************** Sub StatusDisplay(msg) cCOMPASS.StatusDisplay msg End Sub '**************************************** 'This function returns the command necessary 'to set ambient temperature using a 'West 6100 temperature controller. 'The return value is the remote command ' 'Target :Target value when the SetMode it True (Valve Driver Chnl). 'ChnlSt :True/False to activate or de-active a valve driver. 'SetMode :True for Set commands, False for all other commands. 'ParamID :Parameter ID of the device 'cDevice :Device class that the relation ship applies to. ' '**************************************** Function SetAmbTemperatureWest6100(Target, ChnlSt, SetMode, ParamID, cDevice) 'Enter New Code here ambT = 20.00 'Assume ambient temperature is 20C cmd = SetWest6100Temperature(ambT, ChnlSt, SetMode, ParamID, cDevice) SetAmbTemperatureWest6100 = cmd End Function 9ZB s * ̑ D w 0 @ Z  KrNs.Zûûi(BbmǸFLogToTextFileExt2.00b> @5LogToTextFileExtA/# ?*LogReadyAndPrs2.00b3LogReadyAndPrs=-! ?FPG_OpenBypass2.00b@FPG_OpenBypass=-! ?<FPG_CloseBypass2.00bX@FPG_CloseBypass?." ?[FFPGPlusMinus2.00bx4FPGPlusMinus9+ ?VFPG_ZeroandVent2.00b@ @FPG_ZeroandVent?." ?;TFluke700_GetReading2.00b-Fluke700_GetReadingG2& ?\EExcelSheet2.00 @ExcelSheet4( ?SMensorPCS400Filter1.00c@MensorPCS400FilterE1% ? mN"CalcPRTTemp2.00A@CalcPRTTemp7* ?zSetMUXVoltageChannel(1-60)1.00 @SetMUXVoltageChannelN8,& ??SetMuxChannelNEW1.00@(SetMuxChannel=." ? -PL_Declaration1.00c@Declaration8+ ?ۿ_Declaration1.00c@Declaration8+ ?.ۦ_Declaration1.00c@Declaration8+ ?D_Declaration1.00c@Declaration8+ ?-P_Declaration1.00c@Declaration8+ ?[_GlobalDeclaration1.00c@:GlobalDeclarationD1% ?' _Declaration1.00c@Declaration8+ ?|=D_Declaration1.00c@ Declaration8+ ?=xInitObject1.00@:InitObject4( ?gjvSetWest6100Temperature1.00 @9SetWest6100TemperatureL4(" ?QbGetCorrelation1.00 @8Get_Correlation=,  ?><bTimeDifference1.00@7Time_Difference=,  ?]GGetObjOutput1.00@2GetObjOutput8* ?+ETimeDelay1.00&@2TimeDelay2' ?%lACBeamexReply2.00bD2 ]BeamexReply7* ?BSciFormat1.00c@2SciFormat3( ?vABGetKing3682Init1.00c: @1GetKing3682Init?." ?7BGetKing3682Reply1.00c@-GetKing3682ReplyA/# ?@ParseScanListRead1.000`!ParseScanListReadB/# ?a@CreateScanList1.00h.`!CreateScanList<,  ?h@VentActiveController1.00@-VentActiveControllerH2& ?Qъ?DUTTransferFunction1.00 @,FitNewData=1% ?>CalcParosPressure1.00@+CalcActiveXPressureD/# ?>ApplyCalibration1.00@*ApplyCoefs:." ?Е>MatrixSolver1.00Z @)MatrixCalcGauss;* ?.Ǖ>PolyFitData1.00c Poly_Fit4* ?+>ReadFile1.00@&ReadAllTextFile7& ?%\=DHIReadyNotReady1.00@&DHIReadyNotReady@." ?ѕM;GetWest6100Temperature1.00 @%GetWest6100TemperatureL4(" ?WFitExample1.00^@$QuickTest3( ?+SetPPCPressure1.00@"SetPPCPressure<,  ?1SetMuxChannelNEW1.00@#SetMuxChannel=." ?7hWaitForUpdate1.00<@"Test554826+ ?FGetNumericValue1.00 @!GetVal5-! ?MacroSame1.00c@ MacroSame3( ?GetObjTemperature1.00@ GetObjTemperatureB/# ?<ӽExtractText1.00 @qextract3) ?xLGetObjPressure1.00@GetObjPressure<,  ?t'StatusDisplay1.00@StatusDisplay:+ ?6ɔSetAmbTemperatureWest61001.00@SetAmbTemperatureWest6100R7+% ?2LVALB '**************************************** 'This Function must return the device output 'in the Final Output Unit by manipulating the 'parameters provided. ' 'Out1 :By default, this is the raw formatted, output of a ' device. In other cases, it is final output of a ' test configured device in the configured output unit. 'Out2 :Final output of a test configured device in the ' configured output unit. 'Out3 :Final output of a test configured device in the ' configured output unit. 'ParamID :Parameter ID of the device . 'cCalc :Calculation Class of the output. 'The value is returned by setting the function name = 'to the calculated value.. ' 'For example: Relationship57461 = 1 / Out1^.5 '**************************************** Function GetObjPressure(Out1, Out2, Out3, ParamID, cCalc) rtv = GetVal(cCalc.RangeMain.GetParent.Extra1) GetObjPressure = Objs(rtv).Pressure End Function LVAL '-------------------------------------------------------------------- ' 'This function accepts an initial string, start position, end postition 'and a separator and returns the parsed value. 'Teststring$ => The string to pull apart 'StartSeparator%=> # of the separator to start copying from 'EndSeparator => # of the separator to stop copying to 'Separator$ => String used to separate areas of the text ' 'The function returns null if the the value is invalid ' '-------------------------------------------------------------------- Public Function qextract(teststring, Startseparator, EndSeparator, Separator) Dim count1 Dim newstring Dim allData Dim i Dim Max If teststring = "" Then Exit Function allData = Split(teststring, Separator) count1 = UBound(allData) If count1 < Startseparator Then Exit Function 'Must have the value in it before leaving If (EndSeparator - 1) > count1 Then Max = Count1 Else Max = EndSeparator - 1 End If newstring = "" If Startseparator > Max Then 'newstring = allData(Startseparator) For i = Startseparator To count1 newstring = newstring & allData(i) If i <> count1 Then newstring = newstring & Separator End If Next Else For i = Startseparator To Max newstring = newstring & allData(i) If i <> Max Then newst