Index: vhLock.mac.rou =================================================================== diff -u -r50188 -r50914 --- vhLock.mac.rou (.../vhLock.mac.rou) (revision 50188) +++ vhLock.mac.rou (.../vhLock.mac.rou) (revision 50914) @@ -106,11 +106,10 @@ } Quit Info - -ADD(T1,T2,T3,T4,T5) +ADD(T1,T2,T3,T4,T5,T6=0) New J,N,Y Set %TC=1 - For J=1:1:5 Quit:$G(@("T"_J))="" S Y="Lock +"_@("T"_J)_":0" x Y Quit:'$T + For J=1:1:5 Quit:$G(@("T"_J))="" S Y="Lock +"_@("T"_J)_":"_T6 x Y Quit:'$T Quit:$T For J=1:1:J-1 Lock -@("T"_J) Set %TC=0 @@ -168,4 +167,3 @@ ; -